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