Convert Bilangan Menggunakan Pascal

Convert Desimal Ke biner Menggunakan Pascal

uses crt;
var
des,desi:integer;
bin:string;
lagi:char;
begin
lagi:='Y';
while (lagi='Y') or (lagi='y') do
begin
clrscr;
writeln('Nama: Devictor Dara');
writeln('Nim : 08210064 ');
writeln;
write('Masukan Suatu Bilangan Desimal : ');readln(des);
desi:=des;
bin:='';
repeat
if(des mod 2=0) then bin:='0'+bin
else bin:='1'+bin;
des:=des div 2;
until des=0;
writeln('(',desi,') Desimal =',bin,' (Biner)');
write('Menghitung Lagi (Y/T) )? ');
readln(lagi);
end;
end.

Convert Desimal Ke Hexadesimal

uses crt;
var
bil,sisa,hasil,i:integer;
a,x:string;
lagi:char;
begin
lagi:='Y';
while (lagi ='Y') or (lagi ='y') do
begin
clrscr;
writeln('Nama :Devictor Dara');
writeln('Nim :08210064 ');
writeln;
write('Masukan Bilangan Desimal : ');
readln(bil);
sisa:=bil;
hasil:=bil;
a:='';
repeat
sisa:=hasil mod 16;
hasil:=hasil div 16;
str(sisa,x);
case sisa of
10: x:='A';
11: x:='B';
12: x:='C';
13: x:='D';
14: x:='E';
15: x:='F';
end;
a:=a+x;
until hasil=0;
write('Bilangan Hexadesimalnya Adalah : ');
for i:=length(a) downto 1 do
begin
write(a[i]);
end;
writeln;
write('Mau Menghitung Lagi (Y/T) ?');
readln(lagi);
end;
end.


Convert Desimal Ke Octal

uses crt;
var
bil,sisa,hasil,i:integer;
a,x:string;
lagi:char;
begin
lagi:='Y';
while (lagi ='Y') or (lagi ='y') do
begin
clrscr;
writeln('Nama :Devictor Dara');
writeln('Nim :08210064 ');
writeln;
write('Masukan Bilangan Desimal : ');
readln(bil);
sisa:=bil;
hasil:=bil;
a:='';
repeat
sisa:=hasil mod 8;
hasil:=hasil div 8;
str(sisa,x);
a:=a+x;
until hasil=0;
write('Bilangan oktalnya Adalah : ');
for i:=length(a) downto 1 do
begin
write(a[i]);
end;
writeln;
writeln('Mau Menghitung Ulang (Y/T) ? ');
readln(lagi);
end;
end.