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