Практична робота
«Створення програм з допоміжними алгоритмами
у інтегрованому середовищі програмування»
Навчальна мета: Формування практичних навичків, вмінь роботи учнів працювати з допоміжними алгоритмами: створювати, виконувати, редагувати, зберігати програми у середовищі програмування.
Розвиваюча мета: Розвивати логічне, аналітичне, евристичне, творче мислення учнів, кмітливість.
Виховна мета: Підтримувати самостійність виконання роботи, уважність, бережливе ставлення до комп’ютерної техніки, інтерес до програмування.
Технічні засоби навчання: комп’ютери Celeron 2200, ОС Windows XP, програма NetOp School, середовище програмування Pascal.
Тип уроку: Практична робота.
Хід уроку.
І. Організація класу. (1 хв.)
(Привітання, вступне слово вчителя).
ІІ. Актуалізація опорних знань, вмінь, навичок учнів. (4 хв.)
Для чого призначені процедури?
Для чого призначені функції?
Яка різниця між процедурою і функцією?
ІІІ. Оголошення теми, мети, завдань уроку. (2 хв.)
IV. Виконання практичної роботи (35 хв.)
(Виконати практичну роботу згідно вказівок, одне завдання по 3 бали. Назва файлу procedХ, де Х номер задачі.)
Обчислити факторіал числа n, використовуючи для цього функцію.
За відомими координатами трикутника обчислити його периметр, використовуючи процедуру для знаходження сторін трикутника. (0,0; 0,3; 4,0)
Скласти програму для знаходження більшого з чотирьох чисел через процедуру.
Скласти програму знаходження НСК (найменшого спільного кратного) трьох натуральних чисел a, b, c з використанням процедури.
V. Підведення результатів виконання практичної роботи. Пересилання файлів на комп’ютер вчителя. (2 хв.)
Vі. Повідомлення домашнього завдання. (1 хв.) Практична робота
«Створення програм для побудови графічних зображень»
Навчальна мета: Формування практичних навичків, вмінь роботи учнів працювати в середовищі програмування Pascal: створювати, виконувати, редагувати, зберігати програми для побудови графічних зображень.
Розвиваюча мета: Розвивати логічне мислення учнів.
Виховна мета: Підтримувати самостійність виконання роботи, уважність, бережливе ставлення до комп’ютерної техніки, інтерес до програмування.
Технічні засоби навчання: комп’ютери Celeron 2200, ОС Windows XP, програма NetOp School, середовище програмування Pascal.
Тип уроку: Практична робота.
Хід уроку.
І. Організація класу. (1 хв.)
(Привітання, вступне слово вчителя).
ІІ. Актуалізація опорних знань, вмінь, навичок учнів. (4 хв.)
Який вигляд «координатної сітки» екрану дисплея?
Як перейти до графічного режиму роботи дисплея?
Які процедури та функції використовуються для побудови зображення ліній та фігур?
ІІІ. Оголошення теми, мети, завдань уроку. (2 хв.)
IV. Виконання практичної роботи (35 хв.)
(Ознайомитись з типовими процедурами для побудови графічних зображень)
PuPixel (X,Y, колір) – виводить в задану позицію точку вказаного кольору
Line (X1,Y1,X2,Y2) – проводить лінію між вказаними координатами поточним стилем та кольором
LineRel (Dx,Dy) – проводить лінію від поточної точки з приростом Dx та Dy
Rectangle (X1,Y1,X2,Y2) – виводить прямокутник з координатами лівого верхнього та правого нижнього кутів
Bar (X1,Y1,X2,Y2) – виводить прямокутник, зафарбований поточним стилем
Circle (X,Y, радіус) – зображає коло з центром в (X,Y), радіус треба задати в пікселях
Arc (X, Y, початковий кут, кінцевий кут, радіус) – виводить дугу між вказаними кутами з центром в (X, Y). Кути задавати в градусах, порядок відрахування кутів співпадає з тим, який прийнято в тригонометрії
PiesLice (X,Y, початковий кут, кінцевий кут, радіус) – зображує сектор, зафабований поточним стилем
Ellipse (X,Y, початковий кут, кінцевий кут, горизонтальний радіус , вертикальний радіус) – виводить еліпсну дугу
SetFillStyle (код, колір) – встановлює вид штрихування відповідно з кодом, який може приймати декілька значень, наприклад:
SolidFill=1 – суцільне штрихування
LineFill=2 – штрихування горизонтальними лініями
CloseDotFill=11 – густе штрихування крапками
FloodFill (Х,У, колір межі) – штрихує будь-яку замкнену область, X,Y – координати точки всередині області
Для встановлення кольорів та шрихування використовують процедури:
SetColor (колір) – встановлює колір для виведення символів та ліній
SetBKColor (колір) – встановлює колір фону
Black=0 – чорний Blue=1 – синій Green=2 – зелений Gyan=3 – блакитний Red=4 – червоний Magenta=5 – фіолетовий Brown=6 – коричневий LightGray=7 світло-сірий |
DarkGray=8 – темно-сірий LightBlue=9 – яскраво-синій LightGreen=10 – яскраво-зелений LightGyan=11 – яскраво-блакитний LightRad=12 – рожевий LightMagenta=13 – малиновий Yellow=14 – жовтий White=15 – білий |
Uses crt,graph; Var Graphdriver, graphmode, errorcode:integer; begin Graphdriver:=Detect; Initgraph(Graphdriver,Graphmode,''); Errorcode:=graphresult; if Errorcode<>0 then begin writeln(GraphErrorMsg(Errorcode)); halt(1); end; {ініціалізація графічного режиму} |
(Виконати практичну роботу згідно зразка.)
(Додаткове завдання: доповнити малюнок власними елементами.)
V. Підведення результатів виконання практичної роботи. Пересилання файлів на комп’ютер вчителя. (2 хв.)