10luq sistemdən 2lik, 8lik, 16lıq sistemə keçid üçün Pascalda proqram kodu.
Kod:
uses crt;
var
eded,sec,smod,i,d:integer;
ters:array [1..255] of integer;
tersstr:array [1..225] of string;
ssmod:string;
begin
clrscr;
write('10 luq Sistemde Eded Daxil Edin : ');
readln(eded);
writeln('');writeln('');
writeln('* Variantlardan Birini Secin + Enter *');
writeln('');
writeln('2 lik Sisteme Cevirme -1- ');
writeln('8 lik Sisteme Cevirme -2- ');
writeln('16liq Sisteme Cevirme -3- ');
writeln('');writeln('');
write('Seciminiz : ');readln(sec);
smod:=0;
d:=0;
if sec=1 then
begin
repeat
d:=d+1;
smod:=eded mod 2;
eded:=trunc(eded/2);
ters[d]:=smod;
until eded<1;
writeln('');
write('Netice : ');
for i:=d downto 1 do
write(ters[i]);
end;
smod:=0;
d:=0;
if sec=2 then
begin
repeat
d:=d+1;
smod:=eded mod 8;
eded:=trunc(eded/8);
ters[d]:=smod
until eded<1;
writeln('');
write('Netice : ');
for i:=d downto 1 do
write(ters[i]);
end;
smod:=0;
d:=0;
if sec=3 then
begin
repeat
d:=d+1;
smod:=eded mod 16;
eded:=trunc(eded/16);
str(smod,ssmod);
if smod=10 then ssmod:='A';
if smod=11 then ssmod:='B';
if smod=12 then ssmod:='C';
if smod=13 then ssmod:='D';
if smod=14 then ssmod:='E';
if smod=15 then ssmod:='F';
tersstr[d]:=ssmod;
until eded<1;
writeln('');
write('Netice : ');
for i:=d downto 1 do
write(tersstr[i]);
end;
readln;
end.