Исполнитель Чертежник

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

Для ознакомления с компьютерным исполнителем Чертежник посмотрите видеофрагмент https://www.youtube.com/watch?v=23ftKkZVkJs) или прочтите информацию пункта 18.2 §18

Рисунок 1

Пример 1

Программа решения задачи a1, представленной на Рисунке 1:

uses Drawman;

begin

Task('a1');

ToPoint(2,3);

PenDown;

ToPoint(3,5);

PenUp;

ToPoint(0,0);

end.

Упражнения

Задание 1

При решении задачи a2 для исполнителя Чертежник были перепутаны строки. Восстановите решение задачи или предложите свое решение.

uses Drawman;

begin

Task('a2');

PenUp;

PenDown;

ToPoint(5,4);

ToPoint(3,2);

ToPoint(1,6);

ToPoint(0,0);

ToPoint(7,1);

PenDown;

ToPoint(8,5);

PenUp;

ToPoint(5,4);

end.

Задание 2

Составить программу для решения задачи a3.

Задание 3

Составить программу для решения задачи a4.

Задания данной группы выполняются с использованием команды OnVector

Посмотрите еще раз видеофрагмент https://www.youtube.com/watch?v=23ftKkZVkJs) или прочтите информацию пункта 18.2 §18. Особое внимание обратите на команду OnVector

Задание 4

Изменить в решении задачи a1 (см. пример) выделенную команду toPoint(3,5) на команду onVector( , ) с правильными параметрами.

Задание 5

В решении задачи a4 дописать пропущенные параметры. Не забудьте возвратить чертежника в исходную точку.

(Дописываем в скобках пропущенные значения параметров. Удаляем двойной слеш, освобождаем по очереди команды для исполнения и запускаем)

Задание 6

Составить программу для решения задачи a5.

Задание 7*

Составить программу для решения задачи p2. (Нарисовать одно окно)

Задача a4

uses Drawman;

begin

Task('a4');

toPoint(1,3);

penDown;

onVector(0,2);

onVector(2,0);

onVector(0,-2);

onVector(-2,0);

penUp;

// toPoint( , );

// penDown;

// onVector( , );

// penUp;

// toPoint( , );

// penDown;

// onVector( , );

// penUp;

end.

Использование вспомогательных алгоритмов (процедур).

Посмотрите видеофрагмент https://www.youtube.com/watch?v=UTc8Am-WKOQ&feature=youtu.be или прочтите §20.

Создание процедуры:

Uses Drawman;

Procedure name1; //имя процедуры

Begin //начало процедуры

... //команды процедуры

end; //конец процедуры

Procedure name2; //имя процедуры

Begin //начало процедуры

... //команды процедуры

end; //конец процедуры

begin //начало основной программы

field(...,...); //чистый лист

task('...'); //либо загрузка задания

//Что-то одно!!!

... //команды программы

name1; //вызов процедуры

... //команды программы

name2; //вызов процедуры

... //команды программы. И т.д.

end.

Пример 2

Uses Drawman;

Procedure romb;

Begin

PenDown;

onVector(1,1);

onVector(1,-1);

onVector(-1,-1);

onVector(-1,1);

PenUp;

onVector(2,0);

end;

Begin

Field(10,4);

ToPoint(0,2);romb;

romb;romb;romb;romb;

ToPoint(0,0);

end.

Задание 8.

Составить алгоритмы для построения 2-x изображений (выбору).

Задание 9*

Составьте алгоритмы для выполнения заданий p2, p3, p4.

Google Sites

Report abuse