Untuk para Mahasiswa IT yang kesulitan mencari konversi desimal ke biner.
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.
Artikel keren lainnya:
Belum ada tanggapan untuk "PROGRAM KONVERSI DESIMAL KE BINER"
Post a Comment