PROGRAM KONVERSI

program konversi_biner_desimal;

uses wincrt;

var

   desimal,d,sisa,biner:integer;

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.

program konversi_desimal_biner;

uses wincrt;

var

   desimal,d,biner,sisa:longint;

begin

     write('Biner = ');readln(biner);

     d:=0;

     repeat

     sisa:=biner mod 10;

     biner:=biner div 10;

     if (d=0) then

     d:=1

     else

     d:= d*2;

     desimal:=desimal+sisa*d;

     until biner=0;

     write('Angka Desimal = ',desimal);

end.