Отображение на экране значений двумерного массива.

Если в результате работы вашей программы необходимо значения каждого элемента двумерного массива отобразить на экране монитора, то можно воспользоваться любым из двух способов, описанных ниже.

Предположим, в вашей программе сделаны объявления:
CONST
M = 3;
N = 4;
VAR   
A: ARRAY[ 1.. М, 1.. N] OF REAL;

• Тогда первый способ вывода элементов массива в виде матрицы будет иметь инструкцию:

WRITELN(' Элементы матрицы А имеют значения:');
FOR I := 1 ТО М
DO       BEGIN
             FOR J := 1 ТО N
             DO WRITE(A[I, J]: С: D,' '); {Вывод строки}
             WRITELN    {Переход к новой строке}
             END;
В этой инструкции первый оператор WRITELN сообщает пользователю, какую информацию он увидит на экране. Второй оператор WRITE сформирует цепочку (строку) вещественных чисел, разделенных пробелами в формате :С:D. Третий оператор WRITELN переведет курсор на новую строку.

• Второй способ обеспечивает вывод значений элементов двумерного массива в столбец, причем каждый из элементов будет идентифицирован парой индексов I и J:

FOR I := 1 ТО М
DO        FOR J :=1 TO N
              DO WRITELN('A[', I:1, ',' , J :1, '] = ', A[I,J]: C: D);

Пример 35. Найти сумму двух матриц С = А + В размерностью m х n. Элементы С_i,j искомой матрицы С вычисляются по формулам: С_i,j=А_i,j+B_i,j; i = 1...m; j = 1...n.
Эта задача отличается от предыдущего примера тем, что не известна размерность матриц. Поэтому значения тип необходимо ограничить сверху константами GM = Sup m, GN = Sup n.
Структурограмма:

PROGRAM PR35;
CONST
GM = 8;
GN = 8;
VAR   
А, В, C: ARRAY [1 .. GM, 1 .. GN] OF REAL;
M, N, I, J: INTEGER;
BEGIN
WRITELN('Bвeдите количество строк M и столбцов N матриц A и B');
READLN(M, N);
WRITELN('Введите матрицу А');
FOR I := 1 ТО М DO FOR J := 1 ТО N DO READ(A[I, J]);
WRITELN('Введите матрицу В');
FOR I := 1 TO M DO FOR J := 1 TO N DO READ(B[I, J]);
FOR      I := 1 TO M    { Вычисление матрицы С }
DO        FOR J := 1 TO N
              DO    C[I,J]:=A[I,J] + B[I,J];
WRITELN('Матрица С имеет вид:');
FOR I := 1 ТО М
DO    BEGIN
          FOR J := 1 TO N DO WRITE(A[I, J]: 5: 2,' ');
          WRITELN
          END
END.

Если Вы желаете научиться компьютерной графике и искусству создания игр unity уроки помогут Вам.

---

Предыдущая статья: Многомерные массивы.
Оглавление: Лекции по Pascal.
Следующая статья: Сортировка двумерного массива.

---