Soru = 2¹,2²,2³…2²º sonuçlarını görüntüleyen programı fonksiyonda yapınız. 

Şekli : 

Kodlar : 

Function us1(x,y:integer):Longint; 
var 
m,sayi:longint; 
begin 
sayi:=1; 
for m:=1 to y do 
sayi:=sayi*x; 
us1:=sayi; 
end;

Procedure TForm1.Button1Click(Sender: TObject); 
var 
k,sonuc:longint; 
begin 
Label1.caption:='2¹,2²,2³…2²º Sonuçları :'; 
for k:=1 to 20 do 
begin 
sonuc:=us1(2,k); 
listbox1.items.add(inttostr(sonuc)); 
end; 
end; 

Çalışma Şekli :

‘Hesaplaması' butonuna tıkladığımızda '2¹,2²,2³…2²º Sonuçları liste şeklinde gösterir