Графикалық процедуралар мен функциялар. Графикалық объектілерді құру процедуралары. Графикалық режимде мәтін жазу процедуралары.

САБАҚ ЖОСПАРЫ «Бекітемін» ________________ Оқу ісінің меңгерушісі «___________» ________20 ж Пән аты: Информатика Класы: 9 «А», 9 «Б», 9 «В», 9 «Г» Сабақтың тақырыбы: Графикалық процедуралар мен функциялар. Графикалық объектілерді құру процедуралары. Графикалық режимде мәтін жазу процедуралары. Сабақтың мақсаты: Білімділік: Паскаль тіліндегі графикалық процедуралар мен функцияларды қолдана отырып оқушыларды программа құруға үйрету. Дамытушылық: Оқушылардың паскаль тілін оқытуда алған білімдерін графикалық процедуралар мен функциялармен байланыстыра отырып дамыту Тәрбиелік: Оқушыларды адамгершілікке, париоттыққа, ұқыптылыққа, тәрбиелеу Сабақтың түрі: практикалық сабақ Сабақтың барысы: 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 тапсырма.