Forward sözü yazılır. Məsələn,
var n,l:integer; procedure Turqut(i: integer; var l:integer); forward; procedure Azad(i: integer; var l:integer); begin Turqut(i-1,l); end; procedure Turqut(i: integer; var l:integer); begin l:=i*5; end; begin read(n); Azad(n,l); write(l) end.
1
Başqa sözlə funksiya və ya prosedurun özündən özünə müraciət olunduqda onda həmin prosedura
və ya funksiyaya rekursiv prosedur və ya funksiya deyilir.
380
P
roqram yerinə yetirildikdə əsas proqramdan
Azad
proseduruna müraciət
olunur.
Azad
prosedurundan isə öz növbəsindən
Turqut
proseduruna müraciət
olunur.
Turqut
proseduru
Azad
prosedurundan sonra gəldiyinə gorə o, əvvəlcədən