§ 8. Алгоритмы и исполнители

Перед составлением алгоритма нужно определить, что дано, какой результат требуется и какие действия доступны исполнителю. «Нарисовать прямоугольник» — цель, но ещё не подробная инструкция. Для рисующего исполнителя необходимо задать начальную точку, опустить перо, пройти по сторонам и завершить рисунок.

1. Исходные данные

   Например, ширина 2 клетки и длина 4 клетки.

2. Команды

   Переход к старту, опускание пера, четыре перемещения.

3. Результат

   Замкнутый прямоугольный контур нужного размера.

Исполнителем может быть человек, техническое устройство или программа. Среда задаёт, с какими объектами и в каких условиях он работает. Система команд исполнителя — набор команд, которые он умеет выполнять. Условие применимости команды тоже важно: шаг через стену не становится допустимым от того, что команда записана правильно.

ToPoint задаёт конечную точку независимо от текущего положения. OnVector задаёт смещение относительно текущей точки. Из (1, 1) команда OnVector(4, 0) приводит в (5, 1), а ToPoint(4, 0) — в (4, 0). При поднятом пере перемещение не оставляет следа.

Пусть периметр участка 120 м, длина вдвое больше ширины. Тогда 2(a + 2a) = 120; 6a = 120; a = 20 м, длина 40 м. При масштабе 1 клетка = 10 м нужно нарисовать прямоугольник 4 × 2 клетки. Начнём в (1, 1), обойдём контур и вернёмся к старту.

uses Drawman;
begin
  Field(6, 4);
  ToPoint(1, 1);
  PenDown;
  OnVector(4, 0);
  OnVector(0, 2);
  OnVector(-4, 0);
  OnVector(0, -2);
  PenUp;
end.

Проверяем отдельно расчёт и рисунок: периметр 2 × (40 + 20) = 120 м; последняя точка совпадает с первой; все стороны имеют нужную длину; в конце перо поднято.