Ma'ruza №1 Paskal tilining umumiy tavsifi

FUNCTION F(q1:T; q2:T;.....):Ti;

(parametrlarni tasvirlash va aniqlash bo’limi)

BEGIN P1;

P2;

END;

Bu yerda F- funktsiya nomi; q1,q2,..- formal parametrlar; T- funktsiyaning nomi; Ti- parametrlarni tipi; P1,P2,...- funktsiya tanasini operatorlari.

Misol: n!,m!,(n-m)!ni hisoblash dasturi tuzilsin.

Buni uchun faktorialni hisoblashda funktsiya qism dasturidan foydalanamiz.

Dastur PROGRAM FACTL(INPUT,OUTPUT);

VAR NF,MF, NMF: INTEGER;

FUNCTION FACT(K:INTEGER):INTEGER;

VAR PF,I: INTEGER;

BEGIN

IF K<0 THEN FACT =0 ELSE

IF K=0 THEN FACT =1 ELSE

BEGIN PF:=1;

FOR I:=2 TO K DO PF:=PF*I;

FACT:=PF;

END;

END.

BEGIN

READ (N,M);

NF:=FACT(N);

MF:=FACT(N);

NMF:=FACT(N-M);

WRITE(‘NF=’;NF,’MF=’;MF,’NMF=’;NMF);

END.

(Topshiriq: Ushbu misolni amaliyotda komp'yuterga kiritib tekshirib ko’ring)

Misol: y=ax²+bx+d;

n_i 100 20

a=t_i; b= t_i d=  qi

i=1 i=n_i+1 i=1

j

SUM= masi

i=k funktsiyadan foydalanamiz.
Dastur:

PROGRAM FUNY (INPUT,OUTPUT);

CONST N=100;

TYPE INDEX =1,...,N;

VECT= ARRAY [INDEX] OF REAL;

VAR I,NR,NT,NG: INTEGER;

T,Q: VECT;

Y:REAL;

FUNCTION SUM(MAS:VECT;K:INTEGER;MM:INDEX):REAL;

VAR J:INTEGER;

BEGIN

S:=O;

FOR J:=1 TO MM DO S:=S+MAS(J);

SUM:=S;

END;

BEGIN

READ(NR,NT,NQ);

FOR I:=1 TO NT DO READ(T(I));

FOR J:=1 TO NQ DO READ(Q(I));

Y:=SUM(T,1,NR)*X*X*SUM(T,NR,+1,NT)*X

+SUM(Q,1,NQ);

WRITE(‘Y=’;Y);

END.

Protsedura bir necha natijalarni olish uchun ishlatiladi. Protseduraning umumiy ko’rinishi: