ΠΡΟΓΡΑΜΜΑ ΓΕΛ2009Θ4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, ποσό
  ΧΑΡΑΚΤΗΡΕΣ: ΚΡΑΤ[25, 7] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 25
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 7
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        ΔΙΑΒΑΣΕ ΚΡΑΤ[i, j] 
      ΜΕΧΡΙΣ_ΟΤΟΥ ΚΡΑΤ[i, j] = 'Κ' Η ΚΡΑΤ[i, j] = 'Δ'
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ποσό <- 0
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 7
    ποσό <- ποσό + ΚΕΡΔΟΣ(ΚΡΑΤ, j) 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ποσό > 0 ΤΟΤΕ
    ΓΡΑΨΕ 'Kέρδη', ποσό
  ΑΛΛΙΩΣ_ΑΝ ποσό < 0 ΤΟΤΕ
    ΓΡΑΨΕ 'Ζημιά', Α_Τ(ποσό) 
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Ούτε κέρδη, ούτε ζημιά'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΚΕΡΔΟΣ(ΚΡΑΤ, ημέρα): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, ημέρα, δωμάτια, υπάλληλοι
  ΧΑΡΑΚΤΗΡΕΣ: ΚΡΑΤ[25, 7] 
ΑΡΧΗ
  δωμάτια <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 25
    ΑΝ ΚΡΑΤ[i, ημέρα] = 'K' ΤΟΤΕ
      δωμάτια <- δωμάτια + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ δωμάτια <= 4 ΤΟΤΕ
    υπάλληλοι <- 3
  ΑΛΛΙΩΣ_ΑΝ δωμάτια <= 8 ΤΟΤΕ
    υπάλληλοι <- 4
  ΑΛΛΙΩΣ_ΑΝ δωμάτια <= 12 ΤΟΤΕ
    υπάλληλοι <- 5
  ΑΛΛΙΩΣ
    υπάλληλοι <- 6
  ΤΕΛΟΣ_ΑΝ
  ΚΕΡΔΟΣ <- 75* δωμάτια - 45* υπάλληλοι
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ