Algorithme Resolution_Equation_Second_Degre
{
     variable a, b, c, delta, x0, x1, X2: reel
     
     Afficher("Saisissez les coefficients a, b et c de l'équation a*x^2+b*x+c=0 avec a non nul\n")
     Saisir(a,b,c)
     
     
     delta <-- b*b -4*a*c
     
     Si (delta < 0) alors
     {
           Afficher("Pas de solutions réelles\n")
     }
     sinon
     {
           Si (delta = 0) alors     
           {
                x0 <-- -b / (2 * a)
                Afficher("Il y a une racine double ",x0,"\n")     
           }
           sinon
           {
                x1 <-- (-b - racine_carre(delta)) / (2*a)
                x2 <-- (-b + racine_carre(delta)) / (2*a)
                Afficher("Il y a deux racines réelles: ", x1, " et ", x2, "\n")
           }    
     }
}