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
