Упорядочить строки матрицы так, чтобы последние их элементы образовывали возрастающую последовательность - Turbo Pascal
Формулировка задачи:
т.е. отсортировать не сами последние элементы,а поменять местами строки, чтобы последние элементы были отсортированы.
Заранее благодарю за помощь.
Решение задачи: «Упорядочить строки матрицы так, чтобы последние их элементы образовывали возрастающую последовательность»
textual
Листинг программы
uses crt; const nmax=10; var a:array[1..nmax,1..nmax] of integer; m,n,i,j,k,imx,buf:integer; begin clrscr; randomize; repeat write('Количество строк от 2 до ',nmax,' m='); readln(m); until m in [2..nmax]; repeat write('Количество столбцов от 2 до ',nmax,' n='); readln(n); until n in [2..nmax]; writeln('Исходный массив:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:3) end; writeln; end; writeln; {перестановка строк по возрастанию элементов последнего столбца} for i:=1 to m-1 do for k:=i+1 to m do if a[i,n]>a[k,n] then for j:=1 to n do begin buf:=a[i,j]; a[i,j]:=a[k,j]; a[k,j]:=buf; end; writeln('Строки по возрастанию последних элементов:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln end.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он содержит следующие переменные:
- nmax: максимальное значение для строк и столбцов матрицы (константа).
- a: матрица целых чисел размером (m x n), где m - количество строк, n - количество столбцов (динамичный массив).
- m, n, i, j, k, imx: счетчики и индексы для перебора строк и столбцов матрицы.
- buf: временная переменная для хранения значения элемента матрицы. Код начинается с инициализации переменной nmax и объявления переменных m, n, i, j, k, imx и buf. Затем происходит чтение значений m и n с помощью функции readln. Далее идет цикл, который повторяется до тех пор, пока m и n находятся в допустимых пределах (от 2 до nmax). Внутри цикла выводится сообщение с запросом количества строк и столбцов матрицы. После этого выводится исходный массив a с помощью цикла for. Внутри цикла выводится каждый элемент матрицы a[i,j]. Затем следует еще один цикл, который повторяется до тех пор, пока i меньше m-1. Внутри цикла происходит перестановка строк по возрастанию элементов последнего столбца. Для этого используется вложенный цикл for, который перебирает строки i и k. Если элемент a[i,n] больше элемента a[k,n], то происходит перестановка строк i и k. После завершения внутреннего цикла выводится сообщение с переставленными строками по возрастанию последних элементов. Наконец, выводится итоговый результат - матрица a с последними элементами, образующими возрастающую последовательность.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д