Program Konversi Bilangan Desimal ke Biner ( dalam 8 bit )

PASCAL

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.