Диагонали матрицы Опции

[Unconnected]

Привет всем.

Вопрос, как можно пройти по абсолютно всем диагоналям матрицы? Ну для двух главных диагоналей я сам написал, для остальных, как мне подсказали, нужны циклы for, обращаться к элементам матрицы надо по индексам i+j,j и j,j+i, но вот что-то меня вторая пара параметров смущает... И кажется, они не все диагонали проходят..

Ps: в поиск заглядывал, работу с матрицами смотрел, диагоналей не нашёл.

Сообщение отредактировано: Unconnected - 12.12.2009 3:21

[andriano]

Чтобы не повторять "настоящие" диагонали, лучше их обработать отдельно, тогда кроме них:

for j := 1 to N-1 do // перебор по "диагоналям"
  for i := 0 to N-1-j do begin// идем вдоль двух симметричных "диагоналей"
    a[j+i,i]... // вниз от диагонали "верх-лево -- низ-право"
    a[i,j+i]... // вверх от диагонали "верх-лево -- низ-право"
    a[j+i,N-1-i]... // вниз от диагонали "верх-право -- низ-лево"
    a[i,N-1-i+j]... // вверх от диагонали "верх-право -- низ-лево"
  end;