Урок 28

Изменение готовых алгоритмов для исполнителя Чертежник

Теоретическая часть

Для создания произвольного поля размера 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' )

Электронная рабочая тетрадь