Найти минимальный элемент для каждой строки матриц - Turbo Pascal
Формулировка задачи:
найти минимальный элемент для каждой строки матриц А (n,n) и В ( m m)
с процедурой,
пожалуйста помогите очень срочно.
Решение задачи: «Найти минимальный элемент для каждой строки матриц»
textual
Листинг программы
const nmax = 21; type mas = array[1..nmax, 1..nmax] of integer; var a, b: mas; n, m: byte; sm: integer; procedure init_mas(var a: mas; n: integer); var i, j: integer; begin sm := maxint; for i := 1 to n do begin sm := maxint; for j := 1 to n do begin a[i, j] := random(20); if a[i, j] <= sm then sm := a[i, j]; end; a[i, n + 1] := sm; end; end; procedure print_mas(a: mas; n: integer); var i, j: integer; begin writeln('Min':(n * 4 + 8)); for i := 1 to n do begin for j := 1 to n + 1 do if j = n + 1 then write(a[i, j]:7) else write(a[i, j]:4); writeln; end; end; begin repeat write('Размерность матрицы A [1..', nmax - 1, '] n='); readln(n); until n in [1..nmax - 1]; repeat write('Размерность матрицы B [1..', nmax - 1, '] m='); readln(m); until m in [1..nmax - 1]; init_mas(a, n); init_mas(b, m); print_mas(a, n); print_mas(b, m); end.
Объяснение кода листинга программы
- В начале кода объявляются необходимые константы и типы данных.
- Затем определяются две переменные типа
mas
- a и b, которые будут использоваться для хранения матриц. - Далее объявляются две байтовые переменные - n и m, которые будут использоваться для определения размерности матриц.
- После этого определяется процедура init_mas, которая принимает в качестве параметра массив типа
mas
и его размерность n. Внутри процедуры инициализируется переменная sm, которая будет использоваться для хранения минимального элемента матрицы. Затем происходит итерация по каждому элементу массива a. Для каждого элемента выполняется проверка: если он меньше или равен sm, то значение sm обновляется. В конце каждого цикла a[i, n+1] устанавливается равным sm. - После этого определяется процедура print_mas, которая принимает в качестве параметров массив типа
mas
и его размерность n. Внутри процедуры выводится минимальный элемент каждой строки матрицы, используя функцию write. Для каждой строки выполняется итерация по каждому элементу массива a. Если элемент находится в последней строке, то используется функция write с первым параметром 7 (для вывода числа в формате7
). В остальных случаях используется функция write с параметром 4 (для вывода числа в формате4
). - Код продолжается до тех пор, пока пользователь не введет размеры матрицы для каждой из двух матриц.
- После этого вызываются процедуры init_mas и print_mas для каждой из матриц, передавая им соответствующие размеры.
- Код завершается после вывода минимальных элементов каждой строки обеих матриц.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д