Нүкте салу процедурасы




Презентация қосу
Графиктік обьектілерді программалауға
есептер шығару.
9 класс

Ақтөбе қаласының №40 орта мектептің
математика- информатика пәнінің мұғалімі
Есбусинова Мастура Сагинбаевна
“...Адамзат үшін ХХІ ғасыр жаңа технологиялардың ғасыры болмақ,
ал осы жаңа технологияларды жүзеге асырып, өмірге енгізу, игеру
және жетілдіру - бүгінгі мектеп оқушылары сіздердің еншілеріңіз”
Н.Назарбаев
Графиктік обьектілерді
программалауға есептер шығару
Білімділік: Оқушыларға Паскаль
тілінде графикалық обьектілерді
программалай алу іскерліктерін
қалыптастыру.
Тәрбиелік: Оқушыларды
программалық сауатылыққа
тәрбиелеу.
Дамытушылық: Оқушылардың
ақпараттық – технологиялық
дағдыларын қалыптастыру, ойлау
қабілеттерін дамыту.
Сабақтың түрі:
практикалық сабақ
Пәнаралық байланыс:
математика , сызу,
бейнелеу, әдебиет

Сабақтың көрнекілігі:
видеопроектор, дербес
компьютер, кеспе қағаздар,
оқулық
Үй тапсырмасын тексеру
Турбо Паскальда графикамен жұмыс істеу үшін қосылуы
қажеттілерді тап
(дұрыс шертсең жапырақтар сыбдырлап белгі береді)

Grap mod
h
drive
r Crt,
uses Grap
h
Graphmod
inpu e, close
t graph
Графикалық режимдегі түстер мен
олардың сәйкес сандарын тап

Red-4 Brown-6
Black-2

Blue-15
Yellow Green-0
Lightred-10
-14
Write-13
t a- 1
a g en
Lightgreen-15 ig h tm
L
Бояу әдістерін тап
Flodfill(x,
y,color)
Hatchfil-7
Setcolor(1) Darkgray-8
outtextxy
Interleavefill-
Solidfill-1 9

Linefill-2 Stafill-4
Solidfll-1
Дұрыс жазылған процедураларды жаз

Setbkcolor(5)
Rectangle(90,60,30)
Setcolor(7)

Pieslice(60,55)
Putpixel(50,70,10)
Yellow-12 Line(50,50,60,70)
outtextxy

Circle(100,200,30) Setcolorbk(3) xhalfill
Ақ түсті экранда қызыл түзу салуға
қажетті процедараларды жина

Lihe(10,10,60
,60)
Setcolor
Setbkblue(1) (4)

setred
Setcolor(14)
Setbr(10)
Setbkcolo(15)
Setbkcolor(15)
Line(10,10,60,60)
Setred(4)
Графикалық модульдерді тап
(дұрысы тышқанмен шерткенде жасыл түске боялады)

USES Graphdriver
Graphmode

Craphclose Crt, Graph
Сары түсті экранға жиегі қоңыр болатын шеңбер, нүкте
салу.(дұрыс тапсаң шар әуеге қалықтайды!)

Setbkcolor(6) Setcolor(14)

Setbkcolor(14) Circle(80,90,20) Line(4,6,40,60)

Setcolor(6)
Putpixel(90,80,6)
Cirkle(70,60,20) Patpixel(100,160,6)
Қатесін тап
program qq;
uses graph;
Var grapdriвer, Графикалық драйвер қате
жазылған
Graphmode:integer;
Begin
Graphdriver:=detect;
Initgraph(graphdriver, Түс номері 15-тен аспауы тиіс
Graphmode,’c:\bp\bgi’);
Cleardevice;
Нүкте салу процедурасы
Setcolor(16); қате жазылған
Pаtpixel(300,300,14);
Readln;
Программа соңы
End
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 .
Шығармашылық тапсырма.
Сандар таңдап, олардың артында жасырылған
тапсырманы орындайтын программасын
дайындау.

1 3
6 5
4 7 2 17
Еркін тақырыпта сурет салу
Еркін тақырыпта сурет салып,
программасын құрып келу
Кестені процедуралардың сәйкес қызметтерінің ретімен
толтыр.
№ Атауы Қызметі
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.
Бағалау
9-11 ұпай - «3»
12-14 ұпай - «4»
15-20 ұпай - «5»
Паскаль тіліндегі
графиктік
операторды атаңыз

Uses
Графикалық
режимді
жабу

CloseGraph
Графикалық
драйверді
ата?
GraphDriver
Графикалық
режимде
экранды
тазалау
Clrscr
TextColor(Color:Byte)
процедурасының
қызметі қандай?

Экранға
шығарылатын
символдың түсін
өзгертеді
Rectangle (x1,y1,x2,y2:integer)
процедурасының
қызметі қандай?

Сол жақ жоғарғы (х1,у1)
және оң жақ төменгі
төбелерінің
координаталары (х2,у2)
бойынша төртбұрыш
сызады
Түзу сызық салу
процедураларын
атаңыз

Line(x1,y1,x2,y2:integer)
Lineto(x,y:integer)
LineRel(Dx,Dy:integer)
SetLineStyle(T,P,Th:word)
Нүкте салу
операторларын
атаңыз

PutPixel(x,y:integer;color:word)
GetPixel(x,y:integer;color:word)
Графикалық режимде
мәтін жазу
процедураларын атаңыз

Outtext(Tex:String)
Outtextxy(x,y:integer;Tex:String)
Мағынасын
түсіндіріңіз:
SetColor(Green);
Circle(450,100,50);

Центрі (450,100)
нүктесінде орналасқан
радиусы 50 пиксель
жасыл шеңбер сызу

Ұқсас жұмыстар
Графикалық обьектілер
Тармақталу алгоритмдерін программалау
САЛУ ЕСЕПТЕРІН ШЕШУ ӘДІСТЕМЕСІ
АУКЦИОН ӘДІСІ
Еркін материялдық нүктенің динамикасы
САЛУ ЕСЕПТЕРІ
НГО әдісі
Инверсия және шеңберлер
Модульдік программалау
Стандартты модульдер
Пәндер