Algo résolution 2nd degré

→ **MyCalcs** profile · de **ghali bennouna** » 27 Sep 2015, 17:27

Bonsoir,
je dois faire un algorithme qui calcule discriminant d et en fonction du résultat affiche soit "2 racines" (et calcule x1 et x2) soit "une double racine" (et calcule x0) soit aucune solution.
Ci joint l'algorithme
merci de me venir en aide

Code: Tout sélectionner: Define reso2ndeg()= Prgm Local d Request"a",a Request"b",b Request"c",c d:=b2-4ac If d>0 Then Disp "2 racines" Disp "x1=",((-b-root(d))/2a) Disp "x1=",((-b+root(d))/2a) ElseIf d=0 Then Disp "une double racine" Disp "x0=",(-b/2a) ElseIf d<0 Then Disp "aucune solution" EndIf Return d EndPrgm

→ **MyCalcs** profile · de **noelnadal** » 27 Sep 2015, 17:31

Dis-nous ce qui marche pas, c'est toujours mieux...
À mon avis, il faut déclarer les variables a,b,c comme tu l'as fait pour d.
Et à la fin, ce n'est pas "aucune solution", c'est "aucune solution réelle", mais bon, c'est un détail...

→ **MyCalcs** profile · de **ghali bennouna** » 27 Sep 2015, 17:36

deja merci
mais je reçois le message d'erreur suivant :
Erreur : le test n'a pas donné de résultat True ou false

→ **MyCalcs** profile · de **Hamza.S** » 27 Sep 2015, 17:37

il y a des programmes qui le font très bien sur le site comme archives_voir.php?id=16642
ou secdeg archives_voir.php?id=15345
après si tu le fais pour un entrainement pour la programmation c'est très bien
il y a certaines erreur à corriger
d:=b2-4ac il faut l'écrire
d:=b^2-4*a*c
si tu notes ac la calculette le considère comme une seule variable il faut mettre le signe pour distinguer

→ **MyCalcs** profile · de **ghali bennouna** » 27 Sep 2015, 17:43

Merci bcp Hamza
l'erreur était au niveau de delta il fallait mettre les * entre 4*a*c

→ **MyCalcs** profile · de **Hamza.S** » 27 Sep 2015, 17:48

pour une amélioration rapide

Code: Tout sélectionner: Define reso2ndeg(a,b,c)= Prgm Local d d:=b^2-4*a*c If d>0 Then Disp "2 racines" Disp "x1=",((-b-root(d))/(2a)) Disp "x1=",((-b+root(d))/(2a)) ElseIf d=0 Then Disp "une seule racine" Disp "x0=",(-b/(2a)) ElseIf d<0 Then Disp "aucune solution" EndIf Return d EndPrgm

pour le lancer il suffit de mettre les données de a,b et c entre les parenthèses reso2ndeg(1,2,1)
si tu as une Nspire avec moteur CAS ça peut encore s'améliorer