Заполнение двумерного массива по спирали
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 [...]