Исполнитель Чертежник. - презентация

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

17

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

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

20 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,

21 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.

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

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

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

25 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)

26

27 Закрепление материала Что нарисует Чертежник, выполнив программу: 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.

28

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

30 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. Решение:

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