Petit prog de maths pas très méchant

Soyez le premier à donner votre avis sur cette source.

Vue 3 194 fois - Téléchargée 204 fois

Description

Programme résolvant les équations du premier degré à 2 inconnues, si vous trouvez des bugs prévenez moi :-p

Source / Exemple :


var    {je déclare toutes mes variables}
  Form1: TForm1;
  A,B,C,D,E,F,X,Y,K,I,J,L: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

   {Convertion des chaînes en réel}

 A:= strtofloat(edit1.Text);
 B:= strtofloat(edit2.Text);
 C:= strtofloat(edit3.Text);
 D:= strtofloat(edit4.Text);
 E:= strtofloat(edit5.Text);
 F:= strtofloat(edit6.Text);

  {résolution du couple d'équation par le procédé d'isolation de x}

                     {Simplification du calcul}
 K:= D*C;
 I:= D*B;
 J:= A*E;
 L:= A*F;
                 {La ligne de calcul est simplifiée}

 Y:= (L-K)/(-I+J);
 X:= (C-B*Y)/A;

 ShowMessage('L''équation est résolue !!!');

           {on arrondie les solutions à 3 chiffres après la virgule}

 Label1.Caption:= 'La solution est le couple: '+'('+formatfloat('0.000',X)+' '+';'+' '+formatfloat('0.000',Y)+')';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

 Edit1.text:= '';
 Edit2.text:= '';
 Edit3.text:= '';
 Edit4.text:= '';
 Edit5.text:= '';
 Edit6.text:= '';
 Label1.Caption:= '';
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Information1Click(Sender: TObject);
begin
 ShowMessage('Ce programme a été écris en Delphi par <=/F@uSt\=>');
end;

end.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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

Va voir le compilateur d'expressions mathématiques dans les sources math
Messages postés
20
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
6 février 2003

ok, je vais te remasteriser la source et tu vas avoir une pitite larme à l'oeuil lol, dis moi je fais comment on fait pour utiliser la fonction copy, c'est pour mon problème de fractions. en fait je veux que mon programme detecte les opérateurs ( dans +,-,/,* et les parenthèses) dans mes TEdit et qu'il fasse l'opération si il y a bien entendu les opérateurs. Merci
Messages postés
235
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
26 juillet 2010

Si tu fais un programme que tu diffuse, il faut parer à toutes les éventaulités
-> tu paux avoir a<>0 et 2 inconnues ex

| y=3
<
| 2x+y=5

Ou avoir un système du genre :

| -x+y=3
< avec une infinité de solutions
| 2x-yx=-6

Ou encore :

| -x+y=3
< sans solution
| 2x-yx=-4
Voila
Messages postés
20
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
6 février 2003

hé bien le programme génère une erreur chose logique car la division par zéro est impossible, et si A=0 etc... où est l'utilité de faire un programme qui résoud les équations à 2 inconnues quand il y en a une, si on travaillait sur un autre axiome sans doute il y aurait eu une utilité quelle qu'elle soit.
Merci pour ta remarque qui est quand même très pertinante, je vais modifier la source du coup <=F@uSt=>
Messages postés
235
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
26 juillet 2010

On a deja eu une surce du genre, que se passe t i si les deux équations sont linéairement dépendantes. C'"est à dire pas de solution ou une infinité de solution? Si A=0? ou si D*B-A*E=0?

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.