Магический квадрат, Visual basic 6.0 Опции

[Muffin]

Привет вам дорогие форумчане. Не могли бы вы помочь мне с одной програмкой. Програмка та ещё,на уровне фантастики. Вот само описание: дается квадрат с где k номер каждой ячейки... за определенное конечное колическтво шагов необходимо просчитать где перемещаемая точка быть не может, она не может двигаться по диагонали, и при этом при каждом шаге должно быть так чтобы точке было куда двигаться, за некоторое колическтво ходов по несколько шагов, точка должна остаться только в одном месте, которое и должна выдавать программа, гдt на выходе должна быть матрца квадрата, а ячейка в которой остается точка должна принимать значение истина. Компилятор Visual Basic Studio 6.0
P.S. Заранее огромное вам спасибо))))

[Michael_Rybak]

Алгоритм примерно такой. Мысленно переносим всё это на шахматную доску. Зафиксируем количество шагов в ходе, пусть будет 6, например.

Пусть изначально у нас точка на черной клетке. Тогда понятно, что после каждого хода она сможет оказаться только на черной клетке (потому что 6 - четное число, а цвет клетки меняется после каждого шага). Таким образом, мы все время "обрезаем" все белые клетки по краям оставшейся (необрезанной) части поля, с тем, чтобы участок все время оставался связным (т.е. не было островков).

Если же количество шагов в ходе нечетно - все то же самое, но цвет клеток, в которых может быть точка, меняется на противоположный после каждого хода.

В целом, так.

Цвет клетки (x, y) можно определять так:

Код

if (x + y) mod 2 = 0 then
  ' черная
  ...
else
  ' белая
  ...
end if