Способы записи алгоритмов Исполнитель Чертежник

Система программирования Pascal ABC Строка заголовка Строка меню Строка состояния Окно редактора Панель инструментов

Исполнитель Чертежник предназначен для построения рисунков и чертежей с помощью инструмента «перо», которое исполнитель может поднимать, опускать, перемещать. При перемещении опущенного пера на ним остается след.

Среда обитания -координатная плоскость.

Среда обитания Начальное и конечное состояние исполнителя Чертежник: Перо поднято и находится над точкой (0,0)

Среда обитания -координатная плоскость. А(3,4) В(1,2)

Система команд Field (n,m); создать поле исполнителя Чертежник (n клеток по горизонтали, m клеток по вертикали) PenUp;поднять перо исполнителя Чертежник PenDown;опустить перо исполнителя Чертежник ToPoint(x,y);переместить перо исполнителя Чертежник в точку (x,y)

Система команд Field (n,m); создать поле исполнителя Чертежник (n клеток по горизонтали, m клеток по вертикали)

Система команд ToPoint(x,y); переместить перо исполнителя Чертежник в точку (x,y)

Вызов исполнителя Чертежник Uses Drawman; использовать

Шаблон программы Program имя программы; Uses Drawman; Begin Field(...,...);... End. Начало программы Конец программы

Шаблон программы Program имя программы; Uses Drawman; Begin Field(...,...);... End. !

Шаблон программы Program имя программы; Uses Drawman; Begin Field(...,...);... End. Любая последовательность латинских букв и цифр, начинающаяся с буквы

Шаблон программы Program имя программы; Uses Drawman; Begin Field(...,...);... End. Команды исполнителя Чертежник

Пример Program ASD; Uses Drawman; Begin Field(7,9); End.

Выполнение (F9 или )

Задание 1 Загрузить текст программы из файла Shablon.pas, заменить в тексте многоточия нужными числами для получения рисунка. Сохранить текст программы под именем AA.pas

Задание 2 Изменить текст программы AA.pas таким образом, чтобы получился такой рисунок, и сохранить текст под именем BB.pas

1)создать поле размером 3х4; 2)переместить перо в точку (1,2); 3)опустить перо; 4)переместить перо в точку (2,3); 5)переместить перо в точку (2,1); 6)переместить перо в точку (1,2); 7)поднять перо; 8)переместить перо в точку (0,0). (1,2) (2,3) (2,1) 1,

1)создать поле размером 3х4; 2)переместить перо в точку (1,2); 3)опустить перо; 4)переместить перо в точку (2,3); 5)переместить перо в точку (2,1); 6)переместить перо в точку (1,2); 7)поднять перо; 8)переместить перо в точку (0,0). Program TR; uses Drawman; Begin Field(3,4); ToPoint(1,2); PenDown; ToPoint(2,3); ToPoint(2,1); ToPoint(1,2); PenUp; ToPoint(0,0); End.

Пример Написать программу для получения рисунка:

Алгоритм получения изображения 1) определить узловые точки рисунка; 2) определить порядок их обхода; 3) определить координаты узловых точек; 4) записать нужные действия; 5) записать соответствующие команды для исполнителя Чертежник; 6) ввести текст программы в компьютер; 7) выполнить программу.

1, 5 2 6, (2,1) (3,1) (5,2) (1,2) (3,2) (3,5) (4,3)

1)создать поле размером 4х5; 2)переместить перо в точку (1,1); 3)опустить перо; 4)переместить перо в точку (0,2); 5)переместить перо в точку (4,2); 6)переместить перо в точку (3,1); 7)переместить перо в точку (1,1); 8)поднять перо; 9)переместить перо в точку (2,2); 10)опустить перо; 11)переместить перо в точку (2,5); 12)переместить перо в точку (3,3); 13)переместить перо в точку (2,2); 14)поднять перо; 15)переместить перо в точку (0,0). 1, 5 2 6, (2,1) (3,1) (5,2) (1,2) (3,2) (3,5) (4,3)

Закрепление материала Что нарисует Чертежник, выполнив программу: Program _1; Uses Drawman; Begin Field(8,5); ToPoint(1,1); PenDown; ToPoint(1,3); ToPoint(3,3); ToPoint(4,2); ToPoint(5,3); ToPoint(7,3); ToPoint(7,1); ToPoint(1,1); PenUp; ToPoint(0,0); End.

Закрепление материала Исправь ошибки в программе: Program _2; Uses Drawman; Begin ToPoint(3,3); PenDown; ToPoint(1,1); ToPoint(3,1) ToPoint(1,1); PenUp; ToPoint(0,0); End.

Program _2; Uses Drawman; Begin Field(4,4); ToPoint(2,3); PenDown; ToPoint(1,1); ToPoint(3,1); ToPoint(2,3); PenUp; ToPoint(0,0); End. Решение:

Подведение итогов Рефлексия