Рабочие листы
к вашим урокам
Скачать
1 слайд
Графика в Pascal
Prezentacii.com
2 слайд
Задание графического режима
Линия
Прямоугольник
Окружность
Эллипс
Дуга
Графические операторы в Pascal'e
выход
Тест №2
Тест №1
содержание
3 слайд
Для вывода графических изображений на экран монитора в языке Pascal существует стандартная библиотека Graph, подключение которой осуществляется стандартным способом
uses Graph;
В графическом режиме работы любое изображение на экране дисплея состоит из множества мельчайших светящихся точек – пикселей. Экран дисплея представляет собой прямоугольную сетку координат.
Графический режим
4 слайд
Графический режим
Размер экрана 640х480
(0,0)
(640,0)
(0,480)
y
х
(0,0)
(640,0)
(0,480)
y
х
5 слайд
Program pr;
Uses crt, graph; {использование графического режима}
Var driver, {графический драйвер}
mode:integer; {графический режим}
Begin
Driver:=detect; {автораспознавание драйвера}
Initgraph(driver, mode,’путь к файлу egavga.bgi’);
{операторы и процедуры графических построений}
Readkey;
Closegraph;
End.
Инициализация графического режима
6 слайд
0 – черный
1 – синий
2 – зеленый
3 – голубой
4 – красный
5 – фиолетовый
6 – коричневый
7 – светло-серый
8 – темно-серый
9 – ярко-синий
10 – ярко-зелёный
11 – ярко-голубой
12 – ярко-красный
13 – ярко-розовый
14 – жёлтый
15 – белый
Номера цветов
7 слайд
8 слайд
Линия
Оператор LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой из точки с координатами (x1,y1) до точки с координатами (x2,y2).
(0,0)
(640,0)
(0,480)
y
x
x1
x2
y1
y2
9 слайд
Установка цвета
SetColor(Color:integer);
Устанавливает основной цвет рисования
SetBkColor(Color:integer);
Устанавливает текущий фоновый цвет
Например: нарисовать на экране синего цвета отрезок прямой из точки с координатами(100,50) в точку с координатами(400,300) красного цвета:
SetBkColor(1);
SetColor(4);
LINE(100,50,400,300);
(0,0)
(640,0)
(0,480)
y
x
50
300
100
400
10 слайд
Прямоугольник
Процедура Bar(x1,y1,x2,y2) выводит на экран закрашенный прямоугольник с координатами левого верхнего угла (х1,у1) и правого нижнего угла (х2,у2).
Чтобы начертить закрашенную фигуры нужно:
-Установить цвет фигуры:
SETCOLOR(№ цвета);
-Установить цвет и стиль закраски:
SETFILLSTYLE(№ стиля, № цвета);
-Нарисовать фигуру: {название фигуры} (данные нужные для закраски);
-Закрасить фигуру: FLOODFILL(x,y,№ цвета границы);
Где x,y – координаты точки в замкутой области.
(х1,у1)
(х2,у2)
11 слайд
Процедура CIRCLE(x,y,r) выводит на экран окружность с центром (х,у) и радиусом r.
R
Y
X
ОКРУЖНОСТЬ
12 слайд
Процедура ELLIPSE(x,y,L1,L2,Rx,Ry) рисует эллиптическую дугу от начального угла L1 до конечногоL2, используя Х,У как координаты центра, как горизонтальный (Rx) и вертикальный(Ry) радиус.
эллипс
х
Y
Rx
Ry
L2
L1
х
Y
13 слайд
Процедура Arc(x,y,L1,L2,r) рисует дугу с центром в точке (х,у) от начального угла L1 до конечного L2 радиусом r.
ДУГА
х
у
r
L1
L2
14 слайд
Примеры решения задач:
Нарисовать квадраты, стороны которых увеличиваются от 20 до 400 ppi, с шагом 20 ppi. Центр экрана совпадает с центром квадрата. Цвет квадратов задаётся случайным числом. Для решения задачи используется цикл с постусловием.
начало
c=random(15)
Х1=310; у1=230;
а=20
Рисуем квадрат
А>400
конец
Забавные квадраты
15 слайд
Текст программы
16 слайд
Нарисовать окружности, кол-во которых задается пользователем. Центр, радиус и цвет окружностей задаётся случайным числом.
Воздушные пузыри
C:=random(15)
Начало
Ввод кол-ва
Окружностей (n)
i:=1 to n
r:=random(80)
x:=random(600)
y:=random(400)
Рисуем
окружность
конец
17 слайд
Текст программы
18 слайд
Звезда
Нарисовать звезду прямыми линиями.
начало
Рисуем отрезок
setcolor(15);
line(200,40,300,180);
Рисуем отрезок
setcolor(15);
line(180,80,200,140);
Рисуем отрезок
setcolor(15);
line(300,80,320,140);
…
конец
19 слайд
Текст программы
20 слайд
Цветок
Нарисовать цветок используя оператор Ellipse.
начало
Задаем цвет лепесткам
setcolor(14);
конец
Рисуем лепестки
Ellipse(100,300,0,180,25,20);
Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20); Ellipse(100,300,0,180,25,20);
Задаем цвет цветку
setcolor(14);
Рисуем середину цветка circle(100,50,15);
21 слайд
Тест программы
22 слайд
Робот
Нарисовать робота из разноцветных прямоугольников.
начало
Рисуем туловище:
setfillStyle(1,11);
Bar(200,40,300,180);
Рисуем голову
setfillStyle(1,15);
Bar(180,80,200,140);
Рисуем глаз
setfillStyle(1,14);
Bar(300,80,320,140);
…
конец
23 слайд
Текст программы
24 слайд
Снеговик
Нарисовать снеговик одними разноцветными окружностями.
начало
setcolor(11); Setfilstyle(1,11);
floodFillStyle(260,120,11);
…
конец
setcolor(11); Setfilstyle(1,11);
floodFillStyle(260,220,11);
setcolor(11); Setfilstyle(1,11);
floodFillStyle(260,360,11);
25 слайд
Текст программы
26 слайд
Колобок
Нарисовать колобка одними разноцветными эллипсами.
начало
Рисуем овал колобка
Рисуем рот
конец
Рисуем правый глаз
Рисуем нос
Рисуем левый глаз
27 слайд
Текст программы
28 слайд
1.Задание графического режима……………………...3
2.Линия…………………………………………………...8
3.Прямоугольник……………………………………....10
4.Окружность………………………………………….11
5.Эллипс…………………………………………...…….12
6. Дуга……………………………...…………………….13
7.Примеры решения задач……………………………14
Забавные квадраты…………………… -
Воздушные пузыри……………………...16
Звезда……………………………………...18
Цветок………...……………………….....20
Робот……………………………………..22
Снеговик…………………………………..24
Колобок.......................................................26
Содержание
Тест №2
Тест №1
Рабочие листы
к вашим урокам
Скачать
6 656 746 материалов в базе
Настоящий материал опубликован пользователем Уварова Людмила Валентиновна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс повышения квалификации
72/180 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
600 ч.
Мини-курс
4 ч.
Мини-курс
6 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.