Program Konfersi Bilangan




Program konfersi bilangan;
Uses wincrt;
var
des,desi : integer;
bin,temp :string;

begin
write('masukan suatu bilangan desimal : ');readln(des);
desi:=des;
bin:='';

repeat
str(des mod 2, temp);
bin:=temp+bin;
des:=des div 2;
writeln(des:4,bin:20);
until des=0;
writeln('(',desi,') desimal =',bin,' (biner)');
end.