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