Ψευδοκώδικας για τη λύση Δευτεροβάθμιας Εξίσωσης

Αλγόριθμος ββάθμια_Εξίσωση
Εμφάνισε 'Δώσε μου τους συντελεστές α, β, γ της εξίσωσης'
Διάβασε α
Διάβασε β
Διάβασε γ
Δ ← β^2 - 4*α*γ
Αν Δ>0 τότε
χ1 ← (-β+Τ_Ρ(Δ))/(2*α)
χ2 ← (-β-Τ_Ρ(Δ))/(2*α)
Εκτύπωσε 'Οι λύσεις είναι',χ1,'και', χ2
αλλιώς_αν Δ=0 τότε
  χ← -β/(2*α)
  Εκτύπωσε 'Αόριστη. Διπλή ρίζα', χ
αλλιώς
Εκτύπωσε 'Αδύνατη'
Τέλος_αν
Τέλος ββάθμια_Εξίσωση