!============================================================================================
!ΑΣΚΗΣΗ:
!Δίνεται η εξίσωση αχ² + βχ + γ. Να γραφτεί πρόγραμμα που:
! i)   να διαβάζει τους συντελεστές α, β και γ της εξίσωσης.
! ii)  να βρίσκει και να εμφανίζει την τιμή και τον μέγιστο συντελεστή
!      π.χ. "Ο μέγιστος συντελεστής είναι ο Α = 3".
! iii) να βρίσκει και να εμφανίζει τις λύσεις της εξίσωσης στο συνολο των παργματικών αριθμών
!      και των μιγαδικών (αν η διακρίνουσα είναι αρνιτική).Σε οποιαδήποτε άλλη περίπτοση να
!      εμφανίζει κατάλληλο μηνυμα.
!============================================================================================

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