Рассмотрим несколько примеров решения задачи с помощью исполнителя Чертёжник.
Изобразим с помощью Чертёжника треугольник, положение вершин которого на координатной плоскости определяется парами чисел (1,1), (3,5), (5,2).
Так как перо Чертёжника всегда поднято, то для рисования треугольника с заданными координатами достаточно выполнить следующую программу:
Program z;
uses Drawman;
Begin
Field (6,7);
ToPoint (1,1);
PenDown;
ToPoint (3,5);
ToPoint (5,2);
ToPoint (1,1);
end.
Изобразим с помощью Чертежника прямоугольник.
Воспользуемся для рисования заданного прямоугольника командой относительного смещения OnVector(a,b).
Пусть (x,y) - координаты вершины A прямоугольника ABCD.
Тогда координаты вершины B можно записать как (x,y+2), вершины C - как (x+4,y+2), вершины D - как (x+4,y).
Чтобы изобразить отрезок AB, воспользуемся командой OnVector(0,2).
В результате Чертёжник сдвинет перо из точки с координатами (x,y) в точку с координатами (x+0,y+2).
По команде OnVector(4,0) перо окажется в точке (x+4, y+2). Чтобы из этой точки перейти в точку (x+4,y+0), следует выполнить команду OnVector(0,-2). По команде OnVector(-4,0) перо Чертёжника прочертит отрезок к точке A.
Программа будет выглядеть следующим образом:
Program z1;
uses Drawman;
Begin
Field (6,7);
OnVector (1,1);
PenDown;
OnVector (0,2);
OnVector (4,0);
OnVector (0,-2);
OnVector (-4,0);
end.
uses Drawman;
Begin
Field (6,7);
OnVector (1,1);
PenDown;
OnVector (0,2);
OnVector (4,0);
OnVector (0,-2);
OnVector (-4,0);
end.
А теперь попробуй самостоятельно составить программы, в которых Чертежник нарисует следующие изображения:
