Referensi Biner - Pascal

program konversi_biner;

uses wincrt;

var des,i,si,bin:longint;

begin

write('Angka Desimal = ');readln(des);

i:=0;

repeat

      si:=des mod 2;

      des:=des div 2;

      if (i=0)then

         i:=1

      else

          i:=i*10;

          bin:=bin+si*i

until des=0;

write ('Biner= ',bin);

end.

Sumber

program bintodes;

uses wincrt;

var bilbin : string;

function pank(a, b : integer) : integer;

var i, hasil : integer;

begin

   hasil := 1;

   for i:=1 to b do

   begin

       hasil := hasil * a;

   end;

   pank := hasil;

end;

function b2d(biner : string) : integer;

var n, sum, i : integer;

begin

   n := length(biner);

   sum := 0;

   for i:= n-1 downto 0 do

   begin

       if (biner[n-i] = '0') then sum := sum + 0 * pank(2, i)

       else if (biner[n-i] = '1') then sum := sum + 1 * pank(2, i);

   end;

   b2d := sum;

end;

begin

     write('Masukan Angka BIner: ');Readln(bilbin);

   write('Bilangan desimalnya : ', b2d(bilbin));

end.

Sumber