Algorithme : équation second degré
// BUT: calculer une équation du second degré
// ENTREE : 3 réels
//SORTIE : un réel
VAR:
a, b, c, del, res, res2:REEL
DEBUT
a <-- LIRE()
b <-- LIRE()
c <-- LIRE()
del <-- b*b-4*a*c //Calcul du delta
SI (del < 0)
ECRIRE(pas de racine)
res2 <-- 1 //Eviter l'enclenchement de une solution
SI (del = 0)
res <-- -b/2*a
SI (del > 0)
res <-- (b - √del)/2*a
res2 <-- (b + √del)/2*a
SI (res2 = "") //Si une seule solution
ECRIRE(res)
SI (res != "") //Si deux solutions
ECRIRE(res res2)
FIN