Equations du second degré

Soyez le premier à donner votre avis sur cette source.

Vue 5 882 fois - Téléchargée 579 fois

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...

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
235
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
26 juillet 2010

3 Petites remarques :
1/ Si on met une lettre dans les edit, ca va planter.
2/ Si a=0, ca va planter (car l'equation ne sera pas du second degré)
3/ Pas de solutionS ne prend pas de S ( puisqu'il n'y en a pas justement :)
Voila, bon courage.

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.