Міністерство освіти та науки України Національний університет „Львівська політехніка”
АЛГОРИТМІЧНА МОВА ПРОГРАМУВАННЯ Сі ПРОСТІ ПРОГРАМИ ЛІНІЙНОЇ СТРУКТУРИ Звіт до лабораторної роботи №2 15-варівнт З КУРСУ “ Комп’ютерна графіка ” Львів-2005 Мета роботи - вивчити процедури та функції для управління кольорами та па-літрою графічних зображень; навчитися складати програми на алгоритмічній мові Турбо-Паскаль для побудови різноманітних кольорових зображень. Завдання: N% п/п Варіанти завдань  14. 
  Блок-схема програми
Лістинг: Program graf_madel; uses crt, graph; Var x1,y1,x2,y2,d,t1,t2:integer; file_name1:string; tab_chek:char; {---------------graph_install--------------------} Procedure graph_install; var driver, regim, error: integer; begin Clrscr; driver:=detect; initgraph(driver, regim, ''); error:=graphResult; End; {------------------------------------------------} begin Graph_install; setbkcolor(15); setcolor(12); arc(100,100,180,310,40); arc(150,100,230,360,40); line(60,100,125,20); line(190,100,125,20); setfillstyle(1,13); floodfill(100,100,12); line(125,128,100,170); line(125,128,150,170); line(100,170,150,170); setfillstyle(1,13); floodfill(128,160,12); d:=40; t1:=180; t2:=30; y1:=300; x1:=100; x2:=125; y2:=380; setcolor(6); arc(x1,y1,t2,t1,d); arc(x1+50,y1,0,140,d); line(x1-d,y1,x2,y2); line(x1+2*d+10,y1,x2,y2); setfillstyle(1,6); floodfill(x1,y1,6); t1:=180; t2:=30; y1:=300; x1:=100+200; x2:=125+200; y2:=380; setcolor(5); arc(x1,y1,t2,t1,d); arc(x1+50,y1,0,140,d); line(x1-d,y1,x2,y2); line(x1+2*d+10,y1,x2,y2); setfillstyle(1,5); floodfill(x1,y1,5); t1:=180; t2:=30; y1:=300-210; x1:=100+200; x2:=125+200; y2:=380-210; setcolor(4); arc(x1,y1,t2,t1,d); arc(x1+50,y1,0,140,d); line(x1-d,y1,x2,y2); line(x1+2*d+10,y1,x2,y2); setfillstyle(1,4); floodfill(x1,y1,4); readln; end. Список ідентифікаторів констант, змінних, функцій, використаних у блок-схемі алгоритму і програмі: x1,y1,x2,y2,– перемінні цілого типу, що вказують координати побудови ліній , Graph_install – процедура встановлення графічного режиму, line(x1,y1,x2,y2)- процедура побудови лінії, setcolor – встановлення кольору, setfillstyle()- встановлення коьору та типу заповнення, floodfill() – заповнення замкненої кривої заданим кольором; Висновок: на цій лабораторній роботі ми навчили процедури та функції для управління кольорами та палітрою графічних зображень; також навчились складати програми на алгоритмічній мові Турбо-Паскаль для побудови різноманітних кольорових зображень.