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

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


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

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

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

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

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

Содержание

Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна
Графические возможностиЯзык программирования Паскаль Область рисования (графическое окно)Графическое окно –  Uses graphABC Система координат графического окна Рисование линии (отрезка)Отрезок АВ Line (x1, y1,x2, y2);    Line Рисование прямоугольникаПрямоугольникRectangle (x1, y1,x2, y2); Rectangle (100, 50, 200, 150); Координатная сетка графического окна3004006002004000100200500100300 Толщина и цвет линий Закрашивание замкнутых областейSetPenWidth(3); - толщина линийSetPenColor(clblue); - цвет Рисование ломанной линииЛоманнаяMoveTo (100, 50); LineTo(200, 50); LineTo(150, 150); LineTo(100, 50); Пример программыUses graphABC;BeginSetPenWidth(3);SetPenColor(clblue);Line(100, 50, 200, 150);Rectangle(300, 50, 400, 150);FloodFill(350,100,clgreen);end. Рисование эллипсаЭллипсEllipse (x1, y1, x2, y2) Ellipse (100, 50, 200, 150) Координатная сетка графического окна2004006002004000 ПодпрограммыUses graphABC;var x,y:integer;procedure имя-1;begin…end;procedure имя-2;begin…End;Beginx:=a1; y:=b1;имя-1;x:=a2; y:=b2;имя-2;x:=a3; y:=b3;имя-2;x:=a4; y:=b4;имя-1;end. Пример использования подпрограммUses graphABC;var x,y:integer;procedure pr;beginrectangle(x,y,x+100,y+50);end;procedure rb;beginmoveto(x,y);lineto(x+25,y+25);lineto(x,y+50);lineto(x-25,y+25);lineto(x,y);End;beginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end. Пример использования подпрограммbeginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end. Масштабируемое изображениеaA (x, y)B(x+3*a, y+7*a) Масштабируемое изображениеsetpenwidth(3);moveto(x,y);lineto(x+5*a,y);lineto(x+3*a,y+7*a);lineto(x+a,y+7*a);lineto(x+3*a,y+a);lineto(x,y+a);lineto(x,y);uses graphabc;var x,y,a:integer;begina:=30; x:=50; y:=50; Масштабируемое изображениеlineto(x+10*a,y+3*a);lineto(x+10*a,y);lineto(x+11*a,y);lineto(x+11*a,y+7*a);lineto(x+10*a,y+7*a);lineto(x+10*a,y+4*a);lineto(x+7*a,y+4*a);lineto(x+7*a,y);end.moveto(x+7*a,y);lineto(x+8*a,y);lineto(x+8*a,y+3*a
Слайды презентации

Слайд 2 Область рисования (графическое окно)
Графическое окно – Uses graphABC

Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна



Система координат графического окна


Слайд 3 Рисование линии (отрезка)
Отрезок АВ
Line (x1, y1,x2, y2);

Рисование линии (отрезка)Отрезок АВ Line (x1, y1,x2, y2);  Line (100, 50, 200, 150);

Line (100, 50, 200, 150);


Слайд 4 Рисование прямоугольника
Прямоугольник
Rectangle (x1, y1,x2, y2);
Rectangle (100, 50,

Рисование прямоугольникаПрямоугольникRectangle (x1, y1,x2, y2); Rectangle (100, 50, 200, 150);

200, 150);


Слайд 5 Координатная сетка графического окна
300
400
600
200
400
0
100
200
500
100
300

Координатная сетка графического окна3004006002004000100200500100300

Слайд 6 Толщина и цвет линий Закрашивание замкнутых областей
SetPenWidth(3); - толщина

Толщина и цвет линий Закрашивание замкнутых областейSetPenWidth(3); - толщина линийSetPenColor(clblue); -

линий

SetPenColor(clblue); - цвет линий

FloodFill(x,y,clцвет); - закрашивание, x,y – координаты

точки внутри области
FloodFill(150,200,clgreen);


Слайд 7 Рисование ломанной линии
Ломанная
MoveTo (100, 50);
LineTo(200, 50); LineTo(150,

Рисование ломанной линииЛоманнаяMoveTo (100, 50); LineTo(200, 50); LineTo(150, 150); LineTo(100, 50);

150); LineTo(100, 50);


Слайд 8 Пример программы
Uses graphABC;
Begin
SetPenWidth(3);
SetPenColor(clblue);
Line(100, 50, 200, 150);
Rectangle(300, 50, 400,

Пример программыUses graphABC;BeginSetPenWidth(3);SetPenColor(clblue);Line(100, 50, 200, 150);Rectangle(300, 50, 400, 150);FloodFill(350,100,clgreen);end.

150);
FloodFill(350,100,clgreen);
end.


Слайд 9 Рисование эллипса
Эллипс
Ellipse (x1, y1, x2, y2)
Ellipse (100,

Рисование эллипсаЭллипсEllipse (x1, y1, x2, y2) Ellipse (100, 50, 200, 150)

50, 200, 150)


Слайд 10 Координатная сетка графического окна
200
400
600
200
400
0

Координатная сетка графического окна2004006002004000

Слайд 11 Подпрограммы
Uses graphABC;
var x,y:integer;
procedure имя-1;
begin

end;
procedure имя-2;
begin

End;
Begin
x:=a1; y:=b1;
имя-1;
x:=a2; y:=b2;
имя-2;
x:=a3; y:=b3;
имя-2;
x:=a4;

ПодпрограммыUses graphABC;var x,y:integer;procedure имя-1;begin…end;procedure имя-2;begin…End;Beginx:=a1; y:=b1;имя-1;x:=a2; y:=b2;имя-2;x:=a3; y:=b3;имя-2;x:=a4; y:=b4;имя-1;end.

y:=b4;
имя-1;
end.


Слайд 12 Пример использования подпрограмм
Uses graphABC;
var x,y:integer;
procedure pr;
begin
rectangle(x,y,x+100,y+50);
end;
procedure rb;
begin
moveto(x,y);
lineto(x+25,y+25);
lineto(x,y+50);
lineto(x-25,y+25);
lineto(x,y);
End;
begin
setpenwidth(3);
x:=50; y:=50;
pr;
x:=200;

Пример использования подпрограммUses graphABC;var x,y:integer;procedure pr;beginrectangle(x,y,x+100,y+50);end;procedure rb;beginmoveto(x,y);lineto(x+25,y+25);lineto(x,y+50);lineto(x-25,y+25);lineto(x,y);End;beginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end.

y:=50;
rb;
x:=100; y:=150;
rb;
x:=150; y:=150;
pr;
end.


Слайд 13 Пример использования подпрограмм
begin
setpenwidth(3);
x:=50; y:=50;
pr;
x:=200; y:=50;
rb;
x:=100; y:=150;
rb;
x:=150; y:=150;
pr;
end.

Пример использования подпрограммbeginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end.

Слайд 14 Масштабируемое изображение
a
A (x, y)
B(x+3*a, y+7*a)

Масштабируемое изображениеaA (x, y)B(x+3*a, y+7*a)

Слайд 15 Масштабируемое изображение
setpenwidth(3);
moveto(x,y);
lineto(x+5*a,y);
lineto(x+3*a,y+7*a);
lineto(x+a,y+7*a);
lineto(x+3*a,y+a);
lineto(x,y+a);
lineto(x,y);
uses graphabc;
var x,y,a:integer;
begin
a:=30; x:=50; y:=50;

Масштабируемое изображениеsetpenwidth(3);moveto(x,y);lineto(x+5*a,y);lineto(x+3*a,y+7*a);lineto(x+a,y+7*a);lineto(x+3*a,y+a);lineto(x,y+a);lineto(x,y);uses graphabc;var x,y,a:integer;begina:=30; x:=50; y:=50;

  • Имя файла: graficheskie-vozmozhnosti-yazyka-programmirovaniya-paskal.pptx
  • Количество просмотров: 113
  • Количество скачиваний: 0