ΠΡΟΓΡΑΜΜΑ Dec2Bin_Sub
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x, i, ψηφία, Α[8] 
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ x
  ΜΕΧΡΙΣ_ΟΤΟΥ x >= 0 ΚΑΙ x <= 255
  ΚΑΛΕΣΕ Dec2Bin(x, ψηφία, Α)
  ΓΙΑ i ΑΠΟ ψηφία ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
    ΓΡΑΨΕ Α[i], '  '
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Dec2Bin(x, ψηφία, Α)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x, ψηφία, Α[8]
ΑΡΧΗ
  ψηφία <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ψηφία <- ψηφία + 1
    Α[ψηφία] <- x mod 2
    x <- x div 2
  ΜΕΧΡΙΣ_ΟΤΟΥ (x = 0) 
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ