Задача над матрицей Опции

[Clon]

Вообщем задача состоит в том, чтобы записать в строку упорядоченно все элементы в матрице в чледующем порядке

          21    22    23    24    25
          20    13    12    11    10
          19    14    7      8      9
          18    15    6      3      2
          17    16    5      4      1

причем размер матрицы произвольный от 2x2 до 7x7
помогите пожалуйста

Сообщение отредактировано: volvo - 4.12.2005 0:31

[volvo]

klem4, это "змейка" - из правого нижнего угла...

Clon, вот программа обхода (и заполнения) матрицы в заданном порядке...

const
  size = 5;

var
  a: array[1 .. size, 1 .. size] of integer;
  count: integer;


var
  i, j, T: integer;

begin
  count := 0;

  for T := 1 to size do
    if odd(T) then begin

      for i := size downto size - T + 1 do begin
        inc(count); a[i, size - T + 1] := count;
      end;
      for j := size - T + 2 to size do begin
        inc(count); a[size - T + 1, j] := count;
      end;

    end
    else begin

      for j := size downto size - T + 1 do begin
        inc(count); a[size - T + 1, j] := count;
      end;
      for i := size - T + 2 to size do begin
        inc(count); a[i, size - T + 1] := count;
      end;

    end;

  for i := 1 to size do begin
    for j := 1 to size do
      write(a[i, j]:3);
    writeln;
  end;
end.

Чтобы перенести в этом же порядке данные в одномерный массив, просто замени присваивание

a[{что-то}, {что-то}] := count;

на

b[count] := a[{что-то}, {что-то}];

где B - одномерный массив размерности 1 .. size*size