ВЫВОД МАССИВОВ НА ЭКРАН

Для вывода массивов на экран используют процедуры WRITE и WRITELN.

Пример 3. Вывести матрицу A размера (6*6) на экран. При этом будем предполагать, что элементы матрицы A уже заданы (способы задания матриц приведены в примерах 1–2).

PROGRAM PR3;

VAR A :ARRAY [1..6,1..6] OF REAL;

i, j : INTEGER;

BEGIN

WRITELN (' матрица А ');

FOR i:=1 TO 6 DO BEGIN

FOR j:=1 TO 6 DO WRITE (A[i, j]:7:1);

WRITELN;

END;

END.

Пояснения к программе: Элементы матрицы A выводятся на экран в виде прямоугольной таблицы. Расстояние между столбцами матрицы задается форматом вывода элементов A[i, j].

После выполнения каждого пункта задания, текст которого приведен на странице 19, необходимо осуществлять вывод матрицы на экран. Использование процедуры вывода матрицы на экран позволит уменьшить объем программы и сделать ее более наглядной. Рассмотрим пример.

Пример 4. Получить матрицу A(7*6), образованную по закону и вывести ее на экран, используя подпрограмму.

PROGRAM PR4;

TYPE MAS = ARRAY [1..7, 1..6] OF REAL;

VAR A : MAS;

i, j : INTEGER;

PROCEDURE W (ms, ns : INTEGER; AS : MAS);

BEGIN

FOR i:=1 TO ms DO BEGIN

FOR j:=1 TO ns DO WRITE (AS[i, j]:7:1);

WRITELN;

END;

END;

BEGIN

FOR i:=1 TO 7 DO

FOR j:=1 TO 6 DO A[i, j]:=i + SIN(j)/COS(j);

WRITELN (' матрица A ');

W(7, 6, A);

END.

Пояснения к программе: В используемой процедуре W формальными параметрами являются ms, ns – переменные, определяющие количество строк и столбцов выводимой матрицы соответственно; AS – переменная, определяющая имя выводимой матрицы.