PETIT PROG DE MATHS PAS TRÈS MÉCHANT

var    {je déclare toutes mes variables}
  Form1: TForm1;
  A,B,C,D,E,F,X,Y,K,I,J,L: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

   {Convertion des chaînes en réel}

 A:= strtofloat(edit1.Text);
 B:= strtofloat(edit2.Text);
 C:= strtofloat(edit3.Text);
 D:= strtofloat(edit4.Text);
 E:= strtofloat(edit5.Text);
 F:= strtofloat(edit6.Text);

  {résolution du couple d'équation par le procédé d'isolation de x}

                     {Simplification du calcul}
 K:= D*C;
 I:= D*B;
 J:= A*E;
 L:= A*F;
                 {La ligne de calcul est simplifiée}

 Y:= (L-K)/(-I+J);
 X:= (C-B*Y)/A;

 ShowMessage('L''équation est résolue !!!');


           {on arrondie les solutions à 3 chiffres après la virgule}

 Label1.Caption:= 'La solution est le couple: '+'('+formatfloat('0.000',X)+' '+';'+' '+formatfloat('0.000',Y)+')';


end;

procedure TForm1.Button2Click(Sender: TObject);
begin

 Edit1.text:= '';
 Edit2.text:= '';
 Edit3.text:= '';
 Edit4.text:= '';
 Edit5.text:= '';
 Edit6.text:= '';
 Label1.Caption:= '';
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Information1Click(Sender: TObject);
begin
 ShowMessage('Ce programme a été écris en Delphi par <=/F@uSt\=>');
end;

end.