Resultat erroné
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
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
donne nous ton code, sa pourrait aider.
-
voici le code source:
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.
-
-
j'ai trouvé la solution c'est dans les chiffres arrondis et j'ai utilisé la procedure format
