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