Помогите с задачей.

[terminadoor]

Дано число N - количество столбцов в двухмерном массиве. Масив за полнен по спирале: (матрица 5Х5)
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9
Потом задано ёщё два числа - координата пересекания i-того и j-ого рядка. Вивести число которое будет на пересёке. У меня вопрос: как заполнить массив по спирале?

[Карась]

Я помню что ктото давал код для любой размерности массива.....

[terminadoor]

не понял. Можно поконкретнее. хотяби алгоритм.

[Карась]

Гдето на форуме давали исходник.....
Вот он только с моей переработкой и форматированием....

Begin
N := StrToInt(LabeledEdit1.Text);
Sg1.ColCount := N;
Sg1.RowCount := N;
For I := 1 To Sg1.RowCount Do
For J := 1 To Sg1.ColCount Do
Sg1.Cells[I - 1, J - 1] := IntToStr(I * 10 + J);

X := 0;
y := 1;
Number := 1;
Add := N;
Direction := 1;

While (Add <> 0) Do
  Begin
    I := 0;
    While (I <> Add) do
      Begin
        X := X + Direction;
        Sg1.Cells[X - 1, Y - 1] := IntToStr(Number);
        Number := Number + 1;
        I := I + 1;
      End;
    I := 0;
    Add := Add - 1;
    While (I <> Add) Do
      Begin
        Y := Y + Direction;
        Sg1.Cells[X - 1, Y - 1] := IntToStr(Number);
        Number := Number + 1;
        I := I + 1;
      End;
    Direction := Direction * (-1);
  End;

End;

[puporev]

Вот разбор этой задачи.
http://programmersforum.ru/showpost....76&postcount=1
To Карась
Я когда-то списал Ваш код, а потом забыл чей он и не мог найти в поиске, и сейчас не нашел. Я долго думал зачем

For I := 1 To Sg1.RowCount Do   
For J := 1 To Sg1.ColCount Do   
Sg1.Cells[I - 1, J - 1] := IntToStr(I * 10 + J);

а потом убрал это и понял что ни зачем, это просто лишнее.