ΠΡΟΓΡΑΜΜΑ ΕΠΙΛΥΣΗ_ΔΕΥΤΕΡΟΒΑΘΜΙΑΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Α, Β, Γ, Δ, ρ1, ρ2, Χ, Υ1, Υ2
ΑΡΧΗ
  ΓΡΑΨΕ 'ΠΛΗΚΤΡΟΛΟΓΗΣΕ ΤΑ Α, Β ΚΑΙ Γ ΤΗΣ ΔΕΥΤΕΡΟΒΑΘΜΙΑΣ ΕΞΙΣΩΣΗΣ (ΜΕ Α<>0 ΥΠΟΧΡΕΩΤΙΚΑ)'
  ΔΙΑΒΑΣΕ Α, Β, Γ
  Δ <- - Β^2 - 4*Α*Γ
  ΑΝ (Δ > 0) ΤΟΤΕ
    ρ1 <- -(-Β + Τ_Ρ(Δ))/(2*Α) 
    ρ2 <- -(-Β - Τ_Ρ(Δ))/(2*Α) 
    ΓΡΑΨΕ 'ΟΙ ΡΙΖΕΣ ΤΗΣ ΔΟΘΗΣΑΣ ΕΞΙΣΩΣΗΣ ΕΙΝΑΙ: ', ρ1, ρ2
  ΑΛΛΙΩΣ_ΑΝ (Δ = 0) ΤΟΤΕ
    ρ1 <- -((-Β)/(2*Α)) 
    ΓΡΑΨΕ 'Η ΜΙΑ ΔΙΠΛΗ ΡΙΖΑ ΑΥΤΗΣ ΤΗΣ ΕΞΙΣΩΣΗΣ ΕΙΝΑΙ: ', ρ1
  ΑΛΛΙΩΣ
    Χ <- -(-Β)/(2*Α) 
    Υ1 <- -(Τ_Ρ(Α_Τ(Δ)))/(2*Α) 
    Υ2 <- -(-(Τ_Ρ(Α_Τ(Δ)))/(2*Α)) 
    ΓΡΑΨΕ 'ΑΥΤΗ Η ΕΞΙΣΩΣΗ ΕΧΕΙ ΔΥΟ ΣΥΖΥΓΕΙΣ ΜΙΓΑΔΙΚΕΣ ΡΙΖΕΣ, ΟΙ ΟΠΟΙΕΣ ΕΙΝΑΙ ΟΙ ΕΞΕΙΣ: '
    ΓΡΑΨΕ 'Ζ1 ΜΕ RΕ(Ζ1)=', Χ, 'ΚΑΙ ΙΜ(Ζ1)=', Υ1
    ΓΡΑΨΕ 'Ζ2 ΜΕ RE(Z2)=', Χ, 'ΚΑΙ ΙΜ(Ζ2)=', Υ2
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ