Для ввода с клавиатуры конкретных значений элементов массивов используются процедуры READ и READLN.
Пример 1. Ввести с клавиатуры конкретные значения элементов заданного двумерного массива.
PROGRAM PR1;
TYPE MAS = ARRAY [1..2, 1..2] OF REAL;
VAR A : MAS;
i, j : INTEGER;
BEGIN
FOR i:=1 TO 2 DO
FOR j:=1 TO 2 DO BEGIN
WRITE ('A [ ',i,', ',j,' ] = ');
READLN (A[i, j]);
END;
END.
Пояснения к программе: В качестве типа элементов двумерного массива A используется вещественный тип, а в качестве типа индексов массива A используется тип-диапазон, границами которого являются целые числа. Такое описание соответствует структуре матрицы.
Матрицей называется некоторая прямоугольная таблица, состоящая из элементов, которые организованы в строки и столбцы. Можно принять, что первый индекс массива A определяет количество строк, а второй – количество столбцов. Таким образом, массив A соответствует матрице размера (2*2).
Пример 2. Заполнить матрицу A размера (6*6) элементами, образованными по закону
.
PROGRAM PR2;
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 BEGIN
А[i, j]:=SQRT(i)+SIN(j)/COS(j);
WRITE (A[i, j]:7:1);
END;
WRITELN;
END;
END.
Пояснения к программе: В данной программе каждый матрицы A определяется в соответствии с заданной формулой. Элементы матрицы выводятся на экран в виде прямоугольной таблицы.