WRITELN. В этом описании L и К - формальные параметры, у которых указан тип INTEGER.

END

END;

В этом описании L и К - формальные параметры, у которых указан тип INTEGER.

Переменные I и J - локальные, они нужны только внутри са­мой процедуры.

PROGRAM PG9_1;

CONST U = 100;

VAR N, M: INTEGER;

T: ARRAY[1..U, 1..U] OF INTEGER;

PROCEDURE TAB(VAR L, К: INTEGER);

VAR I, J: INTEGER;

BEGIN

FOR I:= 1 TO L DO

BEGIN

FOR J:= 1 TO К DO

BEGIN

WRITE('T [', I,',', J,'] =');

READ(T[I,J])

END;

WRITELN

END

END;

BEGIN

WRITELN('BBEДИTE РАЗМЕР МАТРИЦЫ N X M');

WRITE('N =');

READ(N);

WRITE('M =');

READ(M);

TAB(N, M)

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- создаем описание процедуры TAB;

- вводим два натуральных числа N и М, соответствующих строкам и столбцам матрицы;

- вызываем процедуру TAB(N, M) с фактическими парамет­рами N и М;

- завершаем работу программы.

Переменные: в процедуре TAB:

Т - вводимая матрица (глобальная переменная);

I, J - вспомогательные переменные цикла (локальные переменные);

в основной программе:

Т - вводимая матрица (глобальная переменная);

N, М - размеры матрицы (глобальные переменные).

Задача 9.2 Написать процедуры ввода и вывода элементов матрицы Т.

PROGRAM PG9_2;

CONST U = 100;

VAR N, M: INTEGER;

T: ARRAY[1..U, 1..U] OF INTEGER;

PROCEDURE TAB_IN(VAR L, К: INTEGER);

VAR I, J: INTEGER;

BEGIN

FOR I:= 1 TO L DO

BEGIN

FOR J:= 1 TO К DO

BEGIN

WRITE('T [', I, ', ', J,'] =');

READ(T[I, J])

END;

WRITELN

END

END;

PROCEDURE TAB_OUT(VAR L, К: INTEGER);

VAR I, J: INTEGER;

BEGIN

FOR I:= 1 TO L DO

BEGIN

FOR J:= 1 TO К DO

WRITE(T[I, J]: 6);