Графические операторы в языке Pascal Учитель информатики школы-гимназии 1, г. Шымкента Воробьевская Л.В. - презентация

1

2 Графические операторы в языке Pascal Учитель информатики школы-гимназии 1, г. Шымкента Воробьевская Л.В.

3 Цели урока: Получить представление о графике в языках программирования. Научиться писать простейшие программы для построения рисунка в Паскале.

4 Назначение операторов: uses GraphABC

5 Назначение операторов: SetPixel(x,y,color)

6 Назначение операторов: Line(x1,y1,x2,y2)

7 Назначение операторов: Rectangle(x1,y1,x2,y2)

8 Назначение операторов: Ellipse(x1,y1,x2,y2)

9 Назначение операторов: Circle(x,y,r)

10 Назначение операторов: SetPenColor(color)

11 Назначение операторов: SetPenWidth(n)

12 Назначение операторов: SetPenStyle(n)

13 Назначение операторов: SetBrushColor(color)

14 Назначение операторов: FloodFill(x,y,color)

15 Найдите соответствие между оператором и его функцией

16 Проверим задание на соответствие: SetPixel(x,y,color) закрашивает один пиксел с координатами (x,y) цветом color. Line(x1,y1,x2,y2) рисует прямоугольник, заданный координатами противоположных вершин Rectangle(x1,y1,x2,y2) рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2) SetPenColor(color) устанавливает цвет кисти, задаваемый параметром color Setbrushcolor(color) устанавливает цвет пера, задаваемый параметром color SetPenStyle(n ) устанавливает ширину (толщину) пера, равную заданным пикселям SetPenWidth(n) устанавливает стиль пера, задаваемый номером FloodFill(x,y,color) заливает область одного цвета цветом color, начиная с заданной точки Сircle(x,y,r) рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин Ellipse(x1,y1,x2,y2) рисует окружность с центром в заданной точке и данного радиуса

17 Определить результат выполнения программы Program s1; uses graphABC; begin setpenwidth(10); setpencolor(clred); line(200,50,200,400); line(300,50,300,400); line(400,50,400,400); setpencolor(clgreen); line(125,125,475,125); line(125,225,475,225); line(125,325,475,325); end. Program s2; uses graphABC; begin setpenwidth(3); setpencolor(clblack); Setbrushcolor(clred); Rectangle(375,150,225,300); Setbrushcolor(clyellow); Rectangle(350,180,250,250); line(225,150,300,50); line(300,50,375,150); Setbrushcolor(clgray); circle(300, 110, 25); end.

18 Результат выполнения программы:

19 Запишите программу для реализации изображений:

20 Программы к рисункам: Program s1; uses graphABC; begin setpenwidth(3); setpencolor(clred); Setbrushcolor(cllime); circle(300, 225, 109); setpencolor(clblack); Setbrushcolor(clyellow); Rectangle(375,150,225,300); end. Program s2; uses graphABC; begin setpencolor(clblack); setpenwidth(4); setbrushcolor(clyellow); circle(300, 200, 150); setbrushcolor(clblue); circle(300, 200, 100); setbrushcolor(clgreen); circle(300, 200, 50); setbrushcolor(clred); circle(300, 200, 25); end.

21 Исправьте ошибки в программах:

22 Должно получиться Получилось

23 Творческое задание

24 Рефлексия