Biner ke desimal
program konversi_biner;
uses crt ;
var desimal, d, sisa, biner: integer;
begin
write(‘angka desimal=’); readln(desimal);
d:=0;
repeat
sisa:= desimal mod 2;
desimal:=desimal div 2
if d=0 then
d:=1
else d:=d*10;
biner:=biner+sisa*d;
until desimal=0;
write(‘biner=’,biner);
end.
Desimal ke biner
program konversi_desimal;
uses crt;
var
des :integer;
bin:string;
begin
write('masukkan bilangan desimal:');
readln(des);
bin:='';
repeat
begin
{menghitung biner dari sisa hasil bagi;};
if des mod 2=0 then bin :='0'+bin else bin:='1'+bin;
des:=des div 2;
end;
until des=0;
writeln('bilangan biner:',bin);
end.
