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

[klik1602]

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

[klik1602]

Дан трёхмерный массив. Расположите его элементы по возрастанию

[Lapp]

Дан трёхмерный массив. Расположите его элементы по возрастанию

klik1602, от тебя пытаются добиться вдоль чего сортировать. С одномернум массивом этого вопроса на возникает. Легко сказать, какая точка больше и какая меньше, если они на отрезке или даже на целой прямой. А вот попробуй сравни так две точки на плоскости (или в трехмерном пространстве). Поэтому всегда нужно указывать, вдоль чего ты сортируешь. Например, на плоскости ты можешь сказать, что сортировка по близости к какому-то центру. Это будет первый уровень сортировки, а второй - внутри окружностей (все точки которых находятся на одинаковом расстоянии от центра), там можно сортировать по углу.

Тут, я думаю, тебе нужна сквозная сортировка по слоям-строкам-элементам. Слой - это первый индекс, строка - второй, элементы - третий. Сквозная сортировка подразумевает, что ВСЕ элементы преддыдущего слоя не превосходят элементов следующего. В каждом слое - то же самое по строкам. А в каждой строке - поэлементно. Такая сортировка выглядит вполне естественно, но все же есть неоднозначность, и вопросы к тебе были совешенно законны. Например, можно сортировать элемент-слой-строка. Или вообще какой-нить змейкой хитрой..

Если же тебе надо сквозную сортировку слой-строка-элемент, то все довольно просто. Поскольку этот порядок совпадает с порядком организации трехмерного массива в памяти, то можно просто отсортировать всю эту область как большой одномерный массив. Например, вот так:

type
  tElement= integer;

const
  n= 3;
  m= 6;
  k= 8;
  l= n*m*k;

var
  a: array [1..n,1..m,1..k] of integer;
  b: array [1..l] of integer absolute a;


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;


var
  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
    for j:=l downto i do if b[j-1]>b[j] then begin
      buf:= b[j-1];
      b[j-1]:= b[j];
      b[j]:= buf
    end;

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

  ReadLn
end.

Что касается вывода, то он тоже организован по слоям.

Иногда в задаче требуется не прибегать к представлению массива как одномерного. Если у тебя как раз такой случай - скажи.
Удачи.