program sederhana pascal konversi biner ke desimal

Sebelumnya saya sudah pernak menulis artikel mengenai program konversi desimal ke biner sekarang saya kan menulis artikel sebaliknya yaitu progema konversi dari biner ke desimal. memang ketika kita bicara masalah biner lumayan memusingkan disini saya akan mempermudah anda untuk belajar mengkonversi bilangan desimal ke biner. program ini memang cukup sederhana dan singkat langsung saja lihat script programnya di bawah ini :

program biner_ke_desimal;

type input=string[16];

procedure bin2dec(s:input;var k:word);
var i,j,a:integer;

begin
     if s[length(s)]='1' then k:=1;
          for i:=length(s)-1 downto 1 do
     if s[i]='1' then
          begin
               a:=1;
               for j:=i to length(s)-1 do a:=a*2;
               k:=k+a;
     end;
end;

var
hasil : word;
data : input;

begin
readln(data);

bin2dec(data,hasil);

writeln(hasil);
readln;
end.

Agar lebih mempermudah anda dalam mempelajarinya saya sarankan jangan langsung mengcopasnya akan tetapi anda ketik sendiri sehingga anda dapat mengerti inti program ini.