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