Упорядочить столбцы матрицы по убыванию используя метод выбора - Turbo Pascal

  1. дана вещественная матрица D 7x9. Упорядочить ее столбцы по убыванию используя метод выбора (поиском максимума).


textual

Код:

uses crt;
const m=7;
      n=9;
var d:array[1..m,1..n] of integer;
    i,j,k,mx,buf:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    d[i,j]:=random(100);
    write(d[i,j]:4);
   end;
  writeln
 end;
for j:=1 to n do
 begin
  for i:=1 to m-1 do
   begin
    mx:=i;
    for k:=i+1 to m do
    if d[k,j]>d[mx,j] then mx:=k;
    buf:=d[i,j];
    d[i,j]:=d[mx,j];
    d[mx,j]:=buf;
   end;
 end;
writeln('Сортировка столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(d[i,j]:4);
  writeln
 end;
readln
end.


Похожие ответы
  1. Помогите дописать в задаче сортировку пузырьком и если можно с пояснением как она будет применяться. Условие задачи: Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы матрицы, расположить их в соответствии с ростом характеристик. Вот какой кусок кода получился у меня (Программу я стал писать через процедуры и функции), что бы легче было понять мою идею, я оставлю сбоку к элементам когда свои комментарии:

  1. Здравствуйте, уважаемые программисты...задача такова... требуется упорядочить массив строк по возрастанию частоты повторов... например массив такой rock, join, com, join, rock, join... после работы программа должна вывести вот такой результат com rock join Заранее спасибо!)

  1. В файл записать некоторый текст, заканчивающийся знаком ";". Все слова текста упорядочить по количеству букв в порядке возрастания длины слов методом вставки.Вывести полученную последовательность слов. Для сравнения результатов обработки текста обязательно присутствие исходного текста на экране.Прошу помочь срочно Добавлено через 21 час 47 минут up срочноДобавлено через 52 секунды up срочноДобавлено через 17 часов 44 минуты Up срочноДобавлено через 3 часа 10 минут Помогите пожалуйста срочненько!!!

  1. дана целочисленная матрица размера 5x6.Поменять первый и последний из столбцов

  1. зарегистрироваться в файл двумерный A массив размером n*n. работу программы нужна начат с чтения матрицы из файла и Параллельно изображат на графическом экране. матрицу нужно изменять по следующему принципу,передвигая строку и столбец поместить Наибольший элемент матрицы на верхний левый угол' в nклетке (1,1) . тем же самым способом нужно поступить с матрицои , которая является производным от предыдущей, не принимая во внимание первую строку и столбец. Наибольший элемент второй матрицы должен появится в клетке (2,2).так продолжая сформировать главную диагональ матрицы

  1. Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы.

  1. Упорядочить три числа x, y, z по возрастанию так, чтобы перемен- ной с именем х соответствовало самое малое из чисел x, y, z, y – среднее, а z – наибольшее.

  1. составить процедуру ,меняющую местами столбцы с номерами n1 и n2 в матрице размерностью 6*5

  1. Дана матрица размером n*m. Упорядочить по возрастанию элементы каждой строки матрицы. Заранее спасибо за помощь!Добавлено через 8 часов 22 минуты Срочно помогите пожалуйста!

  1. Упорядочить заданный массив А(n) по неубыванию, многократно переставляя каждые два соседних элемента, нарушающие порядок. Процесс завершается по достижении упорядоченности массива