Урок на тему "графика". Для восьмого класса.В данном уроке речь идет о графике в Паскале. Сначала идет лекция, дальше примеры графики в Паскале.Так же дается практическая работа.Ученики смотря на примеры в уроке должны сами нарисовать линии и флажок. По окончании урока дается домашнее задание. Учитель ставит оценки.Урок закончен.
Вы уже знаете о суперспособностях современного учителя?
Тратить минимум сил на подготовку и проведение уроков.
Быстро и объективно проверять знания учащихся.
Сделать изучение нового материала максимально понятным.
Избавить себя от подбора заданий и их проверки после уроков.
Сабақ мақсаты: А) Модуль, процедура мен функция ұғымдарын Паскалдың графикалық мүмкіндіктері негізінде қалыптастыру.
Б) Программа бойынша графикалық нәтижелерді экранға шығарудың эстетикасын сақтау.
В) Тәртіптілік пен жинақылық дағдыларының қалыптасуына әсер ету.
Сабақ көрнекілігі: Плакат, слайд, Паскаль программасы
Сабақ түрі: Дәстүрлі
Сабақ әдісі: Мультитехникамен жабдықталған дәстүрлі сабақ
Сабақ типі: Жаңа сабақ
Сабақ барысы: Ұйымдастыру кезеңі
Үй тапсырмасын тексеру
Жаңа сабақ
Практикалық тапсырма
Үйге тапсырма
Сабақты қорытындылау
Үй тапсырмасын тексеру
Графикалық процедуралар мен функциялар.
1) Ақпаратты жаңа терезеде шығару үшін CRT модулы қолданылады. (CRT - Cathode Ray Tube Display – Электрон-сәулелік түтікше) Жазылуы USES CRT; мысалы:
program mmm;
uses crt;
begin
write('Акпарат жаңа терезеге шыкты ');
end.
Мұндағы USES- программада CRT кітапханасынан процедура шақырылатынын білдіреді.
2) Графикалық GRAPH кітапханасынан процедура шақыру үшін сипаттау бөліміне (VAR-дың алдында) USES GRAPH; деп көрсету керек. График сызуда CRT кітапханасынан да процедура пайдаланатын болсақ
USES GRAPH, CRT; деп жазу керек.
3) Геометриялық объектілер салу процедуралары
Нүкте салу – PutPixel(x,y:integer; color: word)
Мұндағы: x,y – нүкте координаттары, color –бояуы, word –типі.
Мысалы:
program risunok;
Uses Crt, Graph;
Var Dv, Mv, i : Integer;
Begin
Dv:=Detect;
InitGraph(Dv, Mv, '');
for i:=1 to 200 do
PutPixel(i,200,Red);
CloseGraph;
ReadLn;
End.
Прог.аты;
Проц.шақыратын кітапхана ашу;
Берілгендер типін анықтау;
Басы
Граф.режімді алғаш көрсету
(инициализация.);
1-ден 200-ге дейін қайталау;
і,200 коорд.б/ша нүкте салу.бояуы қызыл;
Граф.режімді жабу;
-ді басқанша прог.тоқтап тұрады;
Соңы.
Түзу сызық салу: line(x1,y2,x2,y2:integer);
Берліген (х,у) нұктеге дейін сызу: lineto(x,y:integer);
Ағымдағы нүктеден бастап dx,dy өсімшемен сызу: LineRel(dx,dy: integer);
Сызық қалыңдығын ескеріп үлгі бойынша сызу: SetLineStyle(t,p,th: word);
Мұндағы: t –сызық түрі, p –сызық үлгісі, th –сызық қалыңдығы. (оқулық 177 бет).
Тік төрт бұрыш салу:
Мысал: Алдынғы программаға 4-бұрыш қосып толықтырайық
program risunok;
Uses Crt, Graph;
Var Gd,Gm: Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
Rectangle(250,150,350,450);
CloseGraph;
ReadLn;
End.
Прог.аты;
Проц.шақыратын кітапхана ашу;
Берілгендер типін анықтау;
Басы
Граф.режімді алғаш көрсету
(инициализация.);
Көрсетілген коорд.б/ша 4-бұрыш салу;
Граф.режімді жабу;
-ді басқанша прог.тоқтап тұрады;
Соңы.
Практикалық тапсырма:
А) Соңғы программаға сызық сызатын процедура қосып өзгертіңіз:
Б) Экранға жалау суретін сызатын программа жазыңыз.
Үйге тапсырма : Графикалық іс - әрекеттер көмегімен «Гүл», «Сағат» суреттерін салып келу.