Equation 2nd degre reel + complex

Soyez le premier à donner votre avis sur cette source.

Vue 3 677 fois - Téléchargée 286 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
16
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
10 avril 2007

Salut !
Ton programme pèse lourd car tu passe par le VCL c'est à dire l'éditeur de fenêtre / projet de delpji et non par des ressources de plus les uses:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
=> Ils font prendre de la taile ...

Voilà @+
Messages postés
5
Date d'inscription
mercredi 26 juin 2002
Statut
Membre
Dernière intervention
15 avril 2003

Ce que j'aimerais améliorer mais ça doit être chaud quand même :
que ce soit du calcul formel; que la solution ne soit pas un nombre a virgule, qu'on voit les racine , le résultat exact pa une approximation..
si vous avez une idée je suis preneur et ca me fera progresser =)

sinon j'ai été agréablement surpris car si on met pas des float dans les cases, ya un petit message d'erreur au lieu d'un plantage du prog (et delphi a fait le message tout seul, je l'ai pas programmé)

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.