Μάθημα : Γ ΓΕΛ ΑΝΑΠΤΥΞΗ ΕΦΑΡΜΟΓΩΝ ΣΕ ΠΡΟΓΡΑΜΜΑΤΙΣΤΙΚΟ ΠΕΡΙΒΑΛΛΟΝ

ΠΡΟΓΡΑΜΜΑ ΣΤΟΙΒΑ_πλοίο
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: τοπ, επ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
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΤΟΙΒΑ_πλοίο