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

Содержание

1. Графические возможности
2. Область рисования (графическое окно) Графическое окно –
3. Рисование линии (отрезка) Отрезок АВ Line
4. Рисование прямоугольника Прямоугольник Rectangle (x1, y1,x2, y2);
5. Координатная сетка графического окна 300 400 600 200 400 0 100 200 500 100 300
6. Толщина и цвет линий Закрашивание замкнутых областей
7. Рисование ломанной линии Ломанная MoveTo (100, 50);
8. Пример программы Uses graphABC; Begin SetPenWidth(3); SetPenColor(clblue);
9. Рисование эллипса Эллипс Ellipse (x1, y1, x2,
10. Координатная сетка графического окна 200 400 600 200 400 0
11. Подпрограммы Uses graphABC; var x,y:integer; procedure имя-1;
12. Пример использования подпрограмм Uses graphABC; var x,y:integer;
13. Пример использования подпрограмм begin setpenwidth(3); x:=50; y:=50;
14. Масштабируемое изображение a A (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);
16. Масштабируемое изображение 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

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

Слайд 1ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ
Язык программирования Паскаль

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

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

окна

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

Line (100, 50, 200, 150);

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

Слайд 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)

Слайд 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
A (x, y)
B(x+3a, y+7a)

Слайд 15Масштабируемое изображение
setpenwidth(3);
moveto(x,y);
lineto(x+5a,y);
lineto(x+3a,y+7a);
lineto(x+a,y+7a);
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Масштабируемое изображение
lineto(x+10a,y+3a);
lineto(x+10a,y);
lineto(x+11a,y);
lineto(x+11a,y+7a);
lineto(x+10a,y+7a);
lineto(x+10a,y+4a);
lineto(x+7a,y+4a);
lineto(x+7a,y);
end.
moveto(x+7a,y);
lineto(x+8a,y);
lineto(x+8a,y+3*a

Скачать презентацию

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

Содержание

Слайд 1ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ
Язык программирования Паскаль

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

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

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

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

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

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

SetPenColor(clblue); - цвет

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

Слайд 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)

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

Слайд 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
A (x, y)
B(x+3a, y+7a)

Слайд 15Масштабируемое изображение
setpenwidth(3);
moveto(x,y);
lineto(x+5a,y);
lineto(x+3a,y+7a);
lineto(x+a,y+7a);
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Масштабируемое изображение
lineto(x+10a,y+3a);
lineto(x+10a,y);
lineto(x+11a,y);
lineto(x+11a,y+7a);
lineto(x+10a,y+7a);
lineto(x+10a,y+4a);
lineto(x+7a,y+4a);
lineto(x+7a,y);
end.
moveto(x+7a,y);
lineto(x+8a,y);
lineto(x+8a,y+3*a

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

Что такое ThePresentation.ru?

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

Содержание

Слайд 1ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИЯзык программирования Паскаль

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

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

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

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

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

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

Слайд 8Пример программыUses graphABC;BeginSetPenWidth(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)

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

Слайд 11Подпрограммы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.

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

Слайд 14Масштабируемое изображение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;begina:=30; x:=50; y:=50;

Слайд 16Масштабируемое изображение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

Похожие презентации

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

Что такое ThePresentation.ru?

Слайд 1ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ
Язык программирования Паскаль

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

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

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

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

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

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

SetPenColor(clblue); - цвет

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

Слайд 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)

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

Слайд 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
A (x, y)
B(x+3a, y+7a)

Слайд 15Масштабируемое изображение
setpenwidth(3);
moveto(x,y);
lineto(x+5a,y);
lineto(x+3a,y+7a);
lineto(x+a,y+7a);
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Масштабируемое изображение
lineto(x+10a,y+3a);
lineto(x+10a,y);
lineto(x+11a,y);
lineto(x+11a,y+7a);
lineto(x+10a,y+7a);
lineto(x+10a,y+4a);
lineto(x+7a,y+4a);
lineto(x+7a,y);
end.
moveto(x+7a,y);
lineto(x+8a,y);
lineto(x+8a,y+3*a