Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Графические возможности PascalABC

Содержание

PAINT
Учитель МБОУ СОШ №48 Тучина Е.ВГрафические  возможности PASCAL ABC PAINT Подключение дополнительных библиотекДля работы в графическом режиме необходимо  подключение модуля GraphABC.Program Графический режим 640 точек480 точек(0,0) Управление экраномSetWindowWidth(w) - устанавливает ширину 				графического окнаSetWindowHeight(h) - устанавливает высоту 				графического окнаSetWindowSize(w,h) Очистка графического окнаClearWindow - очистка графического окна белым цветомClearWindow(color) - очистка графического Графические примитивыточкалинияпрямоугольникокружностьэллипссектордуга Line(x1,y1,x2,y2) - рисует отрезок с началом  		в точке (х1,у1) и концом ЛинииSetPenColor(color) - устанавливает цвет пераSetPenWidth(n) - устанавливает ширину пера,  			равную n Используемые цвета ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами вершинFloodFill(x,y,color) - заливает область от точки Program prim;uses crt, graphABC;begin SetWindowWidth(800); SetWindowHeight(600); clearWindow(clSkyBlue); Rectangle(0,400,1000,600); FloodFill(10,450,clgreen);end.Нарисуем землю Нарисуем домик {домик} 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); ОкружностьCircle(x,y,r) - рисует окружность с центром в точке (х,у) 		и радиусом r ЭллипсEllipse(x1,y1,x2,y2) - рисует эллипс, вокруг которого описан прямоугольник с заданными координатами Нарисуем аллею деревьев x:=400; Rectangle(x,300,x+10,500); FloodFill(x+3,350,clBrown); Ellipse(x-30,150,x+40,350); FloodFill(x,200,clgreen); Нарисуем аллею деревьев x:=400;  for j:=1 to 4 do  begin Нарисуем солнышко{солнышко}  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); Спасибо за внимание! Program prim;uses crt, graphABC;var x,j:integer;begin SetWindowWidth(800); SetWindowHeight(600); clearWindow(clSkyBlue); Rectangle(0,400,1000,600); FloodFill(10,450,clgreen);  {домик}
Слайды презентации

Слайд 2 PAINT

PAINT

Слайд 3 Подключение дополнительных
библиотек
Для работы в графическом режиме необходимо

Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC.Program prim;Uses crt, GraphABC;Var 	…;Begin …End.

подключение модуля GraphABC.
Program prim;
Uses crt, GraphABC;
Var …;
Begin

End.


Слайд 4 Графический режим
640 точек
480 точек
(0,0)

Графический режим 640 точек480 точек(0,0)

Слайд 5 Управление экраном
SetWindowWidth(w) - устанавливает ширину
графического окна
SetWindowHeight(h) -

Управление экраномSetWindowWidth(w) - устанавливает ширину 				графического окнаSetWindowHeight(h) - устанавливает высоту 				графического

устанавливает высоту
графического окна
SetWindowSize(w,h) – устанавливает ширину и

высоту графического окна

Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
end.


Слайд 6 Очистка графического окна
ClearWindow - очистка графического окна белым

Очистка графического окнаClearWindow - очистка графического окна белым цветомClearWindow(color) - очистка

цветом
ClearWindow(color) - очистка графического окна указанным цветом
Program prim;
uses crt,

graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
end.

Слайд 7 Графические примитивы
точка
линия
прямоугольник
окружность
эллипс
сектор
дуга

Графические примитивыточкалинияпрямоугольникокружностьэллипссектордуга

Слайд 8 Line(x1,y1,x2,y2) - рисует отрезок с началом в точке

Line(x1,y1,x2,y2) - рисует отрезок с началом 		в точке (х1,у1) и концом

(х1,у1) и концом в точке (х2,у2)
Линии
LineTo(x,y) - рисует

отрезок от текущего положения пера до точки с координатами х,у

Слайд 9 Линии
SetPenColor(color) - устанавливает цвет пера
SetPenWidth(n) - устанавливает ширину

ЛинииSetPenColor(color) - устанавливает цвет пераSetPenWidth(n) - устанавливает ширину пера, 			равную n

пера, равную n пикселям
Program prim;
uses crt, graphABC;
var x,j,i:integer;
begin
SetPenWidth(3);

SetPenColor(clred);
Line(30,100,600,500)
end.

Слайд 10 Используемые цвета

Используемые цвета

Слайд 11 Прямоугольник
Rectangle(x1,y1,x2,y2) - рисует прямоугольник,
заданный координатами вершин
FloodFill(x,y,color)

Прямоугольник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);

Program prim;uses crt, graphABC;begin SetWindowWidth(800); SetWindowHeight(600); clearWindow(clSkyBlue); Rectangle(0,400,1000,600); FloodFill(10,450,clgreen);end.Нарисуем землю

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);

Нарисуем домик {домик} 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);

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) - рисует окружность с центром в точке

ОкружностьCircle(x,y,r) - рисует окружность с центром в точке (х,у) 		и радиусом r

(х,у)
и радиусом r


Слайд 15 Эллипс
Ellipse(x1,y1,x2,y2) - рисует эллипс, вокруг которого
описан прямоугольник

Эллипс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);

Нарисуем аллею деревьев 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

Нарисуем аллею деревьев x:=400; for j:=1 to 4 do begin

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);

Нарисуем солнышко{солнышко} 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);

Line(50,50,150,150);
Line(50,150,150,50);
Circle(100,100,40);
FloodFill(100,100,clYellow);


Слайд 19 Спасибо за внимание!

Спасибо за внимание!

  • Имя файла: prezentatsiya-graficheskie-vozmozhnosti-pascalabc.pptx
  • Количество просмотров: 142
  • Количество скачиваний: 0