матрица

[Verochka]

Помогите с задачкой,если не трудно!Начиная с центра,обойти по спирали все элементы квадратной матрицы размером 13*13(распечатывая их в порядке обихода)

[А. Долматов]

поясни, их на экран надо выводить в таком порядке? И на чем надо написать?

[Verochka]

Это нужно в Delphi сделать!ну я думаю,что да-их надо напечатать!

[puporev]

Вот алгоритм на Паскале, переделаете в Делфи.

const n=13;
var a:array[1..n,1..n]of byte;
    x,y,k,z:integer;
begin
for x:=1 to n do
  begin
    for y:=1 to n do
      begin
        a[x,y]:=n*(x-1)+y;{для наглядности заполняем как таблицу умножения}
        write(a[x,y]:5);
      end;
    writeln;
  end;
x:=7;y:=7;k:=0; {начинаем с середины, конечный автомат равен нулю}
for z:=1 to n*n do {от 1 до 169}
  begin
    write(a[x,y],' '); {выводим очередной элемент}
    case k mod 4 of 
    0:begin  {если остаток от деления к на 4=0} 
      dec(y);  {уменьшаем у, идем вверх}
      if (x-1)=y then inc(k);{если номер строки-1=номеру столбца, увеличиваем автомат}
      end;
    1:begin  {если остаток от деления к на 4=1} 
       inc(x);  {увеличиваем х, идем вправо}
       if(n-x+1)=y then inc(k);
       end;
    2:begin
      inc(y);  {увеличиваем у, идем вниз}
      if(n-x)=(n-y) then inc (k);
      end;
    3:begin
      dec(x);  {уменьшаем х, идем влево}
      if y=(n-x+1) then inc(k);
      end;
    end;
  end;
readln
end.