Soru = İkili tabanda verilen sayıyı onlu tabana çeviren programı prosedürde yapınız.

Şekli :

Kodlar : 

Procedure TForm1.Button1Click(Sender: TObject);  

Procedure taban; 
var 
b1,b2,b3,b4:integer; a,b,c:integer; s,i:integer;
begin
s:=strtoint(edit1.text);
b1:=s div 1000;
a:=s mod 1000;
b2:=a div 100;
b:=a mod 100;
b3:=b div 10;
b4:=b mod 10;
c:=b4*1+b3*2+b2*4+b1*8;
showmessage('Onluk Tabandaki Değeri : '+inttostr(c));
end; 
begin 
taban;
end;

Çalışma Şekli :

İkili tabandaki bir değeri girdikten Sonra ‘Hesapla' butonuna tıkladığımızda onluk taban karşılığını ekrana bildirir.