!================================================================================================
! Να γραφεί ένα πρόγραμμα το οποίο να δέχεται έναν ακέραιο αριθμό Ν και μία βάση μετατροπής b,
! όπου 2<=b<=16 και να μετατρέπει τον αριθμό N σε σύστημα αρίθμησης με βάση b.
! Υπόδειξη: ο αριθμός να ελέγχεται ότι είναι ακέραιος και θετικός.
!
! (Δραστηριότητα ΔΣ4, από το σχολικό ΤΕΤΡΑΔΙΟ του ΜΑΘΗΤΗ, σελιδα 96, κεφ. 9, Πίνακες)
!================================================================================================
ΠΡΟΓΡΑΜΜΑ ΔεκαδικόΣυστημα_σε_ΑλλοΣυστημα
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:i,b,Δ,Ν,ψ,num[30]
ΧΑΡΑΚΤΗΡΕΣ:Α[6]
ΠΡΑΓΜΑΤΙΚΕΣ: temp
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε ακέραιο αριθμό σε δεκαδικό σύστημα'
ΔΙΑΒΑΣΕ temp
ΜΕΧΡΙΣ_ΟΤΟΥ (temp>=1) ΚΑΙ (Α_Μ(temp)=temp)
Ν <-- Α_Μ(temp)
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε βάση μετατροπής (2:δυαδικό, 3:τριαδικό....... 16: δεδακαεξαδικό σύστημα)'
ΔΙΑΒΑΣΕ b
ΜΕΧΡΙΣ_ΟΤΟΥ (b>=2) ΚΑΙ (b<=16)
Α[1] <-- 'Α'
Α[2] <-- 'Β'
Α[3] <-- 'C'
Α[4] <-- 'D'
Α[5] <-- 'E'
Α[6] <-- 'F'
i <-- 1
ΟΣΟ Ν>=(b^i) ΕΠΑΝΑΛΑΒΕ
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Δ <-- i-1
ΓΡΑΨΕ Α_Μ(b^Δ),'<=',Ν,'<=',Α_Μ(b^i)
ΓΡΑΨΕ
ΓΙΑ i ΑΠΟ Δ ΜΕΧΡΙ 0 ΜΕ ΒΗΜΑ -1
ψ <-- Ν DIV Α_Μ(b^i)
ΑΝ ψ<10 ΤΟΤΕ
ΑΝ ψ=1 ΤΟΤΕ
ΓΡΑΨΕ ψ,' ',Α_Μ(b^i),'αδα'
ΑΛΛΙΩΣ
ΓΡΑΨΕ ψ,' ',Α_Μ(b^i),'αδες'
ΤΕΛΟΣ_ΑΝ
num[i+1] <-- ψ
ΑΛΛΙΩΣ
ΓΡΑΨΕ Α[ψ-9],' ',Α_Μ(b^i),'αδες'
ΤΕΛΟΣ_ΑΝ
Ν <-- Ν MOD Α_Μ(b^i)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ b<=10 ΤΟΤΕ
ΓΡΑΨΕ
ΓΡΑΨΕ_ 'ο αριθμός ',Α_Μ(temp), ' στο ',b, 'αδικό σύστημα γράφεται : '
ΓΙΑ i ΑΠΟ Δ+1 ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
ΓΡΑΨΕ_ num[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ