Реферат: Процедуры и функции в языке Паскаль

BEGIN {STEP3}

Y:=1;

FOR I:=1 TO N DO

Y:=Y*N;

SYEP3:=Y

END; {STEP3}

BEGIN

READ (A,M);

WRITELN (‘A=’, A, ‘M=’, M);

Z:=STEP3(5,A)+STEP3(5, 1/A);

IF M=0 THEN R:=1

ELSE IF M>0 THEN R:=STEP3(M,A)

ELSE R:=STEP3(M,1/A);

Z:=Z/(2*R);

WRITELN (‘ Z =’, Z )

END .

Функция STEP 3 вызывается четыре раза для различных значений фактических параметров. Определение фактических и формальных параметров, локальных и глобальных переменных для функций и процедур совершенно идентично.

Процедуры могут работать не только с простыми переменными, но и с массивами. В качестве примера рассмотрим следующую задачу.

Даны два вектора: А, состоящий из трех элементов, и В, состоящий из четырех элементов. Возвести каждый элемент вектора в квадрат и найти сумму элементов. Действия над векторами оформить в виде процедуры.

PROGRAM SUMMA ;

TYPE MAX = ARRAY [1..4] OF REAL ;

VAR S1, S2: REAL;I: INTEGER;

A,B: MAX;

PROCEDURE PR(N: INTEGER;VAR S: REAL;VAR C: MAX );

VAR I: INTEGER;

BEGIN

S:=0;

FOR I:=1 TO N DO

BEGIN