. Сабақтың тақырыбы: Графикалық процедуралар мен функциялар. Графикалық
объектілерді құру процедуралары. Графикалық режимде мәтін жазу процедуралары.
Сабақтың мақсаты:
Білімділік: Паскаль тіліндегі графикалық процедуралар мен функцияларды қолдана отырып оқушыларды программа құруға үйрету.
Дамытушылық: Оқушылардың паскаль тілін оқытуда алған білімдерін графикалық процедуралар мен функциялармен байланыстыра отырып дамыту
Тәрбиелік: Оқушыларды адамгершілікке, париоттыққа, ұқыптылыққа, тәрбиелеу
Сабақтың түрі: практикалық сабақ
Сабақтың барысы:
1.Ұйымдастыру
2.Үй тапсырмасын тексеру
3.Компьютермен жұмыс
4.Сабақты бектіу
5.Үйге тапсырма

Өткен материалды қайталау сұрақтары

* Турбо Паскальда графикалық мүмкіндікті қолдануға бола ма?
* Графикалық режиді қалай іске қосады?Экранда нүкте салатын процедура қалай аталады?
* LineTo және LineRel процедурасының айырмашылығы неде?
* Шеңбер салу операторын ата?
* Arc процедурасы не үшін қолданылады?
* Эллипс салу операторының жазылу форматы қандай?
* Rectangle процедурасы не үшін қолданылады?
* Drowpoly процедурасының қызметі?
* OUTTEXT процедурасының атқаратын қызметі қандай?
* OUTTEXT OUTTEXTХУ(х,у,текст) процедурасындағы х,у – нені білдіреді?
* OUTTEXT және OUTTEXTХУпроцедураларының айырмашылығы қандай?
* SetTextStyle процедурасы қандай қызмет атқарады?
Компьютермен жұмыс
Деңгейлік тапсырма
1 – деңгей. Төмендегі суреттерді салуға жазылған программаның қатесін тауып,
толықтырып жаз
№1. UsesGraph, Crt;
Var GraphDriver, GraphMode:integer;
Begin ClrScr;
GraphDriver:=0;
InitGraph (GraphDriver,GraphMode,’);
If GraphResult <> 0 then
Begin Writeln; Writeln ;Halt;End;
Setbcolor(2) Setcolor(4)Cirkle (250,150,50);
Setfill style(1,3); floodfill(250,210,2); Setbcolor(14);
Line(250,50,175,225);line(175,75,325);
Readln;closeckapn; End.

№2. Uses Graph, Crt;
Var GraphDriver, GraphMode:integer;
Begin ClrScr; GraphDriver:=0;
InitGraph(GraphDriver,GraphMode,’’);
If GraphResult <> 0 then
Begin Writeln; Writeln;Halt;End;
Setbcolor(14); setcolor(6);
Line (150,100,170,300);lin(150,100,350,300);
Setbkolor(5); Circie(250,500,50);Flooclfill(250,200,5)
Srtfillstyle(3,4)
readln; end.

№3. Uses Graph, Crt; Var GraphDriver, GraphMode:integer;
Begin ClrScr; GraphDriver:=0;
InitGraph(GraphDriver,GraphMode,’’);
If GraphResult <> 0 then
Begin Writeln; Writeln;Halt;End;
setbcolor(1); setcolor(15);
Line (250,50,475,200);Line(200,50,25,300);
Setcolor(3);
Circle(250,200,100,);
Srtfill style(1,3) floodfill(250,200,3);
Readln; gloseckapk; end.

2 – деңгей. Төмендегі суреттерге программа құр.

3 – деңгей.
№1. Боялған тең бүйірлі үшбұрыштың ішіне боялған тіктөртбұрышты, ал оның ішіне боялған шеңберді салуға программа құр.
№2. Боялған тіктөртбұрышты үшбұрышқа боялған іштей және сырттай шеңберлерді салуға программа құр.
№3. Боялған тең трапецияға іштей шеңбер, ал оның ішіне тең қабырғалы үшбұоыш салуға программа құр.

Сабақты бекіту сұрақтары
* LineTo және LineRel процедурасының айырмашылығ неде?
* Шеңбер салу операторын ата?
* Arc процедурасы не үшін қолданылады,
* Эллипс салу операторының жазылу форматы қандай?
* Rectangle процедурасы не үшін қолданылады?
* Settextstyle процедурасы қандай қызмет атқарады?

Үйге тапсырма:187 бет 7 – 8 тапсырма. .