Презентация по информатике на тему "Графика в языке Паскаль"

Цели урока:

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

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

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.

Полную информацию смотрите в файле. 

Графические операторы

в языке Pascal

Учитель информатики школы-гимназии №1,

г. Шымкента

Воробьевская Л.В.

Цели урока:

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

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

uses GraphABC

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

SetPixel(x,y,color)

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

Line(x1,y1,x2,y2)

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

Rectangle(x1,y1,x2,y2)

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

Ellipse(x1,y1,x2,y2)

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

Circle(x,y,r)

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

SetPenColor(color)

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

SetPenWidth(n)

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

SetPenStyle(n)

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

SetBrushColor(color)

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

FloodFill(x,y,color)

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

Проверим задание на соответствие:

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)  

рисует окружность с центром в заданной точке и данного радиуса

Определить результат выполнения программы

Program s1;

Program s2;

uses graphABC;

uses graphABC;

begin

begin

setpenwidth( 10 );

setpenwidth( 3 );

setpencolor(clblack);

setpencolor(clred);

line( 200 , 50 , 200 , 400 );

Setbrushcolor(clred);

Rectangle( 375 , 150 , 225 , 300 );

line( 300 , 50 , 300 , 400 );

Setbrushcolor(clyellow);

line( 400 , 50 , 400 , 400 );

setpencolor(clgreen);

Rectangle( 350 , 180 , 250 , 250 );

line( 125 , 125 , 475 , 125 );

line( 225 , 150 , 300 , 50 );

line( 125 , 225 , 475 , 225 );

line( 300 , 50 , 375 , 150 );

line( 125 , 325 , 475 , 325 );

Setbrushcolor(clgray);

end.

circle( 300 , 110 , 25 );

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.

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.

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

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

Получилось

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

Рефлексия