§ 13. Использование основных алгоритмических конструкций для исполнителя Робот

Решение разбивают на небольшие задачи: дойти до нужной области, обработать ряд, перейти к следующему ряду, завершить работу. Для каждого фрагмента выбирают подходящую конструкцию. Затем фрагменты соединяют так, чтобы конечное состояние одного было допустимым началом следующего.

while FreeFromRight do
begin
  if WallFromUp then
    Paint;
  Right;
end;
if WallFromUp then
  Paint;

Робот идёт вправо и закрашивает только клетки, над которыми есть стена. Right выполняется на каждой итерации, а Paint — только при истинном WallFromUp. Последняя клетка проверяется отдельно, потому что на ней цикл движения заканчивается.

Если внешний цикл выполняется 3 раза, а внутренний каждый раз 4 раза, внутреннее тело выполнится 12 раз. Для Робота этого подсчёта недостаточно: нужно ещё проверить перемещения, возврат к началу ряда и границы поля. Неправильный переход может вызвать ошибку раньше завершения циклов.

for var row := 1 to 3 do
begin
  for var col := 1 to 4 do
    Paint;
  // Paint не перемещает Робота
end;

Для обхода нескольких рядов можно использовать «змейку»: пройти ряд вправо, спуститься на один ряд, пройти влево. Внешний цикл повторяет обработку рядов, внутренний while идёт до боковой стены. Спуск после последнего ряда запрещён, поэтому его выполняют только при свободном переходе вниз.

1. Разметить блоки

   Определить, что входит в цикл и в каждую ветвь.

2. Проследить один ряд

   Проверить первую и последнюю клетки, конец прохода.

3. Проверить переход

   Убедиться, что спуск разрешён и следующий ряд начинается в правильной точке.

4. Проверить весь результат

   Сопоставить закраску и конечную клетку с условием задачи.