Мета:
навчитися створювати
графічні об'єкти в
середовищі програмування,
розвивати художній смак,
творчі здібності.
1. Повторення правил поведінки в кабінеті інформатики
2. Перевірка д/з: а) комп’ютерне тестування: На Робочому столі папка
ТЕСТИ, виконати тест “Графіка”, записати результат в аркуш
оцінювання
3. Актуалізація опорних знань. Перегляд навчальної презентації “Процедури модуля GRAPH в середовищі Турбо Паскаль”
4. Оголошення завдань уроку – за групами: 1- “Дизайнери тканини”, 2 - “Астрономи”, 3 – ательє “Вишиванки”
5. Робота в групах. Керівник групи організовує виконання завдання,
секретар занотовує результати в аркуші оцінювання.
6.Фізкульхвилинка Вправи для очей, вправи для рук.
7. Підсумок уроку. Доповіді керівників груп з демонстрацією результатів, оцінювання, висновки
8. Д/з Графічні примітиви в середовищі Турбо Паскаль
План уроку.
Ініціалізація (включення) графічного режиму
InitGraph (gd,gm,p)
Графічний драйвер (gd=9)
Режим
Шлях до файлуBGI
Закрити графічний режим
CIoseGraph
Колір ліній
SetColor(c)
Колір пера
Намалювати відрізок
Program Pr1;
Uses Graph;
Var Gd, Gm : Integer;
Begin
Gd:=9; Gm:=2; InitGraph(Gd,Gm,’D:\bp\bgi’);
Line(320,240,100,100);
Readln;
CloseGraph;
End.
Відрізок прямої лінії
Line (x1,y1, x2,y2)
LineTo(x,y)
з активної точки до точки з координатами (x,y)
MoveTo(x,y)
переміщає активну графічну позицію в
точку з координатами(X,Y)
Fill(x,y)
Зафарбовує замкнену область,
що містить точку (x,y)
PutPixel(x,y,col)
Точка(x,y) на екрані
колір
Circle (x, y, r)
r
КОЛО
Дуга кола
Arc (x,y,nu,ku,r)
x,y – коорд. центру
nu – початок дуги в градусах
ku – кінець дуги в градусах
Ellipse(x,y,nu,ku,rx,ry)
Дуга еліпса
Види заповнення
2 3 4 5 6 7 8 10 11
SetFillStyle(n,col)
Заповнення замкнених фігур
1 – суцільне заповнення
Завдання за групами
1 група - Ательє "Вишиванка"
розробити зразки орнаментів, малюнків для вишиванок
2 група - "Дизайнери" тканини, одягу
розробити зразки малюнків тканини
3 група - "Астрономи"
намалювати зоряне небо,
сузір’я Великої Ведмедиці,
Кассіопеї
Пояснити алгоритм
Program UGI;
uses CRT,Graph;
var driver,mode,r,x,y,j,i:integer;
begin
clrscr; driver:=detect; initgraph(driver,mode,'D:\BP\BGI');
For j:=1 to 20 do
begin
x:=20; y:=20*j;
r:=15;
for i:=1 to 55 do
begin
SetCOLOR(I); Circle(x,y,r);
x:=x+r;
end;
J:=J+1;
end; readln;
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.