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