Вспомним основные элементы интерфейса программы 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