Similar presentations:
Программирование графических объектов в среде Pascal ABC
1.
Министерство образования и науки РДГПОБУ РД АЭК
Программирование
графических объектов в
среде Pascal ABC
Гаджиев Гаджи Дагирович
1
2.
Цели урока:расширить понимание возможностей
ABC PASCAL в создании графических
объектов;
2
3. Подключение дополнительных библиотек
16.02.201722
4.
Направление
Х
У
Увеличивается
Const
Уменьшается
Const
Const
Увеличивается
Const
Уменьшается
Увеличивается
Увеличивается
Увеличивается
Уменьшается
Уменьшается
Увеличивается
Уменьшается
Уменьшается
Началом отсчета является левый верхний угол экрана. Значения
координаты x (абсциссы) отсчитывается слева направо, а
значения у (ординаты) - сверху вниз.
16.02.2017
21
5. Точка
16.02.201724
6. Линия
16.02.201725
7.
Прямоугольник16.02.2017
27
8.
Окружность16.02.2017
28
9.
Эллипс16.02.2017
29
10.
Дополнительные параметрыSetPenWidth(5) - толщина пера
SetBrushColor(clYellow) - цвет кисти
16.02.2017
26
11. Цветовая гамма языка Turbo Pascal
Black – чёрный.Blue – синий.
Green – зелёный.
Cyan – голубой.
Red – красный.
Magenta – фиолетовый.
Brown – коричневый.
LightGray – светло-серый.
DarkGray – тёмно-серый.
LightBlue – светло-синий.
LightGreen – светло-зелёный.
LightGyan – светло-голубой.
LightRed – розовый.
LightMagenta – малиновый.
Yellow – жёлтый.
White – белый.
16.02.2017
31
12.
Практическиезакрепление знаний.
(командный зачёт)
Составить программу, которая выводит на экран
олимпийские кольца в фиолетовой рамке
16.02.2017
33
13.
Практическиезакрепление знаний.
(индивидуальный зачёт)
Составить программу, которая выводит на экран
A
16.02.2017
B
C
34
14.
Рефлексия(финишная прямая)
Вопрос:
Какой модуль подключается для
создания графических изображений?
Ответ:
модуль GraphABC
16.02.2017
36
15.
РефлексияВопрос:
Какой модуль подключается для
создания текста?
Ответ:
модуль CRT
16.02.2017
37
16.
РефлексияВопрос:
Какие графические примитивы
содержит модуль GraphABC?
Ответ:
Точка, линия, прямоугольник,
круг, эллипс, дуга, текст…
16.02.2017
38
17.
РефлексияВопрос:
Команда для создания точки?
Ответ:
SetPixel(x,y,color);
16.02.2017
39
18.
РефлексияВопрос:
Команда для создания линии?
Ответ:
line(x1,y1, x2,y2);
16.02.2017
40
19.
РефлексияВопрос:
Команда для создания
прямоугольника?
Ответ:
rectangle(x1,y1,x2,y2);
16.02.2017
41
20.
РефлексияВопрос:
Команда для создания
окружности?
Ответ:
circle(x,y,r);
16.02.2017
42
21.
РефлексияСегодня я узнал(узнала)…
Было интересно…
Было тяжело…
Я выполнил (выполнила) задания…
Я понял (поняла), что…
Сейчас я могу…
16.02.2017
43
22. Домашнее задание:
Составьте программу, которая выводит на экран одно изприведенных изображений
16.02.2017
44
23.
Приумножайте своизнания, занимайтесь
спортом!
“Болейте” за НАШИХ!!!
16.02.2017
46