Элементы интерфейса среды программирования Pascal ABC
Общий вид программы на языке Pascal
program имя программы;
раздел подключения модулей;
раздел описаний;
begin
операторы
end.Имя программы может состоять из английских букв, цифр, знаков подчеркивания и должно начинаться с буквы.
Исполнитель Чертежник
Исполнитель Чертежник предназначен для построения рисунков и чертежей на координатной плоскости. Чертежник имеет перо, которое он может поднимать, опускать и перемещать. Когда опущенное перо перемещается, за ним остается след. Начальное положение пера Чертежника — точка (0,0), перо поднято. В конце программы перо Чертежника должно быть поднято и находиться в начале координат.
Система команд исполнителя Чертежник
| Field(n,m) | Создать поле размером n x m |
| PenDown | Опускает перо Чертежника |
| PenUp | Поднимает перо Чертежника |
| ToPoint(x,y) | Перемещает перо Чертежника в точку (x, y) |
| OnVector(a,b) | Перемещает перо Чертежника на вектор (a, b) (т.е. на а единиц по оси Ох и на b единиц по оси Оу относительно текущей точки) |
Команды исполнителя Чертежник содержатся в модуле Drawman.
При работе с исполнителем Чертежник есть возможность выполнять проверяемые задания. Для вызова задания для исполнителя Чертежник используется следующий шаблон программы:
program a1; {название программы}
uses Drawman; {вызов исполнителя Чертежник}
begin {начало программы}
Task('a1'); {вызов задания с именем а1}
... {команды}
end. {конец программы}
Пример. Написать программу для исполнителя Чертежник, которая построит квадрат.
program kvadrat;
uses Drawman;
begin
Field(10,10);
ToPoint(2,2);
PenDown;
ToPoint(8,2);
ToPoint(8,8);
ToPoint(2,8);
ToPoint(2,2);
PenUp;
ToPoint(0,0);
end.
Задания
Задание 1. В системе программирования Pascal ABC выполните проверяемое задание а1 для исполнителя Чертежник.
1. Запустите систему программирования Pascal ABC.
2. В рабочей области наберите текст программы:
program pr1;
uses Drawman;
begin
Task('a1');
end.
3. Выполните команду Программа → Выполнить (<F9> или кнопка “Выполнить программу”)
4. Откроется окно исполнителя Чертежник с заданием а1. Красным цветом изображен отрезок, который надо нарисовать.
5. В рабочей области дополните программу, дописывая в нее команды, с помощью которых можно начертить данный отрезок:
program pr1;
uses Drawman;
begin
Task('a1');
ToPoint(2,3);
PenDown;
ToPoint(3,5);
PenUp;
ToPoint(0,0);
end.
6. Снова нажмите кнопку Выполнить программу. В окне Исполнитель Чертежник нажмите кнопку Пуск (<Enter>). Программа будет выполнена, в окне Чертежника появится нарисованный отрезок синего цвета, а в нижней части окна – сообщение на зеленом фоне: Чертежник: Задание выполнено!
Совет. Не удаляйте уже выполненное задание a1. Новую программу набирайте в новой вкладке. Для этого выполните команду Файл → Новый (<Ctrl + N> или кнопка Новый файл на Панели инструментов). Работа пойдет быстрее, если вы скопируете строки программы из предыдущего задания.
Задание 2. В системе программирования PascalABC.NET выполните проверяемое задание для исполнителя Чертежник. Поле создайте, используя команду Field (m,n)
ВАРИАНТ 1
ВАРИАНТ 2
Задание 3. В системе программирования PascalABC.NET напишите программу для исполнителя Чертежник. Поле создайте, используя команду Field (m,n).
ВАРИАНТ 1
ВАРИАНТ 2
Задание 4. В системе программирования PascalABC.NET выполните проверяемое задание a5 для исполнителя Чертежник.
Задание 5. Вставьте пропущенные координаты в алгоритме рисования треугольника.
Program triangle;
Uses Drawman;
begin
ToPoint ( , );
PenDown;
ToPoint ( , );
ToPoint ( , );
ToPoint ( , );
PenUp;
ToPoint(0,0);
end.