Графикалы? процедура

Рептьюкром

Тамикатема

Акауиф

лиягоибо

Компьютер

Математика

Физика

Биология

Программа

Мышка

Редактор

меню

Марамгроп

кышма

Дакротре

Енюм

Екі, бес, нөл, қосынды, бір, тоғыз

Көбейту, өшіру, азайту, қосу, бөлу

вирус, синус, косинус, тангенс

Visual Basic,

Microsoft Office,

Turbo Pascal,

Java .

Холлерит,

Паскаль,

Менделеев,

Нортон .

Информатикалық ұйқас

Компьютердің есептерін басқарған,

Артығы жоқ визуальді

Паскалдан.

............

Информатикалық ұйқас

Қызыл, жасыл, сары, ақ пен қоңырды,

Салу үшін білу керек

с olor- д і.

............

Информатикалық ұйқас

Графиканы сызып берер тура,

Ол программа

процедура.

............

Информатикалық ұйқас

Операторды бастар кезде не дейм,

Ең басында жазылады

............

begin .

Ал соңында не деп жазам енді,

Ол әрине

end .

............

Графикалық процедуралар

06.02.2014.

Дисплей экраны нүктелер жиыны болып табылатын төрт бұрыш болып табылады. Ол графикалық және мәтіндік режімдерде жұмыс атқара алады.

Графикалық режимде экранның әрбір нүктесін түрлі түске бояп, сол түстер арқылы сызық, әр түрлі бейнелер кескіндеуге болады.

Дисплей теледидар сияқты жұмыс істейді, экрандағы бейне секундына 25 рет қайталанып отырады. Адамның көзі бейнелерді мұндай жиілікпен ауысуын байқай алмайды да, мониторда сол бейне қозғалмай тұрғандай болып көрінеді. Экрандағы бейнелер кішкене нүктелерден (пиксельдерден) тұратын қатарларға біріктірілген. Сондықтан экранның басқарылатын ең кіші элементі пиксель (pixel) болып табылады. Экрандағы кез келген бейне осы пиксельдер арқылы салынады. Графикалық режимде экран тіктөртбұрышты пиксельдер жиынынан құралады да, мұнда кез келген пикселінің түсін әртүрлі етуге мүмкіндік бар.

Экрандық координаттық жүйе

Дисплей теледидар сияқты жұмыс істейді, экрандағы бейне секундына 25 рет қайталанып отырады. Адамның көзі бейнелерді мұндай жиілікпен ауысуын байқай алмайды да, мониторда сол бейне қозғалмай тұрғандай болып көрінеді. Экрандағы бейнелер кішкене нүктелерден (пиксельдерден) тұратын қатарларға біріктірілген. Сондықтан экранның басқарылатын ең кіші элементі пиксель (pixel) болып табылады. Экрандағы кез келген бейне осы пиксельдер арқылы салынады. Графикалық режимде экран тіктөртбұрышты пиксельдер жиынынан құралады да, мұнда кез келген пикселінің түсін әртүрлі етуге мүмкіндік бар.

(6 40 ,0)

(0,0)

x

Пиксель

Экран

(0,4 80 )

y

Program pr;

Uses crt, Graph; { графикалық модуль ді іске қосу }

Var GraphDriver, { графикалық драйвер }

Graphmode:integer; { графикалық режим типі }

Begin

Clrscr; { экранды тазалау }

GraphDriver:=0; { Графикалық драйверді ашу }

Initgraph(GraphDriver, GraphMode,’ путь к файлу egavga.bgi’);

{ Графикалық жүйені инициализация жасайды және аппаратураны графикалық режимге ауыстырады }

Readkey;

Closegraph; ; { графиктік режимді жабу }

End.

16

Графиктік режимді іске қосу

InitGraph (gd,gm,p)

Графикалық драйвер ( gd=9 )

Драйверге бару жолы

Режим (разрешение)

‘ c:\trans\bp\bgi’

gm= 0 - низкое ( 640x200)

gm=1 - среднее ( 640x350)

gm=2 - высокое ( 640x480)

y

Сызықтің түсі

SetLineStyle(s, p, t)

Стиль

Шаблон

Қалыңдығы

0

1

2

3

4 Определяется шаблоном

1 Жіңішке

3 Қалың

0 – қара-чёрный

1 – көк-синий

2 – жасыл-зеленый

3 – к өгілдір-г олубой

4 – қызыл-красный

5 – күлгін-фиолетовый

6 – қоңыр-коричневый

7 – ашық сұр-светло-серый

8 – қою сұр-темно-серый

9 – ашық көк-ярко-синий

10 – ашық жасыл-ярко-зелёный

11 – ашық көгілдір-ярко-голубой

12 – ашық қызыл-ярко-красный

13 – ашық күлгін-ярко-розовый

14 – сары-жёлтый

15 – ақ-белый

SetColor(c)

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

20

Стиль №

Толтыру стилінің түсі

0

Стиль №

Толтыру (фон түсімен бояйды)

1

Толтыру стилінің түсі

2

Ағымдағы түспен бояйды

6

3

7

4

8

9

5

10

11

21

Нүкте салу

PutPixel (x, y, c);

Координаттар

Түс

x

y

Экранның ортасында жасыл түсті нүкте салу

Program Primer;

Uses Graph;

Var Gd, Gm : Integer;

Begin

Gd:=9; Gm:=2;

InitGraph(Gd,Gm,’c:\bp\bgi’);

PutPixel(320,240,2);

Readln;

CloseGraph;

End.

Сызық

Оператор LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой из точки с координатами (x1,y1) до точки с координатами (x2,y2) .

24

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer1;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Putpixel(123,423,yellow);

Readln;

End.

.

Түсті орнату

SetColor(Color:integer);

Суреттің негізгі түсін орнатады

SetBkColor(Color:integer);

Ағымдағы фонның түсін орнатады

Мысалы: экранға координаттары (100,50) болатын көк түсті төртбұрыштың бөлігіне координаттары (400, 300) болатын қызыл түсті кемкінді салайық:

SetBkColor( 1 );

SetColor( 4 );

LINE( 100 , 50 , 400,300 );

24

Тіктөртбұрыш

(х1,у1)

(х2,у2)

Bar(x1,y1,x2,y2) іші боялған тіктөртбұрыш.

Іші боялған фигураны салу үшін:

-Фигураның түсін таңдау керек :

SETCOLOR ( түс №) ;

-Толтырудың түсі мен стилін таңдау керек :

SETFILLSTYLE ( стиль №, түс № ) ;

-Фигураны салу : { фигураның аты } ( толтыруға керекті мәліметтер) ;

-Фигураның ішін бояу : FLOODFILL (x,y, жиектерінің түсі №) ;

27

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer5;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Rectangle(123,23,254,240);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer13;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

SetBKColor(blue);

Readln;

End.

CIRCLE(x,y,r) экранға шеңбер сызу процедурасы. Мұндағы (х,у) центрдің координаттары, ал r - радиусы .

30

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer7;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Circle(320,240,50);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer15;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(green);

Circle(320,240,20);

Setfillstyle(2,green);

Floodfill(320,240);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer16;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(red);

Circle(320,240,30);

FloodFill(red);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer2;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Line(123,500,320,240);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer3;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Line(320,240,400,240);

Lineto(123,120);

Readln;

End.

F ile E dit S earch R un C ompile D ebug T ools O ptions W indows H elp

NONAME00.PAS

Run Ctrl+F9

Strepover F8

Trace into F7

Go to cursur F4

Program reset Ctrl+F2

Parameters

Program primer14;

Uses crt,graph;

Var vga,vgahi:integer;

Begin

Initgraph(vga,vgahi,’C:\Prog\tp7\Bgi’);

Setcolor(red);

Line(100,100,200,200);

Readln;

End.

Есте сақтау диктанты

:=

' '

Pixel

Graph

Uses

Close

Line

"Машина адам тапсырмаған жұмысты және өзі орындай алмайтын

жұмысты ешқашанда орындай алмайды"

Ада Лавлейс.

К омпьютермен жұмыс

400 Соңы" width="640"

Ғажайып тіктөртбұрыштар

Басы

20-дан 40 ppi -ға дейін 20 ppi қадаммен өсіп отыратын тіктөртбұрыштар салу керек. Экранның орта нүктесі тіктөртбұрыштың ортасымен сәйкес келеді. Квадраттың түсі кездейсоқ сандармен анықталады.

Х1=310; у1=230;

а=20

c = random(15)

Квадрат саламыз

А 400

Соңы

Воздушные пузыри

Начало

• Нарисовать окружности, кол-во которых задается пользователем. Центр, радиус и цвет окружностей задаётся случайным числом.

Ввод кол-ва

Окружностей ( n)

i:=1 to n

конец

C:=random(15)

r:=random(80)

x:=random(600)

y:=random(400)

Рисуем

окружность

Жұлдыз

Басы

Түзу сызық арқылы жұлдызша салу

Кескінді саламыз

setcolor(15);

line(200,40,300,180);

Кесінді саламыз

setcolor(15);

line(180,80,200,140);

Кесінді саламыз

setcolor(15);

line(300,80,320,140);

…

Соңы

Гүл

басы

Ellipse операторының көмегімен көмегімен гүлдің суретін салу .

Жапырақтар түсін береміз

setcolor(1 4 );

Жапырақтар саламыз

Ellipse(100,300,0,180,25,20);

Ellipse(100,300,0,180,25,20);

Ellipse(100,300,0,180,25,20);

Ellipse(100,300,0,180,25,20);

Гүлдің түсін береміз

setcolor(1 4 );

Гүлдің ортасын саламыз

circle(100,50,15);

Соңы

Робот

начало

• Нарисовать робота из разноцветных прямоугольников.

Рисуем туловище:

setfillStyle(1,11);

Bar(200,40,300,180);

Рисуем голову

setfillStyle(1, 15 );

Bar(180,80,200,140);

Рисуем глаз

setfillStyle(1, 14 );

Bar(300,80,320,140);

…

конец

Бауырсақ

Басы

Әр түрлі-түсті эллипспен бауырсақтың суретін салу

Дөңгелек бауырсақ саламыз.

Сол көзін саламыз

Оң көзін саламыз

Мұрнын саламыз

Аузын саламыз

Соңы

Снеговик

начало

setcolor(1 1 ); Setfilstyle(1,11);

floodFillStyle(260,120,11);

• Нарисовать снеговик одними разноцветными окружностями.

setcolor(1 1 ); Setfilstyle(1,11);

floodFillStyle(260,220,11);

setcolor(1 1 ); Setfilstyle(1,11);

floodFillStyle(260,360,11);

…

конец

"Мақал – сөз мәйегі"

"Бұл кім? Бұл не?"

Ада Лавлейс

Николаус Вирт

Билл Гейтс