Трёхмерный массив! HELP!, Сортировка по возрастанию (я это даже предствить не могу) Опции

[klik1602]

Помогите пожалуйста! что-то совсем голова не варит((
Требуется отсортировать трёхмерный массив по возрастанию.
как я понимаю, проще это будет сделать, преобразовав данный массив в одномерный.
Подскажите, как выполнить преобразование?!

[volvo]

М-да... В Pascal ABC убрали все возможности работы с указателями, вот что с людьми делает автоматическая сборка мусора... Никакими ухищрениями мне не удалось ни преобразовать указатель на 3-мерную структуру в указатель на обычный линейный массив (это стандартная в общем-то операция, тут она невозможна), ни просто сделать

type
  vector = array[1 .. L] of telement;

// и дальше где-то привести:
vector(a)[i] := ...

Это тоже стандартное решение, и оно в ABC тоже не работает, он пишет что не может разные структуры приводить друг к другу, хотя вообще-то должен, размер-то абсолютно одинаковый...

Получилось сделать сквозную сортировку только

вот таким извращением... (Показать/Скрыть)

type
   TElement= integer;
const
   n= 3;
   m= 6;
   k= 8;
   L = n*m*k;

var
   a : array [1 .. n, 1 .. m, 1 .. k] of TElement;

procedure Show;
var i, j, t : integer;
begin
   for i:= 1 to n do
   begin
      WriteLn(i,':');
      for j:= 1 to m do
      begin
         for t:= 1 to k do Write(a[i,j,t]:4);
         WriteLn
      end;
      WriteLn
   end
end;

type
   indexes = 
   record
      m, n, k : integer;
   end;
   
function decr(ix : indexes) : indexes;
begin
   result := ix;
   dec(result.k);
   if result.k = 0 then
   begin
      result.k := k;
      dec(result.m);
      if result.m = 0 then
      begin
         result.m := m;
         dec(result.n);
      end;
   end;
end;

const
   last : indexes = (m: m; n: n; k: k);
var
   curr, prev: indexes;
   
   i, j, t: integer;
   buf : TElement;
   
begin
   for i := 1 to n do
      for j := 1 to m do
         for t := 1 to k do
            a[i, j, t] := Random(100)-49;

   Show;
   
   for i := 2 to L do
   begin
      curr := last; prev := decr(last);
      
      for j:= L downto i do
      begin
         if a[prev.n, prev.m, prev.k] > a[curr.n, curr.m, curr.k] then 
         begin
            buf := a[prev.n, prev.m, prev.k];
            a[prev.n, prev.m, prev.k] := a[curr.n, curr.m, curr.k];
            a[curr.n, curr.m, curr.k] := buf
         end;
         curr := prev; prev := decr(prev);
      end;

   end;
   WriteLn('Отсортированный массив:');
   Show;
   ReadLn
end.

(тестировалось в PascalABC.NET 1.3.354)