Поделиться
моя презентация.ppt
Лучше один раз увидеть, чем сто раз услышать…
16.09.2020
y
x
0
1
1
начало координат
Координатная плоскость
Оси координат
Определение координаты точки
x
0
1
1
А
●
2
3
2
3
4
Число 3 абсцисса точки А
Число 4 ордината точки А
А (3;4)
у
Программирование графических объектов в среде Pascal ABC
Цели урока:
расширить понимание возможностей ABC PASCAL в создании графических объектов;
16.09.2020
Подключение дополнительных библиотек
|
|
|
|
|
|
|
|
| 640 |
50 | |||||||||
100 | |||||||||
150 | |||||||||
200 | |||||||||
250 | |||||||||
300 | |||||||||
400 | |||||||||
16.09.2020
Точка
16.09.2020
Линия
16.09.2020
Прямоугольник
16.09.2020
Окружность
16.09.2020
Эллипс
16.09.2020
Дополнительные параметры
SetPenWidth(5) - толщина пера
SetBrushColor(clYellow) - цвет кисти
16.09.2020
Black – чёрный. Blue – синий. Green – зелёный. Cyan – голубой. Red – красный. Magenta – фиолетовый. Brown – коричневый. LightGray – светло-серый. DarkGray – тёмно-серый. LightBlue – светло-синий. LightGreen – светло-зелёный. LightGyan – светло-голубой. LightRed – розовый. LightMagenta – малиновый. Yellow – жёлтый. White – белый.
Цветовая гамма языка Turbo Pascal
Создайте программы используя следующие наборы команд:
SetBrushColor(clLime);
circle (300,350,150)
2. SetPenColor (clBlack);
rectangle(100,100,200,200);
3. SetBrushColor(clNavy);
Line (90,90,150,150);
16.09.2020
16.09.2020
16.09.2020
Началом отсчета является левый верхний угол экрана. Значения
координаты x (абсциссы) отсчитывается слева направо, а значения у (ординаты) - сверху вниз.
Направление | Х | У |
Увеличивается | Const | |
Уменьшается | ||
Const | Увеличивается | |
Уменьшается | ||
Увеличивается | ||
Уменьшается | ||
Уменьшается | Увеличивается | |
16.09.2020
Какой модуль подключается для создания графических изображений?
Вопрос:
Ответ:
модуль GraphABC
Рефлексия
16.09.2020
Какой модуль подключается для создания текста?
Вопрос:
Ответ:
модуль CRT
Рефлексия
16.09.2020
Какие графические примитивы
Вопрос:
Ответ:
Точка, линия, прямоугольник, круг, эллипс, дуга, текст…
Рефлексия
16.09.2020
Команда для создания точки?
Вопрос:
Ответ:
SetPixel(x,y,color);
Рефлексия
16.09.2020
Команда для создания линии?
Вопрос:
Ответ:
line(x1,y1, x2,y2);
Рефлексия
16.09.2020
Команда для создания прямоугольника?
Вопрос:
Ответ:
rectangle(x1,y1,x2,y2);
Рефлексия
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
