Sungguh Sangat-sangat pusing saat Dikasih tugas sama dosen disuruh bikin program dari Biner ke Desimal. Yang paling membingungkan saat bagaimana cara mempangkatkannya agar bisa perkalian 2. Ma'lum gue baru pemula baru kenal komputer semenjak pertama kuliah., pertama kuliah disuruh bikin e-mail pun gue ga bisa. Apalagi saat disuruh sebutin komponen-komponen apa aja yang ada di komputer dalam pikiran gue kosong ga tau apa-apa. yang gue tau hanya colokan buat ke listrik.

Tapi dengan banyak mencoba akhirnya selesai juga Program Konversi dari Biner ke Desimal.
Hasilnya Bisa dilihat dibawah 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.



Selamat Mencoba!!!
Tugas berikutnya masih menunggu....."?!