program Desimal_menjadi_biner;
uses wincrt;
var
des,desi : Integer;
bin : string;
ul : char;
begin
repeat
clrscr;
writeln ('Program Konversi Desimal Menjadi Biner ');
writeln ('====================================== ');
writeln;
write ('Masukkan 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;
writeln(Desi,' Desimal : ',bin,' Biner');
writeln;
write ('Mau Data Ulang Lgi? [Y/T] : ' );readln(ul);
ul:=upcase(ul);
until (ul<>'Y');
end.
