Το Στέκι των Πληροφορικών

ΠΡΟΓΡΑΜΜΑ ASK
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: k, πλ1, πλ2, πλ3, ΑΡΙΘ, max, t1, t2, t3, max2
  ΧΑΡΑΚΤΗΡΕΣ: t1_κατ, t2_κατ, t3_κατ, κατηγ, ΤΙΤΛΟΣ, max_τιτ, max2_k
ΑΡΧΗ
  t1 <- 0
  t2 <- 0
  t3 <- 0
  t1_κατ <- ' '
  t2_κατ <- ' '
  t3_κατ <- ' '
  k <- 0
  πλ1 <- 0
  πλ2 <- 0
  πλ3 <- 0
  max <- -1
  ΔΙΑΒΑΣΕ ΤΙΤΛΟΣ
  ΟΣΟ ΤΙΤΛΟΣ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ ΑΡΙΘ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΑΡΙΘ >= 0
    ΑΝ ΑΡΙΘ > max ΤΟΤΕ
      max <- ΑΡΙΘ
      max_τιτ <- ΤΙΤΛΟΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ ΑΡΙΘ >= 1 ΚΑΙ ΑΡΙΘ <= 180 ΤΟΤΕ
      πλ1 <- πλ1 + 1
      κατηγ <- 'ΧΑΜΗΛΗ'
    ΑΛΛΙΩΣ_ΑΝ ΑΡΙΘ > 180 ΚΑΙ ΑΡΙΘ <= 1400 ΤΟΤΕ
      πλ2 <- πλ2 + 1
      κατηγ <- 'ΜΕΣΑΙΑ'
    ΑΛΛΙΩΣ
      πλ3 <- πλ3 + 1
      κατηγ <- 'ΥΨΗΛΗ'
    ΤΕΛΟΣ_ΑΝ

    ΑΝ ΑΡΙΘ > t3 ΤΟΤΕ
      t1 <- t2
      t2 <- t3
      t3 <- ΑΡΙΘ
      t1_κατ <- t2_κατ
      t2_κατ <- t3_κατ
      t3_κατ <- κατηγ
      ΑΝ t1 <> 0 ΚΑΙ t2 <> 0 ΚΑΙ t3 <> 0 ΤΟΤΕ
        ΑΝ t1_κατ = 'ΧΑΜΗΛΗ' ΚΑΙ t2_κατ = 'ΜΕΣΑΙΑ' ΚΑΙ t3_κατ = 'ΥΨΗΛΗ' ΤΟΤΕ
          k <- k + 1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ
      t1 <- 0
      t2 <- 0
      t3 <- ΑΡΙΘ
      t1_κατ <- ' '
      t2_κατ <- ' '
      t3_κατ <- κατηγ
    ΤΕΛΟΣ_ΑΝ
    ΔΙΑΒΑΣΕ ΤΙΤΛΟΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  max2_k <- 'ΧΑΜΗΛΗ'
  max2 <- πλ1
  ΑΝ πλ2 > max ΤΟΤΕ
    max2 <- πλ2
    max2_k <- 'ΜΕΣΑΙΑ'
  ΤΕΛΟΣ_ΑΝ
  ΑΝ πλ3 > max ΤΟΤΕ
    max2 <- πλ3
    max2_k <- 'ΥΨΗΛΗ'
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ max2_k
  ΑΝ k >= 2 ΤΟΤΕ
    ΓΡΑΨΕ 'ΙΣΧΥΟΥΝ ΟΙ ΠΡΟΫΠΟΘΕΣΕΙΣ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ