Algorithme Equation_Second_Degre
{
        variable a,b,c,x,D,x1,x2 : réel
        
        Afficher("Cet algorithme résout l'équation du second degré a*x^2+b*x+c=0.\n")
        
        Afficher("Entrez a: ")
        Saisir(a)
        Afficher("Entrez b: ")
        Saisir(b)
        Afficher("Entrez c: ")
        Saisir(c)
        
        
        Si (a = 0) alors
        {
                Si (b = 0) alors
                {
                        Si (c = 0) alors
                        {
                                Afficher("Résultat: infinité de solutions\n")
                        }
                        sinon
                        {
                                Afficher("Résultat: aucune solution\n")
                        }
                }
                sinon
                {
                        x <-- -c/b
                        Afficher("Résultat: x=", x,"\n")
                }
        }
        sinon
        {
                D <-- b*b-4*a*c
                
                Si (D<0) alors
                {
                                Afficher("Résultat: aucune racine\n")                        
                }
                sinon // D est inférieur ou égal à 0
                {
                        Si (D = 0) alors
                        {
                                x <-- -b/(2*a)
                                Afficher("Résultat: il y a une racine double : ",x,"\n")                        
                        }
                        sinon
                        {
                                x1 <-- (-b - racine_carree(D))/(2*a)
                                x2 <-- (-b + racine_carree(D))/(2*a)
                                Afficher("Résultat: il y a deux racines : ",x1," et ", x2,"\n")                        
                        }
                }
        
        }
}