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

Графиктік обьектілерді программалауға есептер шығару. 9 класс Ақтөбе қаласының №40 орта мектептің математика- информатика пәнінің мұғалімі Есбусинова Мастура Сагинбаевна

“ . . . Адамзат үшін ХХІ ғасыр жаңа технологиялардың ғасыры болмақ, ал осы жаңа технологияларды жүзеге асырып, өмірге енгізу, игеру және жетілдіру - бүгінгі мектеп оқушылары сіздердің еншілеріңіз” Н. Назарбаев

Графиктік обьектілерді программалауға есептер шығару

Білімділік: Оқушыларға Паскаль тілінде графикалық обьектілерді программалай алу іскерліктерін қалыптастыру. Тәрбиелік: Оқушыларды программалық сауатылыққа тәрбиелеу. Дамытушылық: Оқушылардың ақпараттық - технологиялық дағдыларын қалыптастыру, ойлау қабілеттерін дамыту.

Сабақтың түрі: практикалық сабақ

Пәнаралық байланыс:

математика, сызу,

бейнелеу, әдебиет

Сабақтың көрнекілігі: видеопроектор, дербес компьютер, кеспе қағаздар, оқулық

Үй тапсырмасын тексеру

Турбо Паскальда графикамен жұмыс істеу үшін қосылуы қажеттілерді тап (дұрыс шертсең жапырақтар сыбдырлап белгі береді)

Графикалық режимдегі түстер мен олардың сәйкес сандарын тап

Бояу әдістерін тап

Дұрыс жазылған процедураларды жаз

Ақ түсті экранда қызыл түзу салуға қажетті процедараларды жина

Графикалық модульдерді тап (дұрысы тышқанмен шерткенде жасыл түске боялады)

Crt, Graph

USES

Graphdriver

Craphclose

Graphmode

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

program qq;

uses graph;

Var grapdriвer,

Graphmode:integer;

Begin

Graphdriver:=detect;

Initgraph(graphdriver,

Graphmode, ’c:\bp\bgi’) ;

Cleardevice;

Setcolor(16) ;

Pаtpixel(300, 300, 14) ;

Readln;

End

Қатесін тап

Графикалық драйвер қате жазылған

Түс номері 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 .

Шығармашылық тапсырма.

Сандар таңдап, олардың артында жасырылған тапсырманы орындайтын программасын дайындау.

Еркін тақырыпта сурет салу

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

7. 4 тақырып

(177-184 бет),

7. 5 тақырып

(185-187 бет) ;

Оқулықтан:

Еркін тақырыпта сурет салып,

программасын құрып келу

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

№

Атауы

Қызметі

SetBkColor

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

SetColor

тіктөртбұрышты салу процедурасы

PutPixel

іші боялған тіктөртбұрыш сызу

Line

шеңберді сызу процедурасы

Rectangle

боялған нүкте салу

Bar

фигура жиегінің түсін білдіреді

Circle

экранның фонының түсін білдіреді

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

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