Лекция: Пример 8.10

Дана матрица MAT(5*5), состоящая из вещественных элементов. Поменять местами строки матрицы, содержащие максимальный и минимальный элементы.

program MinMax;

type m = array [1..5] of real ;

var mat: array [1..5] of m ;

str: m;

maxi, mini, i, j, i1, j1: integer ;

begin

write (‘введите матрицу — ‘);

for i:=1 to 5 do

for j:=1 to 5 do read (mat[ i, j]);

i1:=1; j1:=1; {индексы минимального элемента }

i2:=1; j2:=1; {индексы максимального элемента}

for i:=1 to 5 do

for j:=1 to 5 do

if mat [ i, j] > mat[ i2, j2] then

begin

i2 := i; j2 := j {запомнить индексы

нового максимума}

end

else

if mat [i, j] < mat [i1, j1] then

begin

i1 := i; j1 := j; {запомнить индексы

нового минимума}

end;

str := mat[ i2 ]; {замена строки матрицы mat,}

mat [ i2 ] := mat[ i1 ]; {содержащей максимальный}

mat [ i1] := str; {элемент, строкой с мини-

мальным элементом и наоборот}

for i:=1 to 5 do

begin

for j:=1 to 5 do write (mat [ i, j]);

writeln

end

end.

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

Первая задача является разновидностью типовой задачи поиска максимума или минимума (пример 7.11).

Отличие от типовой заключается в том, что определяются не сами максимальный и минимальный элементы матрицы, а их индексы. Для хранения индексов в процессе счета используются переменные i1, j1 — для минимального элемента è i2, j2- длямаксимального.

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

Схема алгоритма