Формирование матрицы по спирали

[RomT24]

Всем привет!! Уважаемые программисты, есть задача, условие которой я выложил на картинке - вообще ее нужно сделать в Delphi, используя StringGrid, но это не так важно - хотя бы напишите мне алгоритм формирования этой матрицы по спирали..А то правда, насчет этого даже идей никаких, голову сломал..



Всем спасибо!!

[Serge_Bliznykov]

посмотри внизу страницы Похожие темы.
если не поможет - поиск по форуму даст нужное...

[RomT24]

поиск по форуму нужного не дал. есть только примеры формирования спирали не с середины матрицы, а с начала.. ((

[Базиля]

странно, почему-то я нашел подходящую вам тему, очень странно.. правда?
http://programmersforum.ru/showthrea...E8%F0%E0%EB%FC

[RomT24]

спасибо))
попытался это применить но программа не работает нормально..Если нетрудно, взгляните в проект, может кто найдет ошибку..((

[val_nnm]

попробуй вот так

procedure TForm1.btn1Click(Sender: TObject);
var
 n,x,y,k,z:Integer;
begin
  n:=grid1.ColCount;
  x:=(n div 2+1) ;y:=(n div 2+1);
  k:=0;
   for z:=1 to n*n do
      begin
       grid1.cells[x-1,y-1]:=IntToStr(z);
       case k mod 4 of
       0:begin
         inc(x);
         if (y-1)=n-x+1 then inc(k);
         end;
       1:begin
         inc(y);
         if(y=x) then inc(k);
         end;
       2:begin
         dec(x);
         if ((n-y)=(x-1)) then inc (k);
         end;
       3:begin
         dec(y);
         if (x=y) then inc(k);
         end;
       end;
     end;

end;