Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Заполнение двумерного массива по спирали


Заполнение двумерного массива по спирали
2009-12-18 07:00 Александр
Заполнение двумерного массива по спирали N = 20 M = 15 mn = M * N xZ = 1 yZ = 1 x = 1 y = 1 cnt = 0 Do DoEvents For x = xZ To N M1(Abs(x), Abs(y)) = M2(cnt) cnt = cnt + 1 If cnt = mn Then Exit Sub Next x = x - 1 yZ = yZ + 1 For y = yZ To [...]


В избранное