ΠΡΟΓΡΑΜΜΑ Ασανσερ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: στάση, σα
  ΠΡΑΓΜΑΤΙΚΕΣ: σβ
ΑΡΧΗ
  στάση <- 0
  σβ <- 0
  σα <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    στάση <- στάση + 1
    ΓΡΑΨΕ "ΕΙΜΑΣΤΕ ΣΤΗΝ ΣΤΑΣΗ ", στάση
    ΑΝ στάση = 1 ΤΟΤΕ
      ΚΑΛΕΣΕ είσοδος(σα, σβ) 
      ΓΡΑΨΕ "ΤΟ ΑΣΑΝΣΕΡ ΑΝΑΧΩΡΕΙ ΜΕ ΑΤΟΜΑ ", σα, " ΚΑΙ ΣΥΝΟΛΙΚΟ ΒΑΡΟΣ ", σβ
    ΑΛΛΙΩΣ_ΑΝ στάση = 8 ΤΟΤΕ
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        ΚΑΛΕΣΕ έξοδος(σα, σβ) 
      ΜΕΧΡΙΣ_ΟΤΟΥ σα = 0 Η σβ = 0
    ΑΛΛΙΩΣ
      ΚΑΛΕΣΕ έξοδος(σα, σβ) 
      ΚΑΛΕΣΕ είσοδος(σα, σβ) 
      ΓΡΑΨΕ "ΤΟ ΑΣΑΝΣΕΡ ΑΝΑΧΩΡΕΙ ΜΕ ΑΤΟΜΑ ", σα, " ΚΑΙ ΣΥΝΟΛΙΚΟ ΒΑΡΟΣ ", σβ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ στάση = 8
  ΓΡΑΨΕ "Τέλος διαδρομής"
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ είσοδος(σα, σβ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: σα, να
  ΠΡΑΓΜΑΤΙΚΕΣ: βάρος, σβ
  ΧΑΡΑΚΤΗΡΕΣ: απ
ΑΡΧΗ
  να <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "Θα είσέλθετε Ν/Ο"
    ΔΙΑΒΑΣΕ απ
    ΑΝ απ = "Ν" ΤΟΤΕ
      ΑΝ σα < 8 ΤΟΤΕ
        ΓΡΑΨΕ "Δώσε Βάρος:"
        ΔΙΑΒΑΣΕ βάρος
        ΑΝ σβ + βάρος <= 900 ΤΟΤΕ
          να <- να + 1
          σβ <- σβ + βάρος
          σα <- σα + 1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ απ = "Ο" Η σα = 8 Η σβ = 900
  ΓΡΑΨΕ "Στην στάση αυτή ανέβηκαν ", να, "άτομα"
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ έξοδος(σα, σβ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: σα, να
  ΠΡΑΓΜΑΤΙΚΕΣ: βάρος, σβ
  ΧΑΡΑΚΤΗΡΕΣ: απ
ΑΡΧΗ
  να <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "Θα εξέλεθετε Ν/Ο"
    ΔΙΑΒΑΣΕ απ
    ΑΝ απ = "Ν" ΤΟΤΕ
      ΑΝ σα > 0 ΤΟΤΕ
        ΓΡΑΨΕ "Δώσε Βάρος:"
        ΔΙΑΒΑΣΕ βάρος
        ΑΝ σβ - βάρος >= 0 ΤΟΤΕ
          να <- να + 1
          σβ <- σβ - βάρος
          σα <- σα - 1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ απ = "Ο" Η σα = 0 Η σβ = 0
  ΓΡΑΨΕ "Στην στάση αυτή κατέβηκαν ", να, " άτομα"
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!ArxeioEisodou
Ν
200
Ν
100
Ν
100
Ο
Ν
200
Ο
Ν
100
Ο
Ν
200
Ο
Ν
100
Ο
Ν
200
Ο
Ν
100
Ο
Ν
200
Ο
Ν
100
Ο
Ν
200
Ο