двумерка в дельфи

[Puffy]

ребята выручайте !
я вобще не разбираюсь в этом . надо написать такую вот программу
ввести число n и заполнить квадратную матрицу (n,n) числами 1, 2 ... n^2 по спирали а(1,1)=1, а(1,2)=2 и тд
спасибки

[alexBlack]

Попробуйте поиск по форуму по словам "по спирали".
Уже обсуждалось.

[Serge_Bliznykov]

Да это тут обсуждалось уже не раз и не два!!!
Чего же по спирали одно и тоже обсуждать!
Нажимайте кнопочку Поиск, вводите слово Спираль и наслаждайтесь!


Алекс, респект
Я опять опоздал! Разве за Вами угонишься?!

[Puffy]

program MagicMatrix;
uses crt;
type array5x5 = array[0..5, 0..5] of integer;
var result : array5x5;
    x, y, d, counter, i, j : integer;
begin
   y := 5;
   x := y - 1;
   counter := 1;
   d := -1;
   i := x;
   while(i>=0) do
   begin
        for j := i downto 0 do begin y := y + d; result[x, y] := counter; inc(counter); end;
        Dec(i);
        for j := i downto 0 do begin x := x + d; result[x, y] := counter; inc(counter); end;
        d := d * -1;
   end;
  for i := 4 downto 0 do
   begin
       writeln;
       for j := 4 downto 0 do
           write(result[i, j], ' ');
   end;
   repeat until keypressed;
end.

можете переделать это в дельфи ? и только чтобы n самой вводить
спасибо

[Карась]

В этой ветке есть спираль для делфи.
Недавно была тема (неделю назад). Я даже собственный алгоритм "спирали" написал, но зажал и не кому не показал