Сортировка матрицы по целой части элементов строки Опции

[liash-7]

Необходимо отсортировать матрицу(пузырьком) по целой часть элеметов K-й строки(строку K задаём)
К примеру, есть матрица:

(1,5) (7,4) (8,1)

(5,1) (8,3) (3,3)

(9,1) (1,1) (0,5)

(4,3) (5,4) (5,2)

Пусть мы задаём K=3
Выписываем целую часть элементов 3-й строки:[9,1,0].После сортировки[0,1,9].Тогда столбцы,должны поменяться аналогично.Столбец,содержащий 0,5 идёт первым,1 идёт вторым,9 идёт третьим!

Помогите пожалуйста!

Сообщение отредактировано: liash-7 - 17.04.2007 0:55

[volvo]

Основной цикл программы:

  for i := 1 to n_cols do
    for j := n_cols downto i + 1 do
      if trunc(arr[k, j - 1]) > trunc(arr[k, j]) then
        for ii := 1 to n_rows do begin
          T := arr[ii, j - 1]; arr[ii, j - 1] := arr[ii, j]; arr[ii, j] := T
        end;

(n_cols - число столбцов матрицы, n_rows - число строк)