Equation du second degré

Soit ax² + bx + c = 0
La résolution de cette équation dépend de la valeur du discriminant Δ :
Δ = b²– 4ac

Si ≠ < 0
Il n'y a pas de solution réelle.

Si Δ = 0
Il existe une solution double :
x = –b / 2a

Si Δ > 0
Il existe deux solutions réelles.
Solution 1
Solution 2

Proposition d'un programme 'Nom du programme'
Disp "AX² + BX + C=0"
'Le test de la valeur de A est obligatoire pour éviter une éventuelle division par 0'
'D'autre part si A = 0, l'équation devient une simple équation du premier degré'
Lbl 0
Input "A = ",A
If A=0
Then
Goto 0
End
'Calcul du discriminant'
Input "B = ",B
Input "C = ",C
B²-4AC → D
'Test de la valeur du discriminant'
If D<0
Then
Goto 1
End
If D=0
Then
Goto 2
Else
Goto 3
End
'Cas où le discriminant est négatif'
Lbl 1
Disp "PAS DE SOLUTION"
Goto 99
'Cas où le discriminant est nul'
Lbl 2
Disp "SOLUTION DOUBLE"
Disp -B/2A
Goto 99
'Cas où il existe deux solutions réelles'
Lbl 3
Disp "DEUX SOLUTIONS REELLES"
Disp (-B+√D)/2A
Disp (-B-√D)/2A
Goto 99
Lbl 99

Résolution mathématique littérale de l'équation du second degré