Обход массива по спирали

[PAPA_KARLO]

можете кто нибудь подсказать алгоритм обхода по спирали, по часовой стрелке квадратного массива нечётной размерности? Исходник не нада, просто алгоритм

[COBEHOK]

примерно так

N - размер
A = array [0..N-1, 0..N-1]
i = 1  // просто счетчик
for(level = 0; level <= N/2; level++)
{
  for(cols1 = level; cols1 < N - level; cols++)
     A[level,cols1] = i++;
  for(rows1 = level + 1; rows1 < N - level; rows++)
     A[rows1,N-level-1] = i++
  for(cols2 = N-level-2; cols2 >= level; cols2--)
     A[N-level-1,cols2] = i++
  for(rows2 = N-level-2; rows2 > level; rows2--)
    A[rows2,level] = i++
}

[PAPA_KARLO]

это на Сишке? Под Пас сможешь переделать или словами объяснить ? Синтаксис вобще не знаю

а зачем вы такие задачки решаете? для развлечения?

[PAPA_KARLO]

знакомые попросили, вот и задумался, 2 дня голову ломал, так ничего путнего и не придумал, обрывки какие то есть в голове, а аформить не могу

[COBEHOK]

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

это на Сишке? Под Пас сможешь переделать или словами объяснить ? Синтаксис вобще не знаю

Это алгоритм как ты и просил

for(cols1 = level; cols1 < N - level; cols++) означает примерно следубщее
Цикл cols1 от (level) до (N - level) с шагом 1

for(cols2 = N-level-2; cols2 >= level; cols2--) означает
Цикл cols2 от (N-level-2) до (level) с шагом -1

A[level,cols1] = i++; означает i = i + 1; A[level,cols1]=i;

[TiRex]

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

A[level,cols1] = i++; означает i = i + 1; A[level,cols1]=i;

Ошибся ты немного.
A[level,cols1]=i++; означает A[level,cols1]=i; а только потом i=i+1;