Equations du second degré

Télécharger le projet
Commenter

Description

Il y a peut être déjà ce genre de programme sur le site, mais vu que je ne me suis mis au Delphi qu'aujourd'hui il fallait bien trouver quelque chose de pas trop compliqué a réaliser.
C'est mon premier programme Delphi donc il n'est pas tout a fait au point. C'est pour ça que ça serait gentil de votre part de prendre 1 minute ou 2 pour me dire ce qui va pas afin que je m'améliore.

Merci.

Source / Exemple : 


//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;

Conclusion :


C'est pas des Maths avancées mais bon...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Arecibo)