ΠΡΟΓΡΑΜΜΑ δυαδική_αναζήτηση
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: A[15], Left, Right, M, S, i
  ΛΟΓΙΚΕΣ: f
ΑΡΧΗ
  ΓΡΑΨΕ 'Εισάγετε αριθμούς σε αύξουσα διατάξη'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
    ΓΡΑΨΕ 'Δώσε το ', i, ' στοιχείο του πίνακα'
    ΔΙΑΒΑΣΕ A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "ΠΙΝΑΚΑΣ"
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
    ΓΡΑΨΕ A[i], "   "
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΓΡΑΨΕ 'Δωσε τιμή για αναζήτηση: '
  ΔΙΑΒΑΣΕ S
  Left <- 1
  Right <- 15
  f <- ΨΕΥΔΗΣ
  ΟΣΟ (Left <= Right) ΚΑΙ (f = ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
    M <- (Left + Right) div 2
    ΑΝ A[M] = S ΤΟΤΕ
      f <- ΑΛΗΘΗΣ
    ΑΛΛΙΩΣ
      ΑΝ A[M] < S ΤΟΤΕ
        Left <- M + 1
      ΑΛΛΙΩΣ
        Right <- M - 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ f = ΑΛΗΘΗΣ ΤΟΤΕ
    ΓΡΑΨΕ "Το στοιχείο,", S, " υπάρχει στη θέση:", M
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ "Το στοιχείο,", S, " δεν υπάρχει στον πίνακα"
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ