Konversi Biner dan Desimal

1)    Konversi Biner

program konversi_biner;

uses wincrt;

var

desimal, d, sisa, biner: longint;

begin

write ('angka desimal='); readln desimal;

d:=0;

repeat

      sisa:= desimal mod 2;

      desimal:= desimal div 2;

      if (d=0) then

                  d:=1;

      else

                  d:=d*10;

      biner:= biner + sisa*d;

      until desimal:= 0;

      write ('biner=', biner);

      end.

2)     Konversi Desimal

program konversi_desimal;

uses wincrt;

var

      biner, desimal, sisa, b: integer;

begin

      desimal:= 0; b:= 1;

      readln (biner);

      repeat

                  biner:= biner div 10;

                  sisa:= biner mod 10;

                  desimal:= desimal + sisa*b;

                  b:= b*2;

      until biner:= 0;

      writeln(desimal);

end.