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;

VAR S: STRING;

L: INTEGER;

PROCEDURE SIM;

VAR I: INTEGER;

STR: STRING;

BEGIN

STR:= S[1];

FOR I:= 2 TO L DO

IF S[I]<>S[I-1] THEN

STR:= STR+S[I];

S:= STR

END;

BEGIN

WRITELN('BBEДИTE СТРОКУ СИМВОЛОВ,');

READLN(S);

L:= LENGTH(S);

SIM;