Минимальный элемент над главной диагональю матрицы - 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 над главной диагональю.

  1. Объявлены следующие переменные: — min — переменная для хранения минимального элемента; — i, j — индексы для обхода матрицы; — c — матрица, в которой нужно найти минимальный элемент; — d — матрица, выводимая на экран в качестве примера.
  2. Изначально минимальный элемент присваивается значению c[1,2].
  3. Далее, с помощью двух циклов, происходит перебор всех элементов матрицы c, начиная с элемента c[1,i] и заканчивая c[4-1,4]. Если найденный элемент min меньше текущего элемента матрицы c[i,j], то он присваивается новому значению min.
  4. После завершения циклов, найденный минимальный элемент сохраняется в переменную mMinUR.
  5. Выводится сообщение на экран, содержащее минимальный элемент матрицы c и d. Таким образом, данный код находит минимальный элемент в матрице c над главной диагональю и выводит его на экран.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы