ΠΡΟΓΡΑΜΜΑ Ασκ_2
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, pos, start, end, μέσο
  ΠΡΑΓΜΑΤΙΚΕΣ: ΒΑΘ[30]
  ΧΑΡΑΚΤΗΡΕΣ: name, ΟΝ[30]
  ΛΟΓΙΚΕΣ: found
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 30
    ΓΡΑΨΕ 'Δώσε όνομα και βαθμό μαθητή', ι
    ΔΙΑΒΑΣΕ ΟΝ[ι], ΒΑΘ[ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Δώσε το προς αναζήτηση όνομα'
  ΔΙΑΒΑΣΕ name
  start <- 1
  end <- 30
  found <- Ψευδής
  ΌΣΟ (start <= end) ΚΑΙ (found = Ψευδής) ΕΠΑΝΑΛΑΒΕ
     μέσο <- (start + end) div 2
     ΑΝ ON[μέσο] = name ΤΟΤΕ
       found <- Αληθής
       ΓΡΑΨΕ 'Ο βαθμός του', name, 'είναι′' ΒΑΘ[μέσο]
     ΑΛΛΙΩΣ_ΑΝ ΟΝ[μέσο] > name ΤΟΤΕ
       end <- μέσο - 1
     ΑΛΛΙΩΣ
       start <- μέσο + 1
     ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ (found = Ψευδής) ΤΟΤΕ
    ΓΡΑΨΕ <- 'Το όνομα δεν βρέθηκε'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ