ΠΡΟΓΡΑΜΜΑ Bin2Dec
ΣΤΑΘΕΡΕΣ
  N = 8
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: j, A[N], dec
ΑΡΧΗ
  ΚΑΛΕΣΕ Περιγραφή(j) 
  ΚΑΛΕΣΕ Δυαδικός(A, N) 
  dec <- Δεκαδικός(A, N) 
  ΚΑΛΕΣΕ Εκτύπωση(dec) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Περιγραφή(j) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: j
ΑΡΧΗ
  ΓΡΑΨΕ "Το πρόγραμμα :"
  ΓΡΑΨΕ "1. Ζητά 8 δυαδικά ψηφία και τα αποθηκεύει σε πίνακα"
  ΓΡΑΨΕ "2. Μετατρέπει τον δυαδικό αριθμό σε δεκαδικό αριθμό"
  ΓΡΑΨΕ "3. Εκτυπώνει τον δεκαδικό αριθμό"
  ΓΡΑΨΕ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ Δυαδικός(A, N) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, A[8], N
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ "Δώστε το ", i, "ο δυαδικό ψηφίο [0 ή 1] : "
      ΔΙΑΒΑΣΕ A[i] 
    ΜΕΧΡΙΣ_ΟΤΟΥ A[i] = 0 Η A[i] = 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ Δεκαδικός(A, N): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: j, A[8], N, s
ΑΡΧΗ
  s <- 0
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ N
    s <- s + Α_Μ(A[j]*2^(8 - j)) 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Δεκαδικός <- s
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ Εκτύπωση(dec) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: dec
ΑΡΧΗ
  ΓΡΑΨΕ "Ο δεκαδικός αριθμός είναι ο ", dec
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ