Je ne sais pas où est l'erreur, mais j'ai testé ce programme qui fonctionne parfaitement : http://www.le-tatu.com/IMG/pdf/Prog_secdeg_08.pdf

bonsoir,
il y a quelques erreurs dans ton algorithme, qui est plutôt bon dans l'ensemble!
ne met pas de "pause", car il est lié a des "Goto" et des "Lbl"! donc supprime cette ligne

tu dois parfois sauté des lignes, surtout là:

excuse moi pour les smiley involontaires,
c'est :
: (-B-Rac(D))/(2A) Frac
: (-B+rac(D))/(2A)Frac

J'ai fait les modifications que tu m'as indiquées mais, trois valeurs s'affichent, suivi du calcul du delta et du nombre de solution(s) avec la mention "fait". ?
Sinon, pour le programme que j'ai posté en lien, il arrive que ma calculatrice se bloque après l'avoir utilisé (je suis obligée de l'éteindre puis de la rallumer) et, dans le cas où D<0, m'affiche la valeur du Delta, puis "erreur syntaxe", puis "AUCUNE SOLUTION". C'est lié à l'utilisation des Goto 1 et du Llb ?

Salut,

peut-être que comme ça ça ira mieux

PROGRAM : SECDEG
rompt A,B,C
:B^2-4AC®D
isp “DISCR”, D
ause
:If D<0
:Then
isp “PAS DE SOL”
:Goto 1
:Else
:If D=0
:Then
isp “UNE SOL”
isp -B/(2A) ►Frac
:Goto 1
:Else
isp “DEUX SOL”
isp (-B+ (D))/(2A) ►Frac
isp (-B- (D))/(2A) ►Frac
:Lbl 1
:End
:End

lamat t'as donné(e) un algorithme que tu ne comprends peut être pas à cause de certaines fonction,
voila l'algorithme que j'ai rentré sur ma calculatrice en prenant le tien comme base, et il marche:

: Prompt A,B,C
: B²-4ACD
: Disp "DELTA",D
: If D>0
: Then
: "2 RACINES"
: (-B+D)/2A)►Frac
: (-B-D)/2A)►Frac
: Else
: If D=0
: Then
: Disp "1 RACINE", -B/(2A)►Frac
: Else
: Disp "0 RACINE"
: End
: End

Le programme proposé par lamat fonctionne. J'ai simplement dû supprimer le second "END", qui faisait afficher une erreur syntaxe lorsque D<0. Merci à vous!