Azad İsa oğlu Qurbanov, Elçin Musa oğlu Məmmədov, Aygün Seyfəddin qızı Hüseynova

Program P_22; 
    Uses Crt; 
    Type f = Function(x,y: Integer): Integer; 
    Var a,b: Integer; 
 
    {$f+} Function Mult(x,y: Integer): Integer;           Begin              
Mult:= x * y; 
    end; 
    {$f-}                                              
 
    Procedure Print(a,b: Integer; Oper: f); 
    Var i, j: Integer;                                Begin 
    For i:=1 To a Do  
        Begin 
        For j:= 1 To b Do Write(Oper(i, j):5); 
        WriteLn 
        End; 
    WriteLn 
    End; 
 
    Begin 
    Write(’Setir ve sutunların sayıni daxil edin’); 
    ReadLn(a, b); 
    Print(a, b, Mult); 
    End. 
2.16. Rekursiyalar 
 
Əgər prosedur və ya funksiyanın gövdəsində cari prosedura və ya dövrü 
olaraq funksiyaya müraciət olunarsa, onda həmin prosedura və ya funksiyaya 

---

 
379
rekursiv prosedur və ya funksiya deyilir
1
. Qeyd edək ki, bir çox riyazi funksiyaları 
rekursiv olaraq təyin etmək mümkündür. Məsələn 
x
y
=
 funksiyasının 
hesablanması rekursiv funksiya vasitəsilə yerinə yetirilə bilər.