18.Алгоритм ввода и вывода элементов двумерного массива(пример)
Ввод двумерного массива
Program mas2;
var В : array [1 .. 3, 1..5] of Integer;
i , j : integer;
begin
for i := 1 to 3 do
for j := 1 to 5 do
begin
writeln(‘введите элемент B[’, i, ‘,’ , j, ‘]’);
readln (B[i , j ]);
end;
……
End.
Вывод двумерного массива
Program mas2;
var В : array [1 .. 3, 1..5] of Integer;
i , j : integer;
begin
for i := 1 to 3 do
for j := 1 to 5 do
begin
writeln(‘Элемент B[’, i, ‘,’ , j, ‘]=’);
read (B[i , j ]);
end;
……
End.
19.Алгоритм нахождения сумм значений матриц по строкам и столбцам(пример)
20.Алгоритм нахождения max значения в двумерном массиве(пример)
Массив – это упорядоченный набор переменных, которым присвоено одно имя. К необходимости
применения массивов мы приходим каждый раз, когда требуется связать и использовать целый ряд родственных величин. Доступ к элементам двухмерного массива осуществляется посредст-
вом двух индексов, что позволяет представить двухмерный массив в виде таблицы, в которой первый индекс определяет номер строки, а второй – номер столбца. На пересечении столбца и строки находится определенный элемент.
Данный двухмерный массив в программе описывается следующим образом
VAR A : ARRAY [1..5, 1..5] OF REAL.
Элемент, расположенный в 5-ой строке и первом столбце имеет имя A[5, 1].
Программа заполнения двухмерного массива 3 × 5 и поиска в нем наибольшего элемен-
та.
PROGRAM Maximum;
VAR i, j : Integer;
M : ARRAY [1..3, 1..5] OF Real;
max : Real;
BEGIN
FOR i:=1 TO 3 DO
FOR j:=1 TO 5 DO
BEGIN
WRITE('M[',i,',',j,']=');
READLN(M[i,j]);
END;
max:=M[1,1];
FOR i:=1 TO 3 DO
FOR j:=1 TO 5 DO
IF M[i,j]<max THEN max:=M[i,j];
WRITELN('Максимальный элемент=', max:7:4);
END.
21.Алгоритм нахождения суммы элементов матрицы на главной диагонали(пример)
Рассмотрим примеры обработки двумерных массивов найти сумму элементов, стоящих на главной диагонали в квадратной матрице.Обращение к элементам главной диагонали
1-й способ
s:=0;
for i := 1 to N do
s := s + A[i, i];
writeln(‘сумма = ’, s);
2-й способ
s:=0;
for i := 1 to N do
for j := 1 to N do
if (i=j) then s := s + A[i, j];
writeln(‘сумма = ’, s);
Обращение к элементам выше главной диагонали
s:=0;
for i := 1 to N do
for j := 1 to N do
if (i < j) then s := s + A[i, j];
writeln(‘сумма = ’, s);
Обращение к элементам ниже главной диагонали
s:=0;
for i := 1 to N do
for j := 1 to N do
if (i > j) then s := s + A[i, j];
writeln(‘сумма = ’, s);
22.Алгоритм нахождения суммы элементов матрицы на побочной диагонали(пример)
Обращение к элементам побочной диагонали
1-й способ
s:=0;
for i := 1 to N do
s := s + A[i, n-i+1];
writeln(‘сумма = ’, s);
2-й способ
s:=0;
for i := 1 to N do
for j := 1 to N do
if (i+j = n+1) then s := s + A[i, j];
writeln(‘сумма = ’, s);
Обращение к элементам выше побочной диагонали
s:=0;
for i := 1 to N do
for j := 1 to N do
if (i+j < n+1) then s := s + A[i, j];
writeln(‘сумма = ’, s);