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