Nom : Racines d'un trinôme dans R
Variables :
a,b,c : type réels
Delta, x1, x2 : type réels
Début
        a ← 0
        Tantque a=0
        Faire
                Entrer le coefficient a
        FinTantque
        Entrer b et c
        Delta ← b²-4*a*c
        Si Delta ← 0
        Alors
                Afficher "Pas de racines"
        Sinon
                x1 ← (-b-√(Delta))/(2*a)
                x2 ← (-b+√(Delta))/(2*a)
        FinSi
        Afficher x1,x2
Fin