Сабақтың мақсаты: Білімділік

жүктеу 13,47 Kb.

Дата	29.05.2018
өлшемі	13,47 Kb.
	#18289
түрі	Сабақ

Процедураларсыз күрделі программалар құруға болмайды. Pascal –дағы ірірек
Мысалы: Нүкте салу керек
Мысалы: шеңдер салу керек
Мысалы: Cызық салу керек

Сабақтың тақырыбы

Графикалық обьектілер

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

Сабақтың түрі:жаңа сабақ

Сабақтың әдісі: түсіндірмелі
Сабақтың көрнекілігі: экран, компьютер, слайдтар
Сабақтың барысы:
Ұйымдасытру кезеңі: (1-2 мин)
Оқушылармен амандасу, түгендеу, сабаққа даярлығын қадағалау

Компьютермен текстік және графикалық режимде жұыс істеу кезінде мынадай процедуралары мен функциялары бар модульдермен танысамыз:

1. Сурет салу және тексті шығару үшін қажет Graph және Crt модульдерінің процеуралары мен функциялары.
2. Сызықтың типі, үлгісі және қалыңдығы(SetLineStyle процедурасы).
3. Қаріптерді басқару(SetTextStyle процедурасын).
4. Штрихтау тұрақтылары d (SetFillStyle процедурасы).
5. Текст түрлері C (Text Color).

Процедураларсыз күрделі программалар құруға болмайды. Pascal –дағы ірірек

Процедураларсыз күрделі программалар құруға болмайды. Pascal –дағы ірірек
бірліктер бұл – көптеген процедуралары мен функциялары бар
модульдер. Модульдер – тәуелсіз программалар.Модульді программаға
қосу үшін оның атын көрсету жеткілікті:
USES модуль аты
Компьютермен текстік және графикалық режимде жұмыс істеу үшін сәйкес стандартты
кітапханалық модулдерді қосу қажет:
USES crt
USES graph
Графикамен жұмыс жасаудың алдында монитордың ең келісімді бейнережимін орнату
керек.driver:=detect командасы detect стандартты константаның көмегімен
драйвердің типін анықтайды. Graph модулінің InitGraph процедурасы драйвердің
типін, орналасуын және оның жұмысы режимін(шешілуін ,палитра типін) көрсете
отырып, графикалық режимді ынталандырады:
InitGraph (driver, mode, ‘C\TP7\bgi’);

Процедура не функция	Арналу міндеті
Моуль Graph
Circle (x,y,R)	Шеңбер
Line (x1,y1,x2,y2)	Сызық
Putpixel (x,y,c)	Нүкте
Rectangle(x1,y1,x2,y2)	Тіктөртбұрыш
Setbkcolor(c)	Фон түсі
Setcolor(c)	Сурет салу түсі
Fillellipse(x,y,R1,R2)	Боялған эллипс
Bar(x1,y1,x2,y2)	Боялған тікбұрыш

100

150

200

250

300

350

400

450

500

550

600

640

100

150

200

300

250

350

400

440

480

Х=640

Y=480

Мысалы: Нүкте салу керек

100

150

200

250

300

350

400

450

500

550

600

640

100

150

200

300

250

350

400

440

480

Putpixel(x,y,c)

Program suret;
Uses graph;
Var driver,mode:integer;
Begin
Driver:=detect; initgraph(driver, mode,’c;\tp7\bgi’);
Putpixel (150,200,4);
Readln;
Closegraph;
End.

Мысалы: шеңдер салу керек

100

150

200

250

300

350

400

450

500

550

600

640

100

150

200

300

250

350

400

440

480

Program suret;
Uses graph;
Var driver,mode:integer;
Begin
Driver:=detect; initgraph(driver, mode,’c;\tp7\bgi’);
Putpixel (150,200,4);
Circle (150,200,50);
Readln;
Closegraph;
End.

Circle(x,y,R)

Мысалы: Cызық салу керек

100

150

200

250

300

350

400

450

500

550

600

640

100

150

200

300

250

350

400

440

480

Line(x1,y1,x2,y2)

Program suret;
Uses graph;
Var driver,mode:integer;
Begin
Driver:=detect; initgraph(driver, mode,’c;\tp7\bgi’);
Line(100,150,250,150);
Readln;
Closegraph;
End.

100

150

200

250

300

350

400

450

500

550

600

640

100

150

200

300

250

350

400

440

480

Program suret;
Uses graph;
Var driver,mode:integer;
Begin
Driver:=detect; initgraph(driver, mode,’c;\tp7\bgi’);
Setbkcolor(2); Setcolor(9);
Line(75,100,125,50);
Line(152,50,150,75);
Line(150,75,225,75);
Line(225,75,250,50);
Line(250,50,300,100);
Line(300,100,300,175);
Line(300,175,250,225);
Line(250,225,225,175);
Line(225,175,225,300);
Line(225,300,200,325);
Line(200,325,125,325);
Line(125,325,125,300);
Line(125,300,175,300);
Line(175,300,200,275);
Line(200,275,200,200);
Line(175,200,150,175);
Line(150,175,125,225);
Line(125,225,75.175);
Setcolor(6);
Circle(225,125,10);
Circle(150,125,10);
Fillellipse(225,125,10,10);
Fillellipse(150,125,10,10);
Readln;
Closegraph;
End.

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

Оқып келуге: Графикалық обьектілер (71-бет)
Тапсырма:(79-80-бет)
Компьютердің экрнанына келесі фигураларды
шығаратын программа құрыңдар:
А) жарты айды;
Б)аққаланы ;
В) автомобильді.

жүктеу 13,47 Kb.

Достарыңызбен бөлісу: