Дана матрица A(n×m). Скорректировать эту матрицу, удалив из нее строку и столбец, на пересечении которых - Pascal
Формулировка задачи:
Дана матрица A (n×m). Скорректировать эту матрицу, удалив из нее строку
и столбец, на пересечении которых расположен элемент с наибольшим по
модулю значением.
Решение задачи: «Дана матрица A(n×m). Скорректировать эту матрицу, удалив из нее строку и столбец, на пересечении которых»
textual
Листинг программы
var a: array[1..20, 1..20] of integer; i, j, n, m, i_max, j_max: integer; begin write('Введите n, m: '); readln(n, m); writeln('Исходная матрица:'); for i := 1 to n do begin for j := 1 to m do begin a[i, j] := -99 + random(199); write(a[i, j]:4); end; writeln; end; writeln; i_max := 1; j_max := 1; for i := 1 to n do for j := 1 to m do if abs(a[i, j]) > abs(a[i_max, j_max]) then begin i_max := i; j_max := j; end; writeln('|Max| = ', 'a[', i_max, ',', j_max, '] = ', a[i_max, j_max]); writeln; for i := 1 to n do for j := j_max to m - 1 do a[i, j] := a[i, j + 1]; for j := 1 to m - 1 do for i := i_max to n - 1 do a[i, j] := a[i + 1, j]; writeln('Преобразованная матрица:'); for i := 1 to n - 1 do begin for j := 1 to m - 1 do write(a[i, j]:4); writeln; end; readln; end.
Объяснение кода листинга программы
- Создается переменная
a
типаarray[1..20, 1..20] of integer
. Это означает, что создается матрица размером 20x20, где каждый элемент представлен целым числом. - Задаются переменные
i
,j
,n
иm
.i
иj
будут использоваться для прохода по матрице,n
- количество строк, аm
- количество столбцов. - Выводится сообщение для ввода значений
n
иm
. - Выводится исходная матрица
a
. Для каждой строки и каждого столбца выводится значение элемента матрицы. - Вычисляются максимальные значения абсолютных значений элементов матрицы
a
. Сохраняются индексыi_max
иj_max
. - Выполняется перемещение элементов матрицы
a
так, чтобы они были упорядочены по убыванию абсолютных значений. Индексыi_max
иj_max
обновляются. - Выводится преобразованная матрица
a
. Каждая строка и каждый столбец выводятся построчно. - Программа завершается, ожидая ввода пользователя.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д