Урок 27. Компьютерный исполнитель Чертежник

Вспомним основные элементы интерфейса программы Pascal ABC


Среда программирования и компьютерный исполнитель Чертежник

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

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

Пример. Составьте с помощью исполнителя Чертежник алгоритм рисования фигуры. Не поднимая пера и не проводя дважды по одной и той же линии.

uses Drawman; //подключаем исполнителя Чертежник.
begin
  Field(10, 8); //установка координатной плоскости.
  ToPoint(2, 1); //переместиться в точку (2,1)
  PenDown(); //опустить перо
  ToPoint(2, 5); //переместиться в точку (2,5)
  ToPoint(8, 5);  
  ToPoint(2, 1);
  ToPoint(8, 1);
  ToPoint(2, 5);
  ToPoint(5, 7);
  ToPoint(8, 5);
  ToPoint(8, 1);
  PenUp; // поднять перо.
  ToPoint(0, 0); // сместиться в начало координат.
end.

Результат работы программы:

Цифрами отмечен порядок перемещения исполнителя Чертежник между точками.


Задания

Задание 1. В рабочей тетради на координатной плоскости нарисуйте результат исполнения следующей программы:

Задание 2. В системе программирования PascalАВС.NET наберите программу рисования квадрата. Измените программу, дорисовав конверт.

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

ВАРИАНТ 1

ВАРИАНТ 2

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

ВАРИАНТ 1

ВАРИАНТ 2

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

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