!******************************************************************************************************
!*Να γινει προγραμμα το οποιο δεχεται απο τον χρηστη εναν αριθμο , τη βαση του αριθμιτικου συστηματος *
!*το οποιο βρισκεται και την βαση του αριθμιτικου συστηματος στο οποιο οποιο θελουμε να μετατραπει . *
!*το προγραμμα τυπωνει τον αριθμο στο νεο αιυμιτικο προγραμμα . *
!* *
!*Σημειωση *
!*1) Τα συστηματα ειναι τα εξης 2δικο , 8δικο , 16δικο , 10δικο *
!*2) Δεινοντι οι τελεστες ''mod'' και ''div''. *
!******************************************************************************************************
ΠΡΟΓΡΑΜΜΑ arithmitikes_baseis
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: x,vasi,vasi1
ΧΑΡΑΚΤΗΡΕΣ: y
ΑΡΧΗ
ΓΡΑΨΕ '****************************************************************************************'
ΓΡΑΨΕ '* **Made by periptero** *'
ΓΡΑΨΕ '* ** Έκδοση 1.0 ** *'
ΓΡΑΨΕ '* **Δεν περιέχει μετατροπή από 16αδικό στα άλλα αριθμητικά συστήματα** *'
ΓΡΑΨΕ '* **Υπολογίζει μέχρι τον αριθμό *1048575* στο δυαδικό σύστημα** *'
ΓΡΑΨΕ '****************************************************************************************'
ΓΡΑΨΕ 'Δώσε τη βάση του αριθμητικού συστήματος'
ΓΡΑΨΕ '2αδικό (2), 8αδικό (8), 16αδικό (16), 10αδικό (10)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ vasi
ΑΝ vasi<>2 ΚΑΙ vasi<>10 ΚΑΙ vasi<>16 ΚΑΙ vasi<>8 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσατε λάθος βάση. Παρακαλώ διαλέξτε έναν αριθμό ανάμεσα στους 2,8,16,10'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ vasi=2 Η vasi=8 Η vasi=16 Η vasi=10
ΓΡΑΨΕ 'Δώσε τον αριθμό :'
ΑΝ vasi=16 ΤΟΤΕ
ΔΙΑΒΑΣΕ y
ΑΛΛΙΩΣ
ΔΙΑΒΑΣΕ x
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Δώσε τη βάση του αριθμητικού συστήματος στην οποία θέλετε να μεταρέψετε τον αριθμό'
ΓΡΑΨΕ '2αδικό (2), 8αδικό (8), 16αδικό (16), 10αδικό (10)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ vasi1
ΑΝ vasi1<>2 ΚΑΙ vasi1<>10 ΚΑΙ vasi1<>16 ΚΑΙ vasi1<>8 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσατε λάθος βάση. Παρακαλώ διαλέξτε έναν αριθμό ανάμεσα στους 2,8,16,10'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ vasi1=2 Η vasi1=8 Η vasi1=16 Η vasi1=10
ΚΑΛΕΣΕ metatropi(vasi,vasi1,x,y)
ΑΝ vasi1=16 ΤΟΤΕ
ΓΡΑΨΕ 'O αριθμός που ζητάτε είναι ο :',y
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'O αριθμός που ζητάτε είναι ο :',x
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ metatropi(v,v1, arithmos,arithmos1)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,p[20],temp,temp1,a[20],v,v1,arithmos,temp2
ΧΑΡΑΚΤΗΡΕΣ: arithmos1,z, z1[4]
ΑΡΧΗ
ΑΝ v=2 ΤΟΤΕ
ΑΝ v1=8 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 2
arithmos <-- arithmos DIV 10
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
temp1 <-- temp1+p[i]*2^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ (temp DIV 3)+1
a[i] <-- temp1 MOD 8
temp1 <-- temp1 DIV 8
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ (temp DIV 3)+1
arithmos <-- arithmos+ a[i]*10^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ v1=10 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 2
arithmos <-- arithmos DIV 10
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
arithmos <-- arithmos+p[i]*2^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ v1=16 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 2
arithmos <-- arithmos DIV 10
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
temp1 <-- temp1+p[i]*2^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ (temp DIV 4)+1
a[i] <-- temp1 MOD 16
temp1 <-- temp1 DIV 16
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
arithmos1 <-- ''
ΓΙΑ i ΑΠΟ (temp DIV 4)+1 ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
temp2 <-- a[i]
z <-- dekaxi(temp2)
arithmos1 <-- arithmos1+z
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ v=8 ΤΟΤΕ
ΑΝ v1=2 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 10
arithmos <-- arithmos DIV 10
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
temp1 <-- temp1+p[i]*8^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ (temp * 3)+1
a[i] <-- temp1 MOD 2
temp1 <-- temp1 DIV 2
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ (temp * 3)+1
arithmos <-- arithmos+ a[i]*10^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ v1=10 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 10
arithmos <-- arithmos DIV 10
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
arithmos <-- arithmos+p[i]*8^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ v1=16 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 10
arithmos <-- arithmos DIV 10
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
temp1 <-- temp1+p[i]*8^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ (temp DIV 2)+1
a[i] <-- temp1 MOD 16
temp1 <-- temp1 DIV 16
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
arithmos1 <-- ''
ΓΙΑ i ΑΠΟ (temp DIV 2)+1 ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
temp2 <-- a[i]
z <-- dekaxi(temp2)
arithmos1 <-- arithmos1+z
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ v=10 ΤΟΤΕ
ΑΝ v1=8 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 8
arithmos <-- arithmos DIV 8
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
arithmos <-- arithmos+ p[i]*10^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ v1=2 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 2
arithmos <-- arithmos DIV 2
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ temp
arithmos <-- arithmos+ p[i]*10^(i-1)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ v1=16 ΤΟΤΕ
i <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
i <-- i+1
p[i] <-- arithmos MOD 16
arithmos <-- arithmos DIV 16
ΜΕΧΡΙΣ_ΟΤΟΥ arithmos =0 Η i > 20
temp <-- i
temp1 <-- 0
arithmos1 <-- ''
ΓΙΑ i ΑΠΟ temp ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
temp2 <-- p[i]
z <-- dekaxi(temp2)
arithmos1 <-- arithmos1+z
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ dekaxi(k) : ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: k
ΑΡΧΗ
ΕΠΙΛΕΞΕ k
ΠΕΡΙΠΤΩΣΗ 0
dekaxi <-- '0'
ΠΕΡΙΠΤΩΣΗ 1
dekaxi <-- '1'
ΠΕΡΙΠΤΩΣΗ 2
dekaxi <-- '2'
ΠΕΡΙΠΤΩΣΗ 3
dekaxi <-- '3'
ΠΕΡΙΠΤΩΣΗ 4
dekaxi <-- '4'
ΠΕΡΙΠΤΩΣΗ 5
dekaxi <-- '5'
ΠΕΡΙΠΤΩΣΗ 6
dekaxi <-- '6'
ΠΕΡΙΠΤΩΣΗ 7
dekaxi <-- '7'
ΠΕΡΙΠΤΩΣΗ 8
dekaxi <-- '8'
ΠΕΡΙΠΤΩΣΗ 9
dekaxi <-- '9'
ΠΕΡΙΠΤΩΣΗ 10
dekaxi <-- 'A'
ΠΕΡΙΠΤΩΣΗ 11
dekaxi <-- 'B'
ΠΕΡΙΠΤΩΣΗ 12
dekaxi <-- 'C'
ΠΕΡΙΠΤΩΣΗ 13
dekaxi <-- 'D'
ΠΕΡΙΠΤΩΣΗ 14
dekaxi <-- 'E'
ΠΕΡΙΠΤΩΣΗ 15
dekaxi <-- 'F'
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ