Упорядочьте элементы столбцов массива по убыванию модулей элементов (Pascal)

[Juniorshka]

Упорядочьте элементы столбцов массива по убыванию модулей элементов методом двоичного дерева.

[ZX Spectrum-128]

http://wiki.sources.ru/doku.php?id=pascal:sorting:start

[Meloiso]

Сообщение от ZX Spectrum-128

http://wiki.sources.ru/doku.php?id=pascal:sorting:start

Там же только подпрограмма?

[Juniorshka]

Сообщение от Meloiso

Там же только подпрограмма?

Да,я все ни как не могу их объединить

[ZX Spectrum-128]

1. Берете столбец матрицы, кидаете его в одномерный массив.
2. Сортируете методом (процедура сортировки по ссылке есть)
3. Кидаете одномерный массив обратно в столбец
И так для всех столбцов матрицы
Я бы так и сделал, имея готовую процедуру сортировки.

[Juniorshka]

Помогите пожалуйста ее сделать,так и не получилось привести в ее рабочей вид
только сильнее запуталась.

[ZX Spectrum-128]

Так вы покажите вашу попытку, поможем, подправим.

[Juniorshka]

Сохранился только такой вариант...

uses crt;
const n=5;
type mass=array[1..n,1..n] of integer;
procedure init (var a:mass);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=-50+random(101);
end;
procedure print (a:mass);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end;
procedure sort(var a:mass;k:integer);
procedure HeapSort(var Arr : array of Real; N : Integer);
var
I,J,K,T : Integer;
Tmp : Real;
begin
i:=2;
repeat
t:=i;
while t<>1 do
begin
k:=t div 2;
if Arr[k-1]>=Arr[t-1] then t:=1
else
begin
Tmp:=Arr[k-1];
Arr[k-1]:=Arr[t-1];
Arr[t-1]:=Tmp;
t:=k;
end;
end;
inc(i)
until not(i<=n);
i:=n-1;
repeat
Tmp:=Arr[i];
Arr[i]:=Arr[0];
Arr[0]:=Tmp;
t:=1;
while t<>0 do
begin
k:=2*t;
if k>i then t:=0
else
begin
if k<i then
if Arr[k]>Arr[k-1] then inc(k);
if Arr[t-1]>=Arr[k-1] then t:=0
else
begin
Tmp:=Arr[k-1];
Arr[k-1]:=Arr[t-1];
Arr[t-1]:=Tmp;
t:=k;
end;
end;
end;
dec(i)
until not(i>=1);
end;
end;
while r>1 do
begin
x:=a[1,k];
a[1,k]:=a[r,k];
a[r,k]:=x;
dec(r);
sift(1,r)
end;
end;
var m:mass;
j:integer;
begin
init(m);
writeln('Исходная мат');
print(m);
for j:=1 to n do
sort(m,j);
writeln('Сортировка');
print(m);
readln;

[ZX Spectrum-128]

Вам остается только подправить порядок сортировки. И не забыть, что "модулей элементов".

const
  n=5;
type
  vector=array [0..n-1] of real;
var
  a : array [0..n-1,0..n-1] of real;
  r : vector;
  x : real;
  i,j : integer;

(*******************************************************
Процедура для сортировки массива.
Принимает:
    *массив значений a с индексами элементов от 0 до N-1
    *число элементов N
*******************************************************)
procedure HeapSort(var Arr : array of real; N : Integer);
var
    I,J,K,T   :   Integer;
    Tmp :   Real;
begin
    i:=2;
    repeat
        t:=i;
        while t<>1 do
        begin
            k:=t div 2;
            if Arr[k-1]>=Arr[t-1] then t:=1
            else
            begin
                Tmp:=Arr[k-1];
                Arr[k-1]:=Arr[t-1];
                Arr[t-1]:=Tmp;
                t:=k;
            end;
        end;
        inc(i)
    until not(i<=n);
    i:=n-1;
    repeat
        Tmp:=Arr[i];
        Arr[i]:=Arr[0];
        Arr[0]:=Tmp;
        t:=1;
        while t<>0 do
        begin
            k:=2*t;
            if k>i then t:=0
            else
            begin
                if k<i then
                   if Arr[k]>Arr[k-1] then inc(k);
                if Arr[t-1]>=Arr[k-1] then t:=0
                else
                begin
                    Tmp:=Arr[k-1];
                    Arr[k-1]:=Arr[t-1];
                    Arr[t-1]:=Tmp;
                    t:=k;
                end;
            end;
        end;
        dec(i)
    until not(i>=1);
end;

begin
  randomize;
  writeln('Исходный массив');
  for i:=0 to n-1 do
    begin
      for j:=0 to n-1 do
        begin
          a[i,j]:=random*10;
          write(a[i,j]:8:2);
        end;
      writeln;
    end;

  writeln;
  writeln('Отсортированный массив');
  for i:=0 to n-1 do
    begin
     for j:=0 to n-1 do
        r[j]:=a[j,i];
     heapsort(r,n);
     for j:=0 to n-1 do
       a[j,i]:=r[j];
    end;


  for i:=0 to n-1 do
    begin
      for j:=0 to n-1 do
        begin
          write(a[i,j]:8:2);
        end;
      writeln;
    end;

  readln;
end.

[Juniorshka]

Спасибо большое! Но почему при запуске вашей прогр.
Поя-ся ошибка
Program1.pas(86) : Неправильный тип параметров подпрограммы

 heapsort(r,n);

r : vector; И почему r вектор?
Или похоже дело в том что я использовала ABC,через TP запустилась