ΠΡΟΓΡΑΜΜΑ ΜΕΤΑΤΡΟΠΗ_ΑΠΟ_ΔΕΚΑΔΙΚΟ_ΣΕ_ΔΥΑΔΙΚΟ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι , Κ , Ξ , Τ , Ρ , ΜΑΧ , Δ[100] , Ψ[100] , Μ
ΠΡΑΓΜΑΤΙΚΕΣ: Π , Χ
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΕΝΑΝ ΑΡΙΘΜΟ ΓΙΑ ΝΑ ΜΕΤΑΤΡΑΠΕΙ ΑΠΟ ΤΟ ΔΕΚΑΔΙΚΟ ΣΥΣΤΗΜΑ ΣΤΟ ΔΥΑΔΙΚΟ'
ΔΙΑΒΑΣΕ Τ
Χ <-- Τ
Π <-- 0
Ι <-- 0
ΜΑΧ <-- 0
ΟΣΟ Χ-Π<>0 ΚΑΙ Χ>0 ΕΠΑΝΑΛΑΒΕ
Ι <-- Ι + 1
Μ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Μ <-- Μ + 1
Π <-- 2^Μ
ΜΕΧΡΙΣ_ΟΤΟΥ Π>=Χ
ΑΝ ΜΑΧ<Μ ΤΟΤΕ
ΜΑΧ <-- Μ - 1
ΤΕΛΟΣ_ΑΝ
ΑΝ Π>Χ ΤΟΤΕ
Ψ[Ι] <-- Μ - 1
Χ <-- Χ - 2^(Μ-1)
ΑΛΛΙΩΣ_ΑΝ Χ=Π ΤΟΤΕ
Ψ[Ι] <-- Μ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΜΑΧ MOD 7 = 0 ΤΟΤΕ
Κ <-- ΜΑΧ DIV 8
ΑΛΛΙΩΣ
Κ <-- (ΜΑΧ DIV 7)+1
ΤΕΛΟΣ_ΑΝ
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ Κ*8
Δ[Ξ] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ Ι
Ρ <-- Ψ[Ξ]
Δ[Ρ+1] <-- 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ',Τ,'ΣΤΟ ΔΥΑΔΙΚΟ ΣΥΣΤΗΜΑ ΓΡΑΦΕΤΑΙ:'
ΓΙΑ Ξ ΑΠΟ Κ*8 ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
ΑΝ Ξ MOD 8 = 0 ΤΟΤΕ
ΓΡΑΨΕ_ ''
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ_ Δ[Ξ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' ΕΥΧΑΡΙΣΤΩ ΠΟΥ ΧΡΗΣΙΜΟΠΟΙΗΣΕΣ ΤΟ ΠΡΟΓΡΑΜΜΑ.'
ΓΡΑΨΕ ' MADE BY YURIS'
ΓΡΑΨΕ ' 3η ΛΥΚΕΙΟΥ - 2ο ΛΥΚΕΙΟ ΣΠΑΡΤΗΣ.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ