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

Содержание

• 
  Слайд 1

  Графические возможности

  Язык программирования Паскаль

• 
  Слайд 2

  Область рисования (графическое окно)

  Графическое окно – Uses graphABC Система координат графического окна 0 50 100 150 200 250 50 100 150 200 Ось Х Ось Y A (100, 50) B (200, 150)

• 
  Слайд 3

  Рисование линии (отрезка)

  Отрезок АВ Line (x1, y1,x2, y2);Line (100, 50, 200, 150); 0 50 100 150 200 250 50 100 150 200 Ось Х Ось Y A (100, 50) B (200, 150)

• 
  Слайд 4

  Рисование прямоугольника

  Прямоугольник Rectangle (x1, y1,x2, y2); Rectangle (100, 50, 200, 150); 0 50 100 150 200 250 50 100 150 200 Ось Х A (100, 50) B (200, 150)

• 
  Слайд 5

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

  300 400 600 200 400 0 100 200 500 100 300

• 
  Слайд 6

  Толщина и цвет линийЗакрашивание замкнутых областей

  SetPenWidth(3);- толщина линий SetPenColor(clblue);- цвет линий FloodFill(x,y,clцвет);- закрашивание, x,y – координаты точки внутри области FloodFill(150,200,clgreen);

• 
  Слайд 7

  Рисование ломанной линии

  Ломанная MoveTo (100, 50); LineTo(200, 50);LineTo(150, 150); LineTo(100, 50); 0 50 100 150 200 250 50 100 150 200 Ось Х A (100, 50) B (200, 50) С (150, 150)

• 
  Слайд 8

  Пример программы

  Uses graphABC; Begin SetPenWidth(3); SetPenColor(clblue); Line(100, 50, 200, 150); Rectangle(300, 50, 400, 150); FloodFill(350,100,clgreen); end.

• 
  Слайд 9

  Рисование эллипса

  Эллипс Ellipse (x1, y1, x2, y2) Ellipse (100, 50, 200, 150) 0 50 100 150 200 250 50 100 150 200 Ось Х A (100, 50) B (200, 150)

• 
  Слайд 10

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

  200 400 600 200 400 0

• 
  Слайд 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; 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; 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.

• 
  Слайд 14

  Масштабируемое изображение

  a 0 2 4 6 8 10 0 4 2 6 D A B C A (x, y) B(x+3*a, y+7*a)

• 
  Слайд 15
  

  0 2 4 6 8 10 0 4 2 6 D A B C 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;

• 
  Слайд 16
  

  0 2 4 6 7 8 0 4 2 6 D A B C 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