Elimination de gauss !

**lina24** · 08/04/2009, 16h28

bonsoir
j'ai un tp en delphi que je dois rendre semaine prochaine , mais j'ai un petit problème
voila le tp consiste à programmer l'élimination de gauss, quand j'exécute mon programme j'ai plusieurs chiffres derrière la virgules or j'ai envie de l'arrondir pour avoir que deux chiffre après la virgule

voila l'algorithme

pour k=0 to n-2
faire
pour i=k to n-2
début
y:= A[k,i+1]/A[k,k]
a[k,i+1]:=y
pour j:=k to n-1
faire
debut
A[j,i+1]:=A[j,i+1]-(y*A[j,k])
fait
fait
end .

dans cet algorithme
le y qui donne le résultat
y qui arrondie

je ne sais pas si c'est assez claire

merci

**Linkin** · 08/04/2009, 16h36

La fonction RoundTo devrait correspondre à ce que tu veux.

**shell13010** · 08/04/2009, 16h43

Salut,

utilise formatfloat Voila un petit exemple qui arrondi 8,54... par 8,55 bref je pense que sa t'aideras pour ton tp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm4.Button1Click(Sender: TObject);
var Str:string;
begin
   Str:=Formatfloat('0.00',8.5464564654646465);
   edit1.text:=Str;
end;

**lina24** · 08/04/2009, 18h03

merci pour vos réponses
je vais éssayer avec la fonction roundto pour voir si ça marche .

et shell j'ai essayé avec le format float ça marche pas car j'ai une matrice supérieur donc quand je fais l'élimination de gauss j'ai 0.01 donc j'ai tjrs un écart de 1 qui dérange , or je veux un calcul juste et précis