Abdulla qodiriy nomidagi jizzax davlat pedagogik instituti

Function ():;

M. Function Min (x,y:Real): Real;

Funksiya nomi foydalanuvchi tamonidan beriladi. Funksiyaga murojaat qilish uning nomi orqali beriladi.

Funksiya ham protseduraga o’xshab bosh va asosiy qismlardan toshkil topadi. Funksiyaning protseduradan farqi, unga murojat qilinganda natija faqat bitta bo’lib, u shu funksiya nomiga uzatiladi.

Misol 1. Јuyidagi hisoblashni funksiyani ishlatgan holda dastursini tuzing.

.

Program Kol;

Var ncm,n,m,l: Integer;

Function Fact (k: Integer): Integer;

Var P,i: Integer;

Begin

P:=1;

For i:=1 to k do P:=P*I;

Fact:=P;

End;

Begin

Read(n,m); l:=n-m;

ncm:=Fact(n)/Fact(m)/Fact(l);

Write(‘ncm=’,ncm);

End.

Misol 2. Quyidagi hisoblashni protsedurani ishlatgan holda dastursini tuzing.

.

Program Fun1;

Var a,b,z,c,d,t1,t2,t3: Real;

Procedure Th(Var x,r: Real);

Var c: Real;

Begin

c:=exp(2.0*x);

r:=(c-1)/(c+1);

End;

Begin

Read(a,b); th(a,t1);

c:=a-b; th(c,t2);

d:=Sqr(a)-Sqr(b); th(d,t3);

z:=(t1+Sqr(t2))/Sqr(t3);

Write(‘z=’,z:10:3);

End.

Oldindan e’lon qilish

Bizga ikki protsedura A va B berilgan bo’lib A protsedura B protseduraga murojaat qilsin va A ta’rifi B ta’rifidan oldin kelsin. Masalan:

Procedure A (i : integer);

begin

V (i);

Writeln(i);

end;

Procedure V (var j : integer) ;

begin

j:=j*2;

end;

Bunday ta’rif xatolikka olib keladi. CHunki A protsedura xali ta’riflanmagan protseduraga murojaat qilmokda. Bu holda B protsedurani quyidagicha oldindan e’lon kilish lozim:

Procedure V (var j : integer); Forward;

Procedure A (i : integer);

begin

V (i);

Writeln(i);

end;

Procedure V (var j : integer) ;

begin

j:=j*2;

end;

Oldindan e’lon qilishda protsedura tanasi standart direktiva Forward bilan almashtiriladi.