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