Γράψε
"--------------------------------------------------"
Γράψε
"Μετατροπή θετικού ακέραιου δεκαδικού αριθμού στο δυαδικό σύστημα"
Γράψε
"--------------------------------------------------"
ΔΥΑΔΙΚΟΣ <- ""
ΔΕΚΑΔΙΚΟΣ <- 50
Γράψε
"Δεκαδικός αριθμός: ", ΔΕΚΑΔΙΚΟΣ
Αρχή_Επανάληψης
ΥΠΟΛΟΙΠΟ <- ΔΕΚΑΔΙΚΟΣ mod 2
ΔΥΑΔΙΚΟΣ <- ΥΠΟΛΟΙΠΟ + ΔΥΑΔΙΚΟΣ
ΔΕΚΑΔΙΚΟΣ <- ΔΕΚΑΔΙΚΟΣ div 2
Γράψε
"Σε δυαδική μορφή: ", ΔΥΑΔΙΚΟΣ
Γράψε
"--------------------------------------------------"
Γράψε
"--------------------------------------------------"
Γράψε
"Μετατροπή αριθμού από το δυαδικό στο δεκαδικό σύστημα"
Γράψε
"--------------------------------------------------"
ΔΥΑΔΙΚΟΣ <- [1,0,1,0]
ΠΛΗΘΟΣ <- 4
ΘΕΣΗ <- ΠΛΗΘΟΣ - 1
ΔΕΚΑΔΙΚΟΣ <- 0
Για
i
Από
1
Μέχρι
ΠΛΗΘΟΣ
Με_Βήμα
1
Αν
ΔΥΑΔΙΚΟΣ[i] = 1
Τότε
ΔΥΝΑΜΗ <- 2^ΘΕΣΗ
ΔΕΚΑΔΙΚΟΣ <- ΔΕΚΑΔΙΚΟΣ + ΔΥΝΑΜΗ
Γράψε
"2^", ΘΕΣΗ, "=", ΔΥΝΑΜΗ
Τέλος_Αν
ΘΕΣΗ <- ΘΕΣΗ - 1
Τέλος_Επανάληψης
Γράψε
"--------------------------------------------------"
Γράψε
"Σε δεκαδική μορφή: ", ΔΕΚΑΔΙΚΟΣ
Γράψε
"--------------------------------------------------"