Вызов процедуры

Вызов процедуры - это отдельный оператор, в котором указывается

<Имя процедуры> [(<список фактических параметров>)].

Фактические параметры в списке перечисляются через запятую.

Примеры вызовов процедур:

Drawline;

Kvadrant(2,3);

Kvadrant(y,z);

Kvadrant(x+y,z+2)

Sort(n,a);

Amax(n,x,xmax,imax,jmax);

Примеры использования подпрограмм-процедур

Задача 1: найти среднее арифметическое двух пар чисел А и В, С и D.

Program Primer_Procedure_1;

Var

A, B, C, D, S1, S2: real;

Procedure Sum (N, M: integer; var S:real); {заголовок процедуры}

Begin {раздел операторов процедуры}

S:= (N + M) / 2

End; {конец описания процедуры }

Begin {начало основной программы}

Writeln(’Введите 4 числа’);

Readln(A,B,C,D);

Sum(A, B, S1 ); {вызов процедуры с фактическими параметрами A, B, S1}

Sum(C, D, S2) {вызов процедуры с фактическими параметрами C,D, S2}

Writeln (’S1=’, S1:6:2,’S2=’, S2:6:2)

End.

Задача 2: найти сумму элементов главных диагоналей матриц A(n,n) и B(m,m) (n<=10, m<=15).

Program Primer_Procedure_2;

Const

Nmax=15;{ наибольшее количество строк и столбцов матриц А и В}

Type

tmatr=array[1..Nmax, 1..Nmax] of real; { матричный тип }

Var {описание глобальных переменны }

A, B: tmatr;

n, m: byte;

Sa, Sb, Sab:real;

procedure EnterMatr(var matr: tmatr; var nm: byte; ch:char);

Var

i, j: byte;

Begin

write(‘Введите размерность квадратной матрицы ’,ch);

Дата добавления: 2015-07-10