Урок 28. Изучение и изменение готовых программ

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

Команда	Действие
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.	        {конец программы}

Задания

Задание 1. Выполните программу в среде PascalABC.net. Внесите изменения в программу, чтобы рисунок соответствовал образцу (изменения выделены красным цветом):

uses Drawman;
begin

  Field(10,9);
  ToPoint(2,5); PenDown;
  ToPoint(8,5);
  ToPoint(8,1); 
  ToPoint(2,1); 
  ToPoint(2,5); 
  ToPoint(5,7); 
  ToPoint(8,5); PenUp;
  ToPoint(3,4);
  PenDown;
  ToPoint(5,4); 
  ToPoint(5,3); 
  ToPoint(3,3); 
  ToPoint(3,4);
  PenUp;
  ToPoint(6,1);
  PenDown;
  ToPoint(6,3); 
  ToPoint(7,3); 
  ToPoint(7,1);
  PenUp; 
End.