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

Var 
   m: integer; 
   x,y:real; 
Function XN (X:real;N:integer):real; 
begin 
if N=0 then XN:=1 
else 
XN:=X*XN(X,N-1); 
end; 
begin 
      readln (m); 
      readln(x); 
y:=XN(x,m); 
      Write('y=',y); 
end. 
Proqramdan göründüyü kimi, 
m
x
y
=
 funksiyasının hesablanması üçün 
XN
 
funksiyasında m qədər özünə müraciət olunur. 
2.16.1. Forward direktivi 
 
Praktikada ola bilər ki, birinci altproqramdan, müraciət anına qədər hələ 
təyin olunmayan ikinci altproqrama müraciət olunsun. Belə  vəziyyət  əsasən 
vasitəçi rekursiyalarda – prosedurlar və funksiyalar qarşılıqlı olaraq bir-birinə 
müraciət etdikdə baş verir. Bu problemi həll etmək üçün uyğun prosedur və 
funksiyaları 
Forward
  direktivi ilə əvvəlcədən elan etmək lazımdır. Bu məqsədlə 
prosedur və ya funksiyanın başlığından sonra