Минимальный элемент над главной диагональю матрицы - Pascal
Формулировка задачи:
Здравствуйте, почему функция mMinURCD выводит не верное значение мин. элемента над главной диагональю матрицы D?
Решение задачи: «Минимальный элемент над главной диагональю матрицы»
textual
Листинг программы
function mMinUR(const c: massif): Real;//Мин. элемент над главной диагональю var min: Real; begin min := c[1,2]; for var i := 1 to 4-1 do for var j := i+1 to 4 do if min > c[i,j] then min := c[i,j]; mMinUR := min; end; ... WriteLn('Над гл.диагональю: min(c) = ',mMinUR(c),' min(d) = ',mMinUR(d));
Объяснение кода листинга программы
В данном коде реализована функция mMinUR, которая находит минимальный элемент в матрице c над главной диагональю.
- Объявлены следующие переменные: — min — переменная для хранения минимального элемента; — i, j — индексы для обхода матрицы; — c — матрица, в которой нужно найти минимальный элемент; — d — матрица, выводимая на экран в качестве примера.
- Изначально минимальный элемент присваивается значению c[1,2].
- Далее, с помощью двух циклов, происходит перебор всех элементов матрицы c, начиная с элемента c[1,i] и заканчивая c[4-1,4]. Если найденный элемент min меньше текущего элемента матрицы c[i,j], то он присваивается новому значению min.
- После завершения циклов, найденный минимальный элемент сохраняется в переменную mMinUR.
- Выводится сообщение на экран, содержащее минимальный элемент матрицы c и d. Таким образом, данный код находит минимальный элемент в матрице c над главной диагональю и выводит его на экран.