Resultat erroné
nanif
Messages postés
10
Statut
Membre
-
nanif Messages postés 10 Statut Membre -
nanif Messages postés 10 Statut Membre -
Bonjour,
je suis debutante dans la ptrogrammation ,
j'ai fait un programme en delphi je saisis des chiffres dans l'edit ensuite je les convertis en réel dans un tableau et je fait des calcul sur ces chiffres et j'affiche le resultat dans la fiche, jusqu'ici le resultat est correcte si j'introduit des chiffres "entier"
mais si j'introduit des chifres réels le resultat sera corecte sauf pour le derniér calcul qui est erroné.
malgré que j'ai reverifié le codes sources est j'ai pas trouvé d'erreurs.
si vous pouvez m'aidé n'esiter pas sourtout.
merci d'avance
je suis debutante dans la ptrogrammation ,
j'ai fait un programme en delphi je saisis des chiffres dans l'edit ensuite je les convertis en réel dans un tableau et je fait des calcul sur ces chiffres et j'affiche le resultat dans la fiche, jusqu'ici le resultat est correcte si j'introduit des chiffres "entier"
mais si j'introduit des chifres réels le resultat sera corecte sauf pour le derniér calcul qui est erroné.
malgré que j'ai reverifié le codes sources est j'ai pas trouvé d'erreurs.
si vous pouvez m'aidé n'esiter pas sourtout.
merci d'avance
A voir également:
- Resultat erroné
- Resultat foot - Télécharger - Vie quotidienne
- Lexer resultat - Télécharger - Sport
- Les données fournies ont un type erroné ✓ - Forum Samsung
- Mot de passe erroné signification - Forum Réseaux sociaux
- Impossible ouvrir cause mot de passe erroné ✓ - Forum Windows 10
ce prg fait : la saisit des chiffres pour ensuite les calculés dans un tableau et les affichés
var
i,x:integer;
l:string;
A,Cs,Ds: array [1..50]of string;
B,D,C:array[1..50]of extended;
begin
i:=1;
x:=1;
l[i]:=edit1.text+'#';
while l[i] <> '#' do {la saisit des données dans l'edit}
if l[i] <> '-' then
begin
repeat
A[x]:=A[x]+l[i];
i:=i+1;
until (l[i]='-') or (l[i]='#');
x:=x+1;
end
else
i:=i+1;
for i:=i to (x+1) do {convertion de l'édit1.text au réel}
B[i]:=strtofloat (A[i]);
for i:= 1 to (x-1) do
begin
C[1]:=B[1];
C[i+1]:=C[i]+B[i+1];
end;
for i:=i to (x+1) do {convertion de C au string}
Cs[i]:=floattostr (C[i]);
for i:= 1 to (x-1) do {Affichage}
edit2.text:=edit2.text+Cs[i]+'-';
for i:= 1 to (x-1) do
begin
D[1]:=C[x-1]-B[1];
D[i+1]:=D[i]-B[i+1];
end;
for i:=i to (x+1) do {convertion de C au string}
Ds[i]:=floattostr (D[i]);
for i:= 1 to (x-1) do {Affichage}
edit3.text:=edit3.text+Ds[i]+'-';
end.