Графика в среде Паскаль

1. Тема урока:

1 2 3 4 5 6 7
8
9 10 11 12 13
14 15 16 17 18 19 20

2. Тема урока:

2 3 4 5 6 7
8
9 10 11 12 13
14 15 16 17 18 19 20

3. Тема урока:

3 4 5 6 7
8
9 10 11 12 13
14 15 16 17 18 19 20

4. Тема урока:

4 5 6 7
8
9 10 11 12 13
14 15 16 17 18 19 20

5. Тема урока:

5 6 7
8
9 10 11 12 13
14 15 16 17 18 19 20

6. Тема урока:

6 7
8
9 10 11 12 13
14 15 16 17 18 19 20

7. Тема урока:

7
8
9 10 11 12 13
14 15 16 17 18 19 20

8. Тема урока:

8
9 10 11 12 13
14 15 16 17 18 19 20

9. Тема урока:

9 10 11 12 13
14 15 16 17 18 19 20

10. Тема урока:

10 11 12 13
14 15 16 17 18 19 20

11. Тема урока:

11 12 13
14 15 16 17 18 19 20

12. Тема урока:

12 13
14 15 16 17 18 19 20

13. Тема урока:

13
14 15 16 17 18 19 20

14. Тема урока:

14 15 16 17 18 19 20

15. Тема урока:

15 16 17 18 19 20

16. Тема урока:

16 17 18 19 20

17. Тема урока:

17 18 19 20

18. Тема урока:

18 19 20

19. Тема урока:

19 20

20. Тема урока:

20

21. Тема занятия:

04.03.2018
Тема занятия:

22.

Графический режим
04.03.2018

23.

Program pr;
Uses crt, graph; {использование графического режима}
Var driver,
{графический драйвер}
mode:integer;
{графический режим}
Begin
Driver:=detect;
{автораспознавание драйвера}
Initgraph(driver, mode,’путь к файлу egavga.bgi’);
{операторы и процедуры графических построений}
Readkey;
Closegraph;
End.

24.

0 – черный
1 – синий
2 – зеленый
3 – голубой
4 – красный
5 – фиолетовый
6 – коричневый
7 – светло-серый
8 – темно-серый
9 – ярко-синий
10 – ярко-зелёный
11 – ярко-голубой
12 – ярко-красный
13 – ярко-розовый
14 – жёлтый
15 – белый

25.

Установка цвета
SetColor(Color:integer);
Устанавливает основной цвет рисования
SetBkColor(Color:integer);
Устанавливает текущий фоновый цвет
Например: нарисовать на экране синего цвета отрезок прямой из точки с
координатами(100,50) в точку с координатами(400,300) красного цвета:
SetBkColor(3);
SetColor(4);
LINE(100,50,400,300);
04.03.2018

26.

MoveTo (x, y);
Устанавливает перо в координаты (x,y).
PutPixel (x, y, Color);
Рисует точку с координатами (x,y) цветом Color.
GetPixel (x, y): word;
Возвращает цвет точки с координатами (x,y).
SetLineStyle (Ln, 0, T);
Изменяет параметры контуров. Ln - стиль линии
(0..3):
T - толщина линии: 1 = нормальная; 3 = толстая.
SetFillStyle (Type, Color);
Устанавливает тип (0..11) и цвет штриховки
замкнутых фигур
ClearDevice;
Очищает графический экран закрашивая его в
текущий цвет фона

27.

Линия
Оператор LINE(X1,Y1,X2,Y2); рисует
на экране отрезок прямой из точки с
координатами (x1,y1) до точки с координатами
(x2,y2).
04.03.2018

28.

Прямоугольник
(х1,у1)
Процедура
Bar(x1,y1,x2,y2)
выводит на экран закрашенный
прямоугольник с координатами
левого верхнего угла (х1,у1) и
(х2,у2)
правого нижнего угла (х2,у2).
Чтобы начертить закрашенную фигуры нужно:
-Установить цвет фигуры:
SETCOLOR(№ цвета);
-Установить цвет и стиль закраски:
SETFILLSTYLE(№ стиля, № цвета);
-Нарисовать фигуру: {название фигуры} (данные нужные для
закраски);
-Закрасить фигуру: FLOODFILL(x,y,№ цвета границы);
Где x,y – координаты точки в замкутой области.
04.03.2018

29.

Процедура CIRCLE(x,y,r)
выводит на экран окружность с
центром (х,у) и радиусом r.
04.03.2018

30.

Процедура
ELLIPSE(x,y,L1,L2,Rx,Ry) рисует
эллиптическую дугу от начального угла L1
до конечногоL2, используя Х,У как
координаты центра, как горизонтальный
(Rx) и вертикальный(Ry) радиус.
FillEllipse (x, y, Xr, Yr);
Рисует закрашенный эллипс с центром в (x,y) и
радиусами Xr и Yr.
х
х
Rx
Y
Y
L1
Ry
L2
04.03.2018

31.

х
L2
у
L1
r
Процедура Arc(x,y,L1,L2,r)
рисует дугу с центром в точке
(х,у) от начального угла L1 до
конечного L2 радиусом r.
04.03.2018

32.

Для обеспечения задержки
выполнения действия используется
процедура:
DELAY(n);
где n – это величина (в миллисекундах)
необходимой задержки.
Процедура остановки цикла
после нажатия любой клавиши:
KEYPRESSED;

33.

Программа движения окружности:
Program okr;
Uses graph, crt;
Var x, y, r: integer;
{ параметры окружности }
dx: integer;
{ шаг перемещения окружности }
grdriver, grmode: integer; { графический режим }
Begin
Grdriver:=detect;
Initgraph ( grdriver, grmode, ‘ с:/BP/BGI‘ );
X:=0;
Y:=100;
R:=20;
Dx:=2;
Repeat
Setcolor(15);
Circle(x,y,r);
Delay(10000);
Setcolor(0);
Circle(x,y,r);
X:=x+dx;
Until keypressed;
Readln;
Closegraph;
End.

34.

35. Домашнее задание:

1) Повторение теоретического материала.
2) Как Выполнить мерцающую разными
цветами окружность? Подумать и записать
дополнение к программе.

36. Спасибо за урок!