Заполнить массив по спирали

[BeSHyLLlka]

ребята помогите нужно заполнить масси по спирали начиная с центра,против часовой стрелке,желательно в псевдокоде или в java script

[evg_m]

  n:=7; //размер квадрата
  i:=n div 2; 
  j:=n div 2; // начинаем в центре
// задаем границы движеня 
  min_i:=i; max_i:=i; // влево вправо
  min_j:=j; max_j:=j; // вверх вниз
  d:=0; // сначала пойдем влево
  for a:=1 to n*n do begin
    m[i,j]:=a; // заполняем (нумеруем)
    case d of //вычисляем следующую (находим новые i j)
    0: begin 
         i:=i-1;  // движение влево
         if i<min_i // проверка выхода за заполненную центральную часть слева
                   then begin 
                     d:=1;// меняем направление
                     min_i:=i;// увеличиваем заполненную часть влево
                   end;
       end;
    1: begin // движение вверх проверка сверху
         j:=j-1;
         if j<min_j then begin d:=2; min_j:=j; end;
       end;
    2: begin // движение вправо проверка справа
         i:=i+1;
         if i>max_i then begin d:=3; max_i:=i; end;
       end;
    3: begin // движение вниз проверка снизу
         j:=j+1;
         if j>max_j then begin d:=0; max_j:=j; end;
       end;
    end;
  end;

[TinMan]

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

желательно в псевдокоде или в java script

Pascal можно считать псевдокодом (наверное, evg_m со мной согласен)). Но если нужен JS - пиши, я помогу.

evg_m, твое решение вполне нормальное (только центр в случае нечетных сбит немного), но я хотел просто сказать, что задачи такого класса чаще всего лучше (хотя это не значит, что легче)) решать несколько иначе. В условии сказано "заполнить по спирали", и сразу приходит в голову, что надо _идти_по_спирали_. На самом же деле, это совершенно не обязательно. Нужно заполнить каждый элемент (однократно) - следовательно, подходит обычный двойной цикл. А в его теле - вычисление "номера по спирали". Получается компактнее и яснее. И никаких проверок выхода за границы и т.п.
Короче, вот код:

// spiral filling in of a matrix, starting at center, counterclockwise
// by TinMan, programmersforum.ru
// Sep 20, 2011

const
  n= 6;  // matrix size

var
  b,i,j,x,y,r: integer;
  a: array[1..n,1..n] of integer;

begin
  for i:=1 to n do
    for j:=n downto 1 do begin
      x:= 2*i-n-1;
      y:= 2*j-n-1;
      if Abs(x)>Abs(y) then r:= Abs(x) else r:= Abs(y);
      if x=-r then b:= 7*r-y
      else if y=-r then b:= r+x
      else if x=r then b:= 3*r+y
      else b:= 5*r-x;
      a[i,j]:= b div 2 + Sqr(r-1)
    end;

  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
  end;
  Readln
end.

Комментарии по запросу.