Теоретическая часть
Для создания произвольного поля размера 20 x 30 используется процедура StandardField без параметров, а для создания поля размера N x M - процедура Field(N,M). Переменные N и M следует заменить на цифровые значения (например Field(10,10); ). После запуска программы откроется окно, в котором расположено поле Чертежника ( данном случае поле будет размером 10 на 10 клеток) .
Каждая точка на поле чертёжника задаётся 2-мя координатами: x и y. X-координаты отсчитываются по горизонтали слева направо. Именно они расположены в нижней части поля чертёжника. Y-координаты, соответственно, отсчитываются по вертикали снизу вверх и расположены в левой части поля чертёжника.
Как же определить: какие координаты у нужной нам точки? Очень просто: от необходимой нам точки начинайте мысленно двигаться вертикально вниз - вы "упрётесь" в x-координату этой точки. После этого от этой же точки начинайте мысленно двигаться влево - вы "упрётесь" в y-координату.
Координаты точек и векторов – только целые числа. Наберите пример программы, по которой Чертежник рисует звездочку.
program Star;
uses Drawman;
begin
Field(10,10);
ToPoint(2,1);
PenDown; ToPoint(5,9);
ToPoint(8,1);
ToPoint(1,6);
ToPoint(9,6);
ToPoint(2,1);
PenUp;
ToPoint(0,0);
end.
Система Pascal ABC имеет встроенный задачник с учебными проверяемыми заданиями. Каждое задание содержит образец рисунка, который Чертежник должен получить , выполняя составленную пользователем программу.
После того, как ученик составил и исполнил программу, система проверяет эту программу и выдает сообщение: верно она составлена или нет. Однако, система действует формально. К примеру, она будет считать ошибкой, если Чертежник после исполнения программы не возвращен в начало координат.
Для работы с задачником надо в теле программы сразу после begin записать команду:
Task('а1');
Здесь Task - процедура, содержащаяся в модуле Drawman и вызывающая задание с указанным именем. В примере это имя а1.
Имеются следующие группы заданий для исполнителя Чертежник:
a – вводные задания;
c – цикл с параметром;
cc – вложенные циклы;
p – процедуры без параметров;
pp – процедуры с параметрами.
Наберите пример программы Линия.
program Linija;
uses DrawMan;
begin
task ( 'a1' );
ToPoint(2,3);
PenDown;
ToPoint(3,5);
PenUp;
ToPoint(0,0);
end.
Задание 1. Программа звезда(скачать)
Задание 2. Программа линия(скачать)
Задание 3. Выполните самостоятельно для task ( 'a2' ) и task ( 'a3' )