Слайд 3
Подключение дополнительных
библиотек
Для работы в графическом режиме необходимо
подключение модуля GraphABC.
Program prim;
Uses crt, GraphABC;
Var …;
Begin
…
End.
Слайд 4
Графический режим
640 точек
480 точек
(0,0)
Слайд 5
Управление экраном
SetWindowWidth(w) - устанавливает ширину
графического окна
SetWindowHeight(h) -
устанавливает высоту
графического окна
SetWindowSize(w,h) – устанавливает ширину и
высоту графического окна
Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
end.
Слайд 6
Очистка графического окна
ClearWindow - очистка графического окна белым
цветом
ClearWindow(color) - очистка графического окна
указанным цветом
Program prim;
uses crt,
graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
end.
Слайд 7
Графические примитивы
точка
линия
прямоугольник
окружность
эллипс
сектор
дуга
Слайд 8
Line(x1,y1,x2,y2) - рисует отрезок с началом
в точке
(х1,у1) и концом в точке (х2,у2)
Линии
LineTo(x,y) - рисует
отрезок от текущего положения
пера до точки с координатами х,у
Слайд 9
Линии
SetPenColor(color) - устанавливает цвет пера
SetPenWidth(n) - устанавливает ширину
пера,
равную n пикселям
Program prim;
uses crt, graphABC;
var x,j,i:integer;
begin
SetPenWidth(3);
SetPenColor(clred);
Line(30,100,600,500)
end.
Слайд 11
Прямоугольник
Rectangle(x1,y1,x2,y2) - рисует прямоугольник,
заданный координатами вершин
FloodFill(x,y,color)
- заливает область от точки
с координатами х,у
до границы цветом color
Слайд 12
Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
Rectangle(0,400,1000,600);
FloodFill(10,450,clgreen);
end.
Нарисуем землю
Слайд 13
Нарисуем домик
{домик}
SetPenWidth(3);
Rectangle(50,300,300,500);
FloodFill(60,450,clLtGray);
{крыша}
Line(40,300,175,200);
LineTo(310,300);
LineTo(40,300);
FloodFill(175,250,clBrown);
{окно}
Rectangle(70,350,170,450);
FloodFill(75,400,clYellow);
Line(70,380,170,380);
Line(120,380,120,450);
{дверь}
Rectangle(200,350,270,500);
FloodFill(250,450,clBrown);
Слайд 14
Окружность
Circle(x,y,r) - рисует окружность с центром в точке
(х,у)
и радиусом r
Слайд 15
Эллипс
Ellipse(x1,y1,x2,y2) - рисует эллипс, вокруг которого
описан прямоугольник
с заданными координатами
Слайд 16
Нарисуем аллею деревьев
x:=400;
Rectangle(x,300,x+10,500);
FloodFill(x+3,350,clBrown);
Ellipse(x-30,150,x+40,350);
FloodFill(x,200,clgreen);
Слайд 17
Нарисуем аллею деревьев
x:=400;
for j:=1 to
4 do
begin
Rectangle(x,300,x+10,500);
FloodFill(x+3,350,clBrown);
Ellipse(x-30,150,x+40,350);
FloodFill(x,200,clgreen);
x:=x+100;
end;
Слайд 18
Нарисуем солнышко
{солнышко}
SetPenColor(clYellow);
Line(30,100,170,100);
Line(100,30,100,170);
Line(50,50,150,150);
Line(50,150,150,50);
Circle(100,100,40);
FloodFill(100,100,clYellow);