Нүкте салу процедурасы
Презентация қосу
Графиктік обьектілерді программалауға
есептер шығару.
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 пиксель
жасыл шеңбер сызу
Ұқсас жұмыстар
Пәндер
- Іс жүргізу
- Автоматтандыру, Техника
- Алғашқы әскери дайындық
- Астрономия
- Ауыл шаруашылығы
- Банк ісі
- Бизнесті бағалау
- Биология
- Бухгалтерлік іс
- Валеология
- Ветеринария
- География
- Геология, Геофизика, Геодезия
- Дін
- Ет, сүт, шарап өнімдері
- Жалпы тарих
- Жер кадастрі, Жылжымайтын мүлік
- Журналистика
- Информатика
- Кеден ісі
- Маркетинг
- Математика, Геометрия
- Медицина
- Мемлекеттік басқару
- Менеджмент
- Мұнай, Газ
- Мұрағат ісі
- Мәдениеттану
- ОБЖ (Основы безопасности жизнедеятельности)
- Педагогика
- Полиграфия
- Психология
- Салық
- Саясаттану
- Сақтандыру
- Сертификаттау, стандарттау
- Социология, Демография
- Спорт
- Статистика
- Тілтану, Филология
- Тарихи тұлғалар
- Тау-кен ісі
- Транспорт
- Туризм
- Физика
- Философия
- Халықаралық қатынастар
- Химия
- Экология, Қоршаған ортаны қорғау
- Экономика
- Экономикалық география
- Электротехника
- Қазақстан тарихы
- Қаржы
- Құрылыс
- Құқық, Криминалистика
- Әдебиет
- Өнер, музыка
- Өнеркәсіп, Өндіріс
Қазақ тілінде жазылған рефераттар, курстық жұмыстар, дипломдық жұмыстар бойынша біздің қор #1 болып табылады.
Ақпарат
Қосымша
Email: info@stud.kz