Program Konversi Bilangan
Uses WinCrt;
Var
des,desi : integer;
Bin,temp : String;
Begin
Write('Masukkan Suatu Bilangan Desimal :');Readln(des);
desi:=des;
bin:='';
repeat
str(des mod 2, temp);
bin:=temp+bin;
9
des:=des div 2;
writeln(des:4,bin:20);
until des=0;
writeln('(',desi,') desimal =',bin,' (Biner)');
end.
Page Load
0 komentar:
Posting Komentar
Terimakasih sudah berkomentar dengan baik, sopan dan tidak mengandung spam,dimohon untuk tidak meletakan link aktif dalam komentar!!!
Klik Subscribe by email jika ingin mengetahui update komentar pada artikel ini, thank you for visiting
Ttd : Dani Setiadi