Урок 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.

Задание 2. В системе программирования PascalАВС.NET составьте программу для исполнителя Чертежник

Вариант 1

Вариант 2

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

Вариант 1

Вариант 2

Дополнительное задание. В системе программирования PascalАВС.NET составьте программу для исполнителя Чертежник.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *