Conversion


Voici le code de 4 programmes effectuant les conversions entres les différentes bases numérales. le -- équivaut à la touche sto

Binaire --- Décimale : Saisissez votre nombre puis indiquer le nombre de chiffre.

Prompt N
Prompt L
L -- Dim(L1
for(B,1,L
ipart (( fpart (N/10^B))*10 -- P
P*2^(B-1) -- L1(B
end
Disp sum(L1

Décimal -- Binaire : Saisissez juste votre nombre

0 -- Q
-1 -- I
Prompt N
Reapeat N=0 and T=1
I+1 -- I
N/2--P
ipart(P) -- P
N-(P*2) -- I
Q+(T*10^I) -- Q
P -- N
end
disp Q

Hexadécimal -- Décimal : Saisissez le nombre de chiffre de votre nombre puis saisissez le nombre chiffre par chiffre en allant de la droite vers la gauche.

1/16 -- G
10 -- A
11 -- B
12 -- C
13 -- D
14 -- E
15 -- F
Prompt L
L -- Dim(L1
for (B,1,L
Prompt N
N -- L1(B
End
for (B,0,L-1
G*16 -- G
L1(B+1)*G--L1(B+1
end
Disp sum(L1

Décimal -- Hexadécimal : Saisissez juste votre nombre

Clrhome
0 -- Q
17 -- I
Prompt N
Reapeat N=0 and P=1 or P=0
I-1 -- I
N/16--P
ipart(P) -- P
N-(P*16) -- I
If T=10
OutPut(2,I,"A"
If T=11
OutPut(2,I,"B"
If T=12
OutPut(2,I,"C"
If T=13
OutPut(2,I,"D"
If T=14
OutPut(2,I,"E"
If T=15
Output(2,I,"F"
If T<10
Output(2,I,T
P -- N
end