ВЫЧИСЛЕНИЯ В МАТРИЦАХ

В пункте 6 задания требуется осуществить какие-либо вычисления для матрицы. Такими вычислениями могут быть: определение среднеарифметического элементов главной диагонали, определение минимального элемента матрицы, определение количества положительных или отрицательных элементов матрицы и другие вычисления.

Рассмотрим примеры.

Пример 16. Для заданной матрицы E определить номер столбца с максимальной суммой элементов.

PROGRAM PR16;

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

i, j, jmax : INTEGER;

Smax, s : REAL;

BEGIN

{Ввести элементы матрицы E (способы задания матриц приведены в примерах 1, 2)}

Smax:=0;

jmax:=1;

FOR i:=1 TO 6 DO Smax:=Smax+E[i, 1];

FOR j:=2 TO 6 DO BEGIN

s:=0;

FOR i:=1 TO 6 DO s:=s+E[i, j];

IF s>=Smax THEN BEGIN

Smax:=s;

jmax:=j;

END;

END;

WRITELN (' номер столбца с мак. суммой элем. = ', jmax);

END.

Пояснения к программе: Переменная Smax – определяет максимальную сумму элементов в столбце;

jmax – определяет номер столбца с максимальной суммой элементов;

s – определяет сумму элементов в текущем столбце.

В первом цикле FOR подсчитывается сумма элементов первого столбца. Переменной Smax присваивается это значение. Затем во вложенном цикле подсчитывается сумма элементов каждого столбца, начиная со второго, и при выполнении условия оператора IF, переменной jmax присваивается номер столбца с максимальной суммой элементов.

Пример 17. Для заданной матрицы E определить минимальный элемент 3 и 5 столбца.

PROGRAM PR17;

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

i, j : INTEGER;

Emin3, Emin5 : REAL;

BEGIN

{Ввести элементы матрицы E (способы задания матриц приведены в примерах 1, 2)}

Emin3:=E[1, 3];

Emin5:=E[1, 5];

FOR i:=2 TO 6 DO BEGIN

IF Emin3>E[i, 3] THEN Emin3:=E[i, 3];

IF Emin5>E[i, 5] THEN Emin5:=E[i, 5];

END;

WRITELN (' мин. элем. 3 столбца = ', Emin3:7:1);

WRITELN (' мин. элем. 5 столбца = ', Emin5:7:1);

END.

Пояснения к программе: Переменная Emin3 – определяет минимальной элемент в 3 столбце; Emin5 – минимальной элемент в 5 столбце.

СПИСОК ЛИТЕРАТУРЫ

1. Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо-Паскаль. – М.: Изд-во МГТУ, 2007. –580 с.

2. Белецкий Я. Турбо Паскаль с графикой для персональных компьютеров / Пер. с польск. Д.И. Юренкова. – М.: Машиностроение, 2006. –320 с.