ΠΡΟΓΡΑΜΜΑ Bin2Dec
ΣΤΑΘΕΡΕΣ
  N = 8
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, A[N], s
ΑΡΧΗ
  ΓΡΑΨΕ "Το πρόγραμμα :"
  ΓΡΑΨΕ "1. Ζητά 8 δυαδικά ψηφία και τα αποθηκεύει σε πίνακα"
  ΓΡΑΨΕ "2. Μετατρέπει τον δυαδικό αριθμό σε δεκαδικό αριθμό"
  ΓΡΑΨΕ "3. Εκτυπώνει τον δεκαδικό αριθμό"
  ΓΡΑΨΕ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ "Δώστε το ", i, "ο δυαδικό ψηφίο [0 ή 1] : "
      ΔΙΑΒΑΣΕ A[i]
    ΜΕΧΡΙΣ_ΟΤΟΥ A[i] = 0 Η A[i] = 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  s <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    s <- s + Α_Μ(A[i]*2^(N - i))
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Ο δεκαδικός αριθμός είναι ο ", s
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ