Program Konversi Desimal ke Biner

Contoh 1 :
program konversi_biner;
uses wincrt;
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.

Contoh 2 :
program konversi_biner;
uses wincrt;
var desimal,d,sisa,biner:longint;
begin
write('angka desimal='); readln(desimal);
d:=1;
repeat
sisa:=desimal mod 2;
desimal:=desimal div 2;
biner:=biner+sisa*d ;
d:=d*10;

Hasil :
until desimal=0; write('biner=',biner);
end.