Допустим, нам нужно хранить в массиве координаты n точек на плоскости: (x1,y1), (x2,y2),…,(xn,yn).
В этом случае мы можем использовать двумерный массив.
Возьмем количество точек равным 100:
1 2 3 4 |
var coord: array [1..100, 1..2] of integer; |
Такой массив представляет собой матрицу следующего вида:
Примеры обращения к элементам матрицы:
x:=coord[2,1];
coord[95,2]:=73;
Конечно, массивы могут быть и трехмерными, и четырехмерными и т.д. Но принципы работы с ними не отличаются от принципов работы с матрицами. Поэтому рассмотрим лишь работу с матрицами. Приведем программу для решения следующей задачи (пример 15).
Задана матрица целых чисел A размерности nn. Вычесть поэлементно последний столбец из всех столбцов, кроме последнего. Размерность матрицы и значения ее элементов ввести с клавиатуры.
Пример 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
uses Crt; var x : array [1..20,1..20] of integer; i,j : integer; BEGIN ClrScr; write(‘Введите размерность матрицы: ’); readln(n); { Ввод матрицы } writeln('Введите элементы матрицы'); for i:=1 to n do begin write(' Строка ',i:2,': '); for j:= 1 to n do read(x[i,j]); writeln end; { Вычитание последнего столбца } for j:=1 to n-1 do for i:=1 to n do x[i,j]:=x[i,j]-x[i,n] ; { Вывод на экран полученной матрицы } writeln('Полученная матрица:'); for i:=1 to n do begin for j:=1 to n do write(x[i,j]:4); writeln; end; readln; END. |