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;

В этом описании 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);

WRITELN

END

END;

BEGIN

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

WRITE('N = ');

READ(N);

WRITE('M = ');

READ(M);

TAB_IN(N, M);

WRITELN('MATPMUA', N,'X', M);

TAB_OUT(N, M)

ЕND.

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

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

- создаем описание процедуры TAB _IN для ввода элементов матрицы;

- создаем описание процедуры TAB _OUT для ввода элемен­тов матрицы;

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

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

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

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

Переменные:

в процедуре TABIN:

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

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

в процедуре TABOUT:

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

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

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

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

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

Задача 9.3 Дана строка символов. Написать процедуру удаления из строки всех кратных рядом стоящих символов.

PROGRAM PRG9_3;