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

program XN; 
var 
n:integer; 
x,y:real; 
procedure step1(m:integer; x:real;var y:real); 
var 
i:integer; 
begin 
y:=1; 
for i:=1 to m do 
y:=y*x; 
end; 
begin 
          writeln (' x,n -i daxil edin') ; 
readln (x,n); 
If n=0 then y:=1 
else 
if n>0 then step1(n,x,y) 
else 
step1(n,1/x,y); 
writeln (x:4:2,' ustu ',n:3,' ðàâíî ',y:4:2); 
end. 
Proqram yerinə yetirildikdə monitora x və n qiymətlərinin daxil edilməsi 
haqqında məlumat əks olunur. İstifadəçi x və n-in qiymətlərini daxil etdikdən sonra 
n-in qiyməti yoxlanılır. 
0
=
n
 olduqda 
0
=
y
 olur. 
0
>
n
 olduqda 
n
x
y
=
 
funksiyasını hesablamaq üçün 
step1
 proseduruna müraciət olunur. Bu zaman 
prosedurun 
m, x 
formal parametrlərinin qiyməti 
n,x
 faktiki parametrlərin 
qiymətləri ilə  əvəz olunur, hesablama aparılır və  nəticə - 
y 
əsas proqrama 
qaytarılır. Bundan sonra çıxış proseduru vasitəsilə  nəticə operativ yaddaşdan 
monitora göndərilir. 
Parametr – sabit adından məlum olduğu kimi əsas proqramdan prosedura 
hər hansı sabitin ötürülməsini təmin edir. Parametr-sabit prosedurun başlığında 
const
 işçi sözü ilə birlikdə təsvir olunmalıdır.  
 
Eyni bir proqramda bir neçə prosedur ola bilər. Bir neçə prosedur bir-birinin 
daxilində yerləşə bilər. Bu prosedurlara müraciət etmə qaydası yuxarıdan aşağıya 
doğru, yəni xarici prosedurdan daxili prosedura doğru olur. 
 Proqramlaşdırıcı tərəfindən təyin olunan funksiya başlıqdan və funksiyanın 
gövdəsindən ibarətdir. Başlıq 
Function
 sözündən, funksiyanın adından, dairəvi 
mötərizənin içərisində formal parametrlərin siyahısından və funksiyanın qiymətinin 
tipindən ibarət ola bilər. Prosedurlarda olduğu kimi funksiyalarda da formal 
parametrlər zəruri olduğu halda yazılır. 
 Yazılış formatı aşağıdakı kimidir: