Program Pascal Mengubah Bilangan Desimal ke Bilangan Biner

var
  a,b,c,e,f:integer;
  d:array [1..255] of integer;

begin
write('masukkan sebuah bilangan desimal! '); readln(a);
write('Bilangan biner dari bilangan desimal ',a,' adalah: ');
e:=a;

repeat
b:=b+1;
c:= trunc (a/2);
d[b]:=a mod 2;
a:=c;
if (c=1) then
begin
  b:=b+1;
  d[b]:=1;
end;
until c=1;

for f:=1 to b do
begin
  c:= trunc (e/2);
  d[f]:=e mod 2;
  e:=c;
end;

for f:= b downto 1 do
begin
  write(d[f]);
end;

readln
end.

Jika program tersebut dijalankan:

masukkan sebuah bilangan desimal! 17 Bilangan biner dari bilangan desimal 17 adalah: 10001

Jika ada yang dirasa kurang mengerti silakan ditanya... : )
Semoga membantu, terimakasih... :)

Posted in: