Структура и синтаксис процедуры

Процедура пользователя представляет собой именованную группу операторов, реализующую часть общей задачи. Процедура отличается от функции способом вызова и возврата управления. Процедура работает с параметрами значениями (ис­ходными данными), и параметрами переменными, которые используются для воз­вращения в качестве результатов переменных скалярного или структурированно­го типа. Схематично (в виде черного ящика) процедуру можно отобразить следую­щим образом (рис. 5.5).

Исходные данные	Глобальные или локальные переменные более высоких уровней	Результаты расчетов
Параметры процедуры (параметры значения)		Формальные параметры	Алгоритм процедуры	Формальные параметры		Параметры процедуры (параметры переменные)

Рис. 5.5. Схема процедуры

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

Процедура, описанная пользователем, в общем случае имеет синтаксис:

PROCEDURE < имя > [(< список формальных параметров >)]; { Заголовок }

< Разделы описаний > { Тело процедуры }

BEGIN

< Раздел операторов >

END;

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

Подстановка фактических параметров вместо формальных осуществляется механизмом замены, который обеспечивает многократное выполнение процедуры с различными исходными данными и помещает результаты вычислений в перемен­ные, задаваемые пользователем.

Пример 51. Используя принцип модульного проектирования программ разрабо­тать программу вычисления произведения двух матриц С = А х В по формуле:

где A_j,k – элементы прямоугольной матрицы A_mxp ; m – число строк матрицы A_mxp ; р – число столбцов A_mxp, и число строк матрицы B_pxn; B_k,j – компоненты матрицы B_pxn, n – число столбцов матрицы B_pxn; С_i,j – компоненты матрицы C_mxn, получае­мые в результате умножения.

PROGRAM PR51;

TYPE MAT = ARRAY [1..10, 1..10] OF REAL;

VAR AF, BF, CF: MAT; MF, NF, PF: INTEGER;

PROCEDURE MOD1(CH:CHAR; VAR M, N: INTEGER; VAR W: MAT);

VAR I, J: INTEGER;

BEGIN { Ввод матрицы W, размерностью M на N}

WRITELN('Введите размерность М и N матрицы ', СН);

READLN(M, N);

WRITELN('Введите матрицу', СН);

FOR I := 1 ТО М DO FOR J := 1 ТО N DO READ (W[I, J]);

END; {MODI }

PROCEDURE MOD2(M, P, N: INTEGER; A, B: MAT; VAR C: MAT);

VAR I, J, K: INTEGER;

BEGIN {Умножение матриц А и В}

FOR I := 1 TO M

DO FOR J:=l TON DO BEGIN

C[I,J]:=0;

FOR K:=1 TO P

DO C[I,J]:=C[I,J] + A[I,K]*B[K,J]

END

END; {MOD2}

PROCEDURE MOD3(CH: CHAR; M, N: INTEGER; W: MAT); VAR I. J^: INTEGER;

BEGIN { Отображение матрицы W, размерностью M на N }

WRlTELN('Матрица', СН, ':');

FOR I:=1 TO M

DO BEGIN

FOR J := 1 TO N DO WRITE(W[I, J]: 10:5);

WRITELN

END

END; {MOD3}

BEGIN {Тело программы}

MOD1('A', MF, PF, AF); { Ввод матрицы А, размерностью MF на PF}

MOD1('B', PF, NF, BF); { Ввод матрицы В, размерностью PF нa NF}

MOD2(MF, PF, NF, AF, BF, CF); { Умножение матриц А и В }

MOD3('C', MF, NF, CF) { Отображение матрицы С, размерностью MF на NF}

END.