! Να γραφτεί πρόγραμμα το οποίο να υπολογίζει και στη συνέχεια να
! εκτυπώνει τις λύσεις της εξίσωσης δευτέρου βαθμού αχ² + βχ + γ.
! Δεδομένα για έλεγχο:
!---------------------
! Αν εισάγουμε α=1, β=1, γ=-2, το αποτέλεσμα είναι χ1=1, χ2=-2.
! Αν εισάγουμε α=1, β=2, γ=1, το αποτέλεσμα είναι μία διπλή ρίζα χ=-1.
! Αν εισάγουμε α=1, β=2, γ=3, η εξίσωση δεν έχει λύσεις στο σύνολο των
! πραγματικών αριθμών
! Αν εισάγουμε α=0, β=3, γ=6, το αποτέλεσμα είναι χ=-2.
! Αν εισάγουμε α=0, β=0, γ=6, η εξίσωση είναι αδύνατη.
! Αν εισάγουμε α=0, β=0, γ=0, η εξίσωση είναι αόριστη.
!======================================================================
! panos giannakopoulos, panosgn@yahoo.com
!======================================================================
ΠΡΟΓΡΑΜΜΑ τριώνυμο
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: α, β, γ, χ, Δ, χ1, χ2
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε τα α, β ,γ:'                        
  ΔΙΑΒΑΣΕ α, β, γ
  ΑΝ α = 0 ΤΟΤΕ ! α = 0, βχ + γ = 0
    ΑΝ β = 0 ΤΟΤΕ
      ΑΝ γ <> 0 ΤΟΤΕ
        ΓΡΑΨΕ 'Η εξίσωση είναι αδύνατη'
      ΑΛΛΙΩΣ ! γ = Ο
        ΓΡΑΨΕ 'Η εξίσωση είναι αόριστη'                                              
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ ! β <> Ο
      χ <-- (-1)* γ/ β
      ΓΡΑΨΕ 'Η εξίσωση έχει μοναδική λύση τη ', χ
    ΤΕΛΟΣ_ΑΝ
  ΑΛΛΙΩΣ
    Δ <-- β^2 - 4* α* γ
    ΑΝ Δ > 0 ΤΟΤΕ
      χ1 <-- (-β + Τ_Ρ(Δ))/(2*α)
      χ2 <-- (-β - Τ_Ρ(Δ))/(2*α)
      ΓΡΑΨΕ 'Δύο ρίζες ', χ1, χ2
    ΑΛΛΙΩΣ_ΑΝ Δ = 0 ΤΟΤΕ
      χ <-- ((-1)* β)/(2* α)
      ΓΡΑΨΕ 'Η εξίσωση έχει διπλή ρίζα', χ
    ΑΛΛΙΩΣ ! Δ < 0
      ΓΡΑΨΕ 'Η εξίσωση δεν έχει λύσεις στο σύνολο των πραγματικών αριθμών'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ