Урок 31. Составление алгоритмов для исполнителя Чертёжник

Система команд исполнителя Чертежник

Команда	Действие
Field(n,m)	Создать поле размером n x m
PenDown	Опускает перо Чертежника
PenUp	Поднимает перо Чертежника
ToPoint(x,y)	Перемещает перо Чертежника в точку (*x, y*)
OnVector(a,b)	Перемещает перо Чертежника на вектор (*a, b*) (т.е. на а единиц по оси Ох и на b единиц по оси Оу относительно текущей точки)

Общий вид программы

program a1;	{название программы}
uses Drawman;	{вызов исполнителя Чертежник}
begin	        {начало программы}
Task('a1');	{вызов задания с именем а1}
   ...	        {команды}
end.	        {конец программы}

Пример. Использование подпрограммы для рисования елки.

program Elka;
uses Drawman;

procedure Triangle;
begin

  PenDown;
  OnVector(3, 2);
  OnVector(3, -2);
  OnVector(-6, 0);
  PenUp;
end;

begin

  Field(9, 9);
  ToPoint(1, 1);
  Triangle;
  ToPoint(1, 3);
  Triangle;
  ToPoint(1, 5);
  Triangle;
  ToPoint(0, 0);
end.