Графика. Графиктік прооцедуралар

Саба?ты? та?ырыбы: Графика. Графиктік прооцедуралар.

Саба?ты? ма?саты: Графикалы? процедураларды пайдаланып программа ??ра алу іскерлігін ?алыптастыру

Білімділік ма?саты: О?ушыларда программалар ??р?анда Turbo Pascal-ды? графикалы? ?арапайым кескіндерін пайдалануды? икемдіктері мен да?дыларын ?алыптастыру;

Т?рбиелік ма?саты: ??ыптылы??а т?рбиелеу, ба?дарламалау?а ?ызы?ушылы?тарын арттыру; ?зіндік ?орытынды шы?ара білуге, ба?алау?а, та?ырып бойынша ?з бетімен ж?мыс жасау?а, б?рын?ы білімді жа?а а?парат ?шін ?олдану?а, ма?сатты о?у?а баулу;
Дамытушылы? ма?саты: Білім сапасын арттыру?а ж?не іздемпазды?ын, бай?ау ?абілеттерін жетілдіру, шы?армашылы? ?абілеттерін дамыту.

К?тілетін н?тиже:

О?ушылар сурет салу ?шін стандартты библиотекалы? модульдерді?, процедураларды? ж?не функцияларды? арналу міндетін білу ?ажет;
Мониторды? бейнережимін аны?тай ж?не та?айындай алуы ?ажет;
Графикалы? ?арапайым кескіндерді пайдаланып, программаларды ??ра ж?не орындай алуы керек.

Саба?ты? типі: жа?а саба?

Саба?ты? ?діс-т?сілі: ж?пты?, топты? ж?мыс, диалогтік

Модуль: СТО, АКТ, О?ыту ?шін ба?алау.

П?н аралы? байланыс: геометрия, а?ылшын тілі

К?рнекіліктері: саба?ты? презентациясы

??рал- жабды?тар: интерактивті та?та, тесттік ж?йесі, дербес компьютерлер.

Саба?ты? барысы: 1. ?йымдастыру

2. ?й тапсырмасын пысы?тау

3. Жа?а саба?

4. Бекіту тапсырмалары

5. Практикалы? ж?мыс

6. Тест

7. ?йге тапсырма

8. Ба?алау

9. ?орытындылау

?йымдастыру б?лімі

а)Тренинг «Б?гінгі к??іл к?йім»

б) Топ?а б?лу. (1,2,3 сандарын та?дау н?тижесі бойынша топ?а б?лу)

2. ?ткен саба?ты пысы?тау. (с?ра?тар ар?ылы)

1. Паскаль программалау тіліні? ал?аш?ы н?с?асын кім, ?ашан ж?не ?айда жасады? (1968 жылы Стэнфорд университетінде информатика кафедрасыны? профессоры Никлаус Вирт жасады)

2. 63 mod 8= 7

45 mod 8 =5

3. 36 div 7 = 5

10 mod 3=1

4. Алгоритмні? неше т?рі бар? (3т?рібар: Сызы?ты?, тарма?тал?ан, циклдік)

5. Паскальда ?рнекті? неше типі сипатталады? (3 типі: арифметикалы? – б?тін ж?не на?ты, логикалы? ж?не символды?)

Жа?а саба??а кіріспе

а)Ми?а шабуыл

О?ушылар ?азір мен сіздерді? а?ылшын тілінен білімдері?ді бай?ама?пын.

(та?тада графикалы? процедуралар жазулы т?рады. Соларды? аудармалары с?ралады)

Line – т?зу

Circle – ше?бер

Ellipse – эллипс

Sector – сектор

Arc – до?а

Rectangle – тікт?ртб?рыш

Ellipse – эллипс

?)О?ушылар! ?алай ойлайсыздар б?лармен б?гінгі саба?та не жасаймыз деп ойлайсы?дар?

(о?ушылар жауабы)

Енді біз Паскаль программалау тілінде сурет салу ?шін ба?дарлама ??ра білуіміз керек. Ал ба?дарлама ??ру ?шін алдымен экранда сурет ?алай салынады ж?не оны салу ?шін ?андай процедураларды ?олданады екенбіз соны біліп алуымыз керек.

Турбо Паскальда графикамен ж?мыс істеу ?шін графиктік операторларды (Uses), драйверлерді (GraphDriver), модульдерді (Crt, Graph), режимдерді (GraphMode, CloseGraph) ?осуымыз керек.

Арнайы графиктік оператор - Uses болып табылады.

Турбо Паскальда графикалы? бейнелерді салу ?шін стандартты кітапханалы? Graph модулі арнал?ан. Ол ?рт?рлі адаптерлі дисплейлерде графикалы? режимдерді толы?ымен бас?аруды ?амтамасыз ететін программаларды? кітапханасы. Ал Grt модулі экран?а информацияларды шы?аруды, сол сия?ты терезелермен ж?мыс істеуді, дыбысты? сигналдар мен т?рлі т?сті текстік жолдарды экран?а шы?аруды ?амтамасыз етеді.

Кез келген суретті ба?дарламалау ?шін келесі амалдар орындалу ?ажет:

Uses graph;

Var

Graphdriver,graphmode:integer; , {Графикалы? драйвер},{Графикалы? режим}

Begin

Graphdriver:=detect; {Графикалы? драйверді ашу}

Initgraph(graphdriver,graphmode,’c:\bp\bgi’); {bgiграфикасы модуліне жол} {Осы жолдан бастап графикалы? ?рекеттерді орындау процесі басталады}

Cleardevice;

Readln;

End.

Т?сті орнату:

SetColor(Color:integer); {Суреттегі негізгі т?сті орнатады}

SetBkColor(Color: integer); {А?ымда?ы фонны? т?сін орнатады}

Координаталар жазы?ты?ы:

Т?стер коды:

Т?стер Коды

?ара 0

?ою с?р 8

К?к 1

Ашы? к?к 9

Жасыл 2

Ашы? жасыл 10

К?гілдір 3

Ашы? к?гілдір 11

?ызыл 4

Ашы? ?ызыл 12

К?лгін 5

Ашы? к?лгін 13

?о?ыр 6

Сары 14

Ашы? с?р 7

А? 15

2-тапсырма:

А? т?сті фонда ?ызыл сызы? сызу

К?к т?сті фонда сары ше?бер сызу

А?ымда?ы

фонда сары

т?ртб?рыш сызу

К?к т?сті фонда жасыл ше?бер сызу

program qq; uses graph;

Var grapdriver,Graphmode:integer;

Begin Graphdriver:=detect;

Initgraph(graphdriver,Graphmode,’c:\bp\bgi’);

Cleardevice; Setbkcolor(15); Setcolor(4); Line(X1,Y1,X2,Y2);

Readln;End.

program qq; uses graph;

Var grapdriver,Graphmode:integer;

Begin Graphdriver:=detect;

Initgraph(graphdriver,Graphmode,’c:\bp\bgi’);

Cleardevice; Setbk color(1);Setcolor(2);

Circle(100,150,3);Readln;End.

program qq; uses graph;

Var grapdriver,Graphmode:integer;

Begin Graphdriver:=detect;

Initgraph(graphdriver,Graphmode,’c:\bp\bgi’);

Cleardevice; Setcolor(14); Rectangle(60,50,90,90);Readln;End.

program qq; uses graph;

Var grapdriver,Graphmode:integer;

Begin Graphdriver:=detect;

Initgraph(graphdriver,Graphmode,’c:\bp\bgi’);

Cleardevice; Setbkcolor(15); Setcolor(4); Line(20,20,56,56);Readln;End.

Практикалы? б?лім.(Топтар?а тапсырма беріледі)

3-тапсырма: Берілген суреттерге ба?дарлама ??рып, компьютерде орындап, жауабын к?рсету.

1-топ: Сары т?сті экран?а ?ызыл т?зу, жасыл ?шб?рыш, к?к тікт?ртб?рыш ж?не ?о?ыр ше?бер салу программасын жазу керек.

2-топ: А?шыл к?к т?сті экран?а боял?ан тік б?рышты трапецияны? ішіне боял?ан ше?бер мен ?шб?рыш салу программасын жазу керек.

3-топ: Те? б?йірлі ?шб?рышты? ішіне боял?ан тікт?ртб?рышты, ал оны? ішіне ше?берді салу программасын жазу керек.

Талдау.

Жина?тау:

MyTest тестттік ж?йесімен саба? ?орытындыланады.

1.Графикалы? режимге ауысу ?рекеті:

А) Drivers B) Uses Graph C) Init Graph D) Detect E) Program

2. Экран бетін тазалайтын функция:

A) Moveto B) Clear View Port C) detect Graph D) Get Color E) Delay

3. Суретті? а?ымда?ы т?сін беретін функция:

A) Moveto B) Clear View Port C) detect Graph D) SetColor E) BKColor

4. А?ымда?ы экран т?сін беретін функция:

a) SetBkColor b) GetGraphPalette c) SetFill pattern d) GetColor e) BkColor

5. Графикалы? режимнен шы?у:

a) CloseGraph b) GetGraph Palette c) Set Fill Pattern d) Get Color e) Close

6. Line(x1,y1,x2,y2) ?рекетіні? ?ызметі.

a) т?зу сызы? сызу b) т?ртб?рыш сызу c) ше?бер сызу d) до?а сызу e) эллипс сызу

7. Жа?а файл ашу ?шін:

a) File-New b) File-Open c) Edit-New d) Edit-Open e) File-Save

8. Жа?а файлды са?тау ?шін. командасын орындау керек:

a) File-Save b) File-Save as c) Edit-Save d) edit-Save as e) File-Open

9. Эллипс до?асын сызу ?рекетін к?рсеті?дер:

a) Ellipse(x,y;B1,B2,Rx,Ry); b) FillEllipse(x,y; xr, yr); c) PieSlice(x,y; B1,B2,R);

d) Sector(x,y; B1,B2,Rx,Ry) e) Circle(x,y,r)

10. До?а сызу ?рекетін к?рсеті?дер:

a) Ellipse(x,y;B1,B2,Rx,Ry); b) Pbielice(x,y; b1,b2,r) c) Sector(x,y; B1,B2,Rx,Ry)

d) Arc(x,y,b1,b2,r) e) Circle(x,y,r)

Уйге тапсырма:

Бес са?иналы олимпиада белгісіні?
Ба?даршамсуретін салу
Экран бетінде допты? ?оз?алысын келтіру

Рефлексия.

Вы уже знаете о суперспособностях современного учителя?

Тратить минимум сил на подготовку и проведение уроков.

Быстро и объективно проверять знания учащихся.

Сделать изучение нового материала максимально понятным.

Избавить себя от подбора заданий и их проверки после уроков.

Наладить дисциплину на своих уроках.

Получить возможность работать творчески.

=> ПОЛУЧИТЬ СУПЕРСПОСОБНОСТИ УЧИТЕЛЯ <=

Просмотр содержимого документа
«Графика. Графиктік прооцедуралар»

Сабақтың тақырыбы: Графика. Графиктік прооцедуралар.

Сабақтың мақсаты: Графикалық процедураларды пайдаланып программа құра алу іскерлігін қалыптастыру

Білімділік мақсаты: Оқушыларда программалар құрғанда Turbo Pascal-дың графикалық қарапайым кескіндерін пайдаланудың икемдіктері мен дағдыларын қалыптастыру;

Тәрбиелік мақсаты: Ұқыптылыққа тәрбиелеу, бағдарламалауға қызығушылықтарын арттыру; өзіндік қорытынды шығара білуге, бағалауға, тақырып бойынша өз бетімен жұмыс жасауға, бұрынғы білімді жаңа ақпарат үшін қолдануға, мақсатты оқуға баулу;
Дамытушылық мақсаты: Білім сапасын арттыруға және іздемпаздығын, байқау қабілеттерін жетілдіру, шығармашылық қабілеттерін дамыту.

Күтілетін нәтиже:

Оқушылар сурет салу үшін стандартты библиотекалық модульдердің, процедуралардың және функциялардың арналу міндетін білу қажет;
Монитордың бейнережимін анықтай және тағайындай алуы қажет;
Графикалық қарапайым кескіндерді пайдаланып, программаларды құра және орындай алуы керек.

Сабақтың типі: жаңа сабақ

Сабақтың әдіс-тәсілі: жұптық, топтық жұмыс, диалогтік

Модуль: СТО, АКТ, Оқыту үшін бағалау.

Пән аралық байланыс: геометрия, ағылшын тілі

Көрнекіліктері: сабақтың презентациясы

Құрал- жабдықтар: интерактивті тақта, тесттік жүйесі, дербес компьютерлер.

Сабақтың барысы: 1. Ұйымдастыру

2. Үй тапсырмасын пысықтау

3. Жаңа сабақ

4. Бекіту тапсырмалары

5. Практикалық жұмыс

6. Тест

7. Үйге тапсырма

8. Бағалау

9. Қорытындылау

Ұйымдастыру бөлімі

а)Тренинг «Бүгінгі көңіл күйім»

б) Топқа бөлу. (1,2,3 сандарын таңдау нәтижесі бойынша топқа бөлу)

2. Өткен сабақты пысықтау. (сұрақтар арқылы)

1. Паскаль программалау тілінің алғашқы нұсқасын кім, қашан және қайда жасады? (1968 жылы Стэнфорд университетінде информатика кафедрасының профессоры Никлаус Вирт жасады)

2. 63 mod 8= 7

45 mod 8 =5

3. 36 div 7 = 5

10 mod 3=1

4. Алгоритмнің неше түрі бар? (3түрібар: Сызықтық, тармақталған, циклдік)

5. Паскальда өрнектің неше типі сипатталады? (3 типі: арифметикалық – бүтін және нақты, логикалық және символдық)

Жаңа сабаққа кіріспе

а)Миға шабуыл

Оқушылар қазір мен сіздердің ағылшын тілінен білімдеріңді байқамақпын.

(тақтада графикалық процедуралар жазулы тұрады. Солардың аудармалары сұралады)

Line – түзу

Circle – шеңбер

Ellipse – эллипс

Sector – сектор

Arc – доға

Rectangle – тіктөртбұрыш

Ellipse – эллипс

ә)Оқушылар! Қалай ойлайсыздар бұлармен бүгінгі сабақта не жасаймыз деп ойлайсыңдар?

(оқушылар жауабы)

Енді біз Паскаль программалау тілінде сурет салу үшін бағдарлама құра білуіміз керек. Ал бағдарлама құру үшін алдымен экранда сурет қалай салынады және оны салу үшін қандай процедураларды қолданады екенбіз соны біліп алуымыз керек.

Турбо Паскальда графикамен жұмыс істеу үшін графиктік операторларды (Uses), драйверлерді (GraphDriver), модульдерді (Crt, Graph), режимдерді (GraphMode, CloseGraph) қосуымыз керек.

Арнайы графиктік оператор - Uses болып табылады.

Турбо Паскальда графикалық бейнелерді салу үшін стандартты кітапханалық Graph модулі арналған. Ол әртүрлі адаптерлі дисплейлерде графикалық режимдерді толығымен басқаруды қамтамасыз ететін программалардың кітапханасы. Ал Grt модулі экранға информацияларды шығаруды, сол сияқты терезелермен жұмыс істеуді, дыбыстық сигналдар мен түрлі түсті текстік жолдарды экранға шығаруды қамтамасыз етеді.

Кез келген суретті бағдарламалау үшін келесі амалдар орындалу қажет:

Uses graph;

Var

Graphdriver,graphmode:integer; , {Графикалық драйвер},{Графикалық режим}

Begin

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

Initgraph(graphdriver,graphmode,’c:\bp\bgi’); {bgiграфикасы модуліне жол} {Осы жолдан бастап графикалық әрекеттерді орындау процесі басталады}

Cleardevice;

Readln;

End.

Түсті орнату:

SetColor(Color:integer); {Суреттегі негізгі түсті орнатады}

SetBkColor(Color: integer); {Ағымдағы фонның түсін орнатады}

Координаталар жазықтығы:

(0,0) х1 х2 640,0 Х

у1

у2

(0,480)

Графикалық бағдарламалау процедуралары:

Модуль Graph
Графикалық элемент	Паскальда жазылуы	Түсіндірмелер
Нүкте	PutPixel(x, y, t)	Экранға Х,У координаталары арқылы нүкте салады.t- оның түсін анықтайды.
Кесінді	Line(x1,y1,x2,y2)	Экранда х1,у1 нүктесінен х2,у2 нүктесіне дейінгі кесінді сызады.
Тіктөртбұрыш	Rectangle(x1,y1,x2,y2)	Экранның сол жақ жоғарғы(х1,у1 және оң жақ төменгі х1,у1) координаталары бойынша төртбұрыш салады
Боялған тіктөртбұрыш	Bar(x1,y1,x2,y2)	Іші боялған тіктөртбұрыш.
Шеңбер	Circle(x,y,r)	Экранға шеңбер сызупроцедурасы.Мұндағы,(Х,У) центрдің координатасы, ал r-радиусы.
Эллипс	Ellipse(x,y,b,s,rx, ry)	Экранға эллипс доғасын сызады.
Доға	Arc(x,y, b, s, r)	Экранға доға сызу

Түстер коды:

Түстер	Коды	Түстер	Коды
Қара	0	Қою сұр	8
Көк	1	Ашық көк	9
Жасыл	2	Ашық жасыл	10
Көгілдір	3	Ашық көгілдір	11
Қызыл	4	Ашық қызыл	12
Күлгін	5	Ашық күлгін	13
Қоңыр	6	Сары	14
Ашық сұр	7	Ақ	15

1-тапсырма: Кестені процедуралардың сәйкес қызметтерінің ретімен толтыр.

№	Атауы		Қызметі
1	SetBkColor	1	түзу салу процедурасы
2	SetColor	2	тіктөртбұрышты салу процедурасы
3	PutPixel	3	іші боялған тіктөртбұрыш сызу
4	Line	4	шеңберді сызу процедурасы
5	Rectangle	5	боялған нүкте салу
6	Bar	6	фигура жиегінің түсін білдіреді
7	Circle	7	экранның фонының түсін білдіреді

Кілті: 1- 7; 2- 6; 3- 5; 4- 1; 5- 2; 6- 3; 7- 4.

2-тапсырма:

№	Жауаптары есептер	Ақ түсті фонда қызыл сызық сызу	Көк түсті фонда сары шеңбер сызу	Ағымдағы фонда сары төртбұрыш сызу	Көк түсті фонда жасыл шеңбер сызу
1	program qq; uses graph; Var grapdriver,Graphmode:integer; Begin Graphdriver:=detect; Initgraph(graphdriver,Graphmode,’c:\bp\bgi’); Cleardevice; Setbkcolor(15); Setcolor(4); Line(X1,Y1,X2,Y2); Readln;End .
2	program qq; uses graph; Var grapdriver,Graphmode:integer; Begin Graphdriver:=detect; Initgraph(graphdriver,Graphmode,’c:\bp\bgi’); Cleardevice; Setbk color(1);Setcolor(2); Circle(100,150,3);Readln;End .
3	program qq; uses graph; Var grapdriver,Graphmode:integer; Begin Graphdriver:=detect; Initgraph(graphdriver,Graphmode,’c:\bp\bgi’); Cleardevice; Setcolor(14); Rectangle(60,50,90,90);Readln;End .
4	program qq; uses graph; Var grapdriver,Graphmode:integer; Begin Graphdriver:=detect; Initgraph(graphdriver,Graphmode,’c:\bp\bgi’); Cleardevice; Setbkcolor(15); Setcolor(4); Line(20,20,56,56);Readln;End .