EQUATIONS DU SECOND DEGRÉ

//Je mets juste la procédure du bouton, pour le reste téléchargez le zip

procedure TForm1.Button1Click(Sender: TObject);

var A,B,C: Integer;
Delta: Integer;
Res0,Res1,Res2: Single;

begin

A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
C:=StrToInt(Edit3.Text);
Delta:=(B * B) - 4 * (A * C);

if Delta > 0 then
begin
Res1:=((-B)-Sqrt(Delta))/(2 * A);
Res2:=((-B)+Sqrt(Delta))/(2 * A);
Label5.Caption:='Les deux solutions sont :';
Label6.Caption:=FloatToStr(Res1);
Label7.Caption:=FloatToStr(Res2);
end
else if Delta = 0 then
begin
Res0:=(-B)/(2 * A);
Label5.Caption:='La solution est :';
Label6.Caption:=FloatTostr(Res0);
end
else
begin
Label5.Caption:='Pas de solutions';
end;

end;