Program Sederhana Pascal Konversi Biner Ke Desimal

Program Sederhana Pascal Konversi Biner Ke Desimal - Sebelumnya saya sudah pernah menulis artikel mengenai program konversi desimal ke biner sekarang saya kan menulis artikel sebaliknya yaitu program konversi dari biner ke desimal. memang ketika kita bicara masalah biner lumayan memusingkan disini saya akan mempermudah anda untuk belajar mengkonversi bilangan biner ke desimal. program pascal 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.

Baca juga : Program Pascal Untuk Membuat Segitiga Angka Dengan Array

Program Sederhana Pascal Konversi Biner Ke Desimal anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.