ΠΡΟΓΡΑΜΜΑ Μέσος_όρος_ύψους
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: πλήθος
  ΠΡΑΓΜΑΤΙΚΕΣ: ύψος, Σ, ΜΟ

ΑΡΧΗ
  Σ <- 0
  πλήθος <- 0
  ΓΡΑΨΕ 'Δώσε ύψος:'

  ΔΙΑΒΑΣΕ ύψος
  ΟΣΟ ύψος > 0 ΕΠΑΝΑΛΑΒΕ
    Σ <- Σ + ύψος
    πλήθος <- πλήθος + 1
    ΓΡΑΨΕ 'Δώσε ύψος:'
    ΔΙΑΒΑΣΕ ύψος
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΟ <- Σ/πλήθος
  ΓΡΑΨΕ 'Μέσος όρος ύψους:', ΜΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 


ΠΡΟΓΡΑΜΜΑ Αγορά_τετραδίων
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: τιμή, πλήθος, διαθέσιμο_ποσό, οφειλόμενο_ποσό
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε την τιμή του τετραδίου:'
  ΔΙΑΒΑΣΕ τιμή
  ΓΡΑΨΕ 'Δώσε το πλήθος των τετραδίων'
  ΔΙΑΒΑΣΕ πλήθος
  ΓΡΑΨΕ 'Δώσε το διαθέσιμο ποσό'
  ΔΙΑΒΑΣΕ διαθέσιμο_ποσό
  οφειλόμενο_ποσό <- τιμή + πλήθος
  ΑΝ οφειλόμενο_ποσό <= διαθέσιμο_ποσό ΤΟΤΕ
    ΓΡΑΨΕ 'Η αγορά είναι εφικτή'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Η αγορά δεν είναι εφικτή'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

ΠΡΟΓΡΑΜΜΑ Χρέωση_ύδρευσης
ΣΤΑΘΕΡΕΣ
  πάγιο = 8
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: κυβικά, οφειλή
ΑΡΧΗ
! Ανάγνωση δεδομένων
  ΓΡΑΨΕ 'Δώσε τα κυβικά που καταναλώθηκαν'
  ΔΙΑΒΑΣΕ κυβικά
! Υπολογισμός κλιμακωτής χρέωσης
  ΑΝ κυβικά < 0 ΤΟΤΕ
    ΓΡΑΨΕ 'Μη αποδεκτή τιμή.'
  ΑΛΛΙΩΣ_ΑΝ κυβικά < 10 ΤΟΤΕ
    οφειλή <- 8 + κυβικά*0.4
  ΑΛΛΙΩΣ_ΑΝ κυβικά <= 20 ΤΟΤΕ
    οφειλή <- 8 + 10*0.4 + (κυβικά - 10)*0.5
  ΑΛΛΙΩΣ
    οφειλή <- 10*0.4 + 10*0.5 + (κυβικά - 20)*0.6
  ΤΕΛΟΣ_ΑΝ
! Εμφάνιση αποτελέσματος
  ΓΡΑΨΕ 'Οφειλή=', οφειλή
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

ΠΡΟΓΡΑΜΜΑ Ανάγνωση_βαθμολογίας
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Βαθμός
ΑΡΧΗ
  ΓΡΑΨΕ "Δώσε βαθμό στην εικοσάβαθμη κλίμακα"
  ΔΙΑΒΑΣΕ Βαθμός
  ΟΣΟ Βαθμός < 0 ΚΑΙ Βαθμός > 20 ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ "Μη αποδεκτή τιμή"
    ΓΡΑΨΕ "Δώσε βαθμό στην εικοσάβαθμη κλίμακα"
    ΔΙΑΒΑΣΕ Βαθμός
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Καταχωρήθηκε ο βαθμός της εικοσάβαθμης κλίμακας ", Βαθμός
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

ΠΡΟΓΡΑΜΜΑ Γινόμενο_μη_μηδενικών_αριθμών
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Χ, Γινόμενο
ΑΡΧΗ
  Γινόμενο <- 1
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "Δώσε μη μηδενική τιμή"
    ΔΙΑΒΑΣΕ Χ
    Γινόμενο <- Χ*Γινόμενο
  ΜΕΧΡΙΣ_ΟΤΟΥ Χ = 0
  ΓΡΑΨΕ "Γινόμενο=", Γινόμενο
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


ΠΡΟΓΡΑΜΜΑ ΕΣΟΔΑ_ΚΑΤΑΣΤΗΜΑΤΟΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[6] 
  ΑΚΕΡΑΙΕΣ: Ι
ΑΡΧΗ
! Επανάληψη ανάγνωσης εσόδων
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
    ΓΡΑΨΕ "Δώσε τα έσοδα του ", Ι, "ου μήνα"
    ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Επανάληψη ελέγχου αυξητικής τάσης
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
    ΑΝ ΕΣΟΔΑ[Ι] <= ΕΣΟΔΑ[Ι + 1] ΤΟΤΕ
      ΓΡΑΨΕ "Ο ", Ι, "ος μήνας ΑΥΞΗΣΗ"
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 


ΠΡΟΓΡΑΜΜΑ Έσοδα_υποκαταστημάτων
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[3, 4], Άθροισμα
  ΑΚΕΡΑΙΕΣ: Ι, Κ
ΑΡΧΗ
  Άθροισμα <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
    ΓΡΑΨΕ 'Δώσε τα έσοδα των τριμήνων του ', Ι, 'ου υποκαταστήματος:'
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
      ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι, Κ] 
      Άθροισμα <- Άθροισμα + ΕΣΟΔΑ[Ι, Κ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Ετήσια έσοδα:', Άθροισμα
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

ΠΡΟΓΡΑΜΜΑ ΕΛΕΓΧΟΣ_ΖΗΜΙΑΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι, Πλήθος, Μήνες_με_ζημία
  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[6], ΕΞΟΔΑ[6] 
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
    ΓΡΑΨΕ 'Δώσε τα έσοδα του ', Ι, 'ου μήνα:'
    ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι] 
    ΓΡΑΨΕ 'Δώσε τα έξοδα του ', Ι, 'ου μήνα:'
    ΔΙΑΒΑΣΕ ΕΞΟΔΑ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Μήνες_με_ζημία <- Υπολογισμός(ΕΣΟΔΑ, ΕΞΟΔΑ) 
  ΓΡΑΨΕ 'Μήνες που είχαν ζημία:', Μήνες_με_ζημία
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ Υπολογισμός(Πίνακας1, Πίνακας2): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Πίνακας1[6], Πίνακας2[6] 
  ΑΚΕΡΑΙΕΣ: Ι, Πλήθος
ΑΡΧΗ
  Πλήθος <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
    ΑΝ Πίνακας2[Ι] < Πίνακας1[Ι] ΤΟΤΕ
      Πλήθος <- Πλήθος + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Υπολογισμός <- Πλήθος
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ 


ΠΡΟΓΡΑΜΜΑ Παραγοντικό
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, Παρ
ΑΡΧΗ
  ΓΡΑΨΕ "Δώσε έναν ακέραιο θετικό αριθμό"
  ΔΙΑΒΑΣΕ Ν
  Παρ <- Υπολογισμός(Ν) 
  ΓΡΑΨΕ "Παραγοντικό=", Παρ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ Υπολογισμός(Χ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι, Π, Χ
ΑΡΧΗ
  Π <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Χ
    Π <- Π*Ι
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Υπολογισμός <- Π
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ