Equation 2nd degre reel + complex

Télécharger le projet
Commenter

Description

Bon jai commencé Delphi il y a 3 jours et c'est mon premier prog a part "Hello world" lol...
Je la met juste comme ca au cas où ça aiderait quelqu'un .. on sait jamais =) .

Si vous voyez des trucs qui sont vraimen t lourds dans la source dites-le svp, j'ai essayé de faire assez court huhuhu...

==============================================

MàJ :
Y'à désormais le calcul des solutions complexes lorsque Delta < 0.
Voili Voilou.
Note: les solutions sont arrondies à 2 décimales près.

Au fait pourquoi lorsque je comile le programme il fait 350 ko ??? C'est pourtant tout petit comme source je capte pas ... Quelqu'un peut-il m'aider ?

Source / Exemple : 


var
  delta: single;
  aaa: single;
  bbb: single;
  ccc: single;
  solu1: single;
  solu2: single;

procedure TForm1.Button1Click(Sender: TObject);
begin
aaa := strtofloat(edit1.Text);
bbb := strtofloat(edit2.Text);
ccc := strtofloat(edit3.Text);
delta := bbb * bbb - 4 * aaa * ccc;
label1.Caption := floattostr(delta);
If delta < 0 then
  begin
   solu1:= -(bbb)/(2*aaa);
   solu2:= -(delta)/(2*aaa);
   label2.caption := floattostrf(solu1,ffgeneral,2,2) + (' + ') + floattostrf(solu2,ffgeneral,2,2) + (' i ');
   label3.caption := floattostrf(solu1,ffgeneral,2,2) + (' - ') + floattostrf(solu2,ffgeneral,2,2) + (' i ')
  end
else if delta = 0 then
  begin
   solu1 := - bbb / (2 * aaa);
   label2.caption := floattostrf(solu1,ffgeneral,2,2);
   label3.Caption := (' --- ')
  end
else
  begin
   solu1:= - (bbb - sqrt(delta))/(2*aaa);
   solu2:= - (bbb + sqrt(delta))/(2*aaa);
   label2.caption := floattostrf(solu1,ffgeneral,2,2);
   label3.caption := floattostrf(solu2,ffgeneral,2,2)
  end;
end;

Pour le code j'ai laissé que les trucs les plus importants, pas le blabla qui y'a par défaut dans les programmes automatiquement...=)
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.