Program Konversi Bilangan Desimal ke Biner
Buatlah program untuk mengkonversi bilangan decimal ke biner.
Contoh : angka 4 à Binernya 00000100 (dalam 8 bit)
Penyelesaian :
Program Dec_to_Biner;
uses wincrt;
var
N,sisa : byte;
S,biner : string;
i : byte;
begin
Write(’Masukkan suatu bilangan Bulat Positif (0..255) : ‘);
readln(N);
biner := ‘’;
while N 1 do
begin
sisa := N mod 2;
N := N div 2;
str(sisa,S);
biner := S + biner ;
end;
str(N,S);
Biner := S + Biner;
if length(biner)< 8 then
Biner := Copy(’00000000′,1,8-length(biner)) + biner;
writeln(’Nilai biner dalam 8 bit adalah ‘,biner);
readkey;
donewincrt;
end.
minta tolong dunk konversi bilangan yan lengkap,misalnya dari biner e hexadecimal dan oktal ke hexadecimal.
Tolong y mas
Terima Kasih
Comment by mba_dica — April 17, 2008 @ 9:04 am
coding di bahasa c gmana?
Comment by hertzz — September 30, 2008 @ 6:09 am