Soru = Klavyeden girilen sayıyı fonksiyonda faktoriyelini alan programı fonksiyonda yapınız.

Şekli :

Kodlar :

Function faktoriyel(n:integer; var  f:integer):integer;
var
i:integer;
begin 
f:=1;
if n>19  then showmessage('Sayı 20den Küçük Olmalıdır')
else
For i:=1 to n do
f:=f*i;
end;

 
Procedure TForm1.Button1Click(Sender: TObject);
var
sayi:integer;
sonuc:integer;
begin
sayi:=strtoint(edit1.Text);
faktoriyel(sayi,sonuc);
label3.Caption:=floattostr(sonuc);
end;

 
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
label3.Caption:='';
end;

 
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;

Çalışma Şekli :

Bu programda ise klavyeden girilen sayının faktoriyelini bulur. temizle butonu ise edit ve labeli sıfırlar.çıkış ise bu programdan çıkmak kullanılır.