Algorithme

[Zinder]

Yo
Alors éviddement,
Bonjour à Tous
Voilà alors, je suis en 1ES j'ai jamais vraiment été très bon en math mais je m'interesse beaucoup aux algorithmes, mais aujourd'hui, notre prof de math nous as demandé de crééer un algorithme pour résoudre une équation du second degré, je l'ai fini, j'ai testé avec quelques équations, tout à marché, ou presque : si Delta est inférieur à 0 , égal à 0.
Le problème étant que pour les equations à 2 racines donc >0, mon algorithme fonctionne mal et j'ai eu beau cherché pendant 30 minutes, je n'ai pas trouvé le problème :s, Je vous l'écris ici:


Prompt A,B,C
:B^2-4*A*C->D
:If D<0
:Then
Disp "Pas de racine"
:Else
:If D=0
:Then
:-B/2A->P
Disp "1 RACINE", P
:Else
(-B- √(D))/2A->X
(-B+ √(D))/2A->Z
Disp "2 Racines",X,Z
:End
:End
Je suis sur une calculette TI-82 Advanced, J'ai verifié si les signes - étaient les bons et c'est le cas merci d'avance

[Carpate]

Ca m'a l'air correct.
En quoi consiste le dysfonctionnement ?

Edit
a moins que ta calculette considère que 0 est un nombre positif ?
Dans ce cas teste d'abord le cas d > 0
if D > 0
(2 racines )
else
(1 racine double)
endif

[Zinder]

Enfaite je pense que c'est dans la ligne "Z" Le deuxieme calcule, j'ai testé avec un exemple, x1=Correct mais x2=Pas correct et je sais pas pourquoi, sinon j'ai pas compris ce que signifie "1 racine double"

[Carpate]

IPeux-tu indiquer les donnés a,b,c qui provoquent une sortie incorrecte des résultats aet ce que ce programe sort alors
racine double
Tu ne sais pas que lorsque le discriminant est nul, l'équation admet une racine double (ici x1=x2=-b/2a) ?

[Zinder]

D'accord, j'ai trouvé l'erreur, c'était mon exercice où le corrigé n'était pas bon, c'est bon enfaite mon algorithme marche Et oui je ne connaissais pas ce terme pour défninir qu'il y a 1 racine ^^
Merci quand meme :p