Ii. Operatorlar, protsedura va funksiyalar

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;