Pada kesempatan ini saya akan postingkan program sederhana dari compiler pascal.
Mohon maaf untuk para ahli, bukan untuk menggurui. berikut kodenya:
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;
des:=des div 2;
writeln(des:4,bin:20);
until des=0;
writeln('(',desi,') desimal =',bin,' (Biner)');
writeln;
write('LICENCED BY http.rahmad.co.nr');
end.
Belum ada tanggapan untuk "PROGRAM KONVERSI DESIMAL KE BINER"
Post a Comment