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;
|
