Міністерство освіти і науки України
Національний університет „Львівська політехніка”
Кафедра «Захисту інформації»


Звіт
Про виконання лабораторної роботи #3
На тему:
“ УПРАВЛІННЯ КОЛЬОРАМИ ТА ПАЛІТРОЮ ГРАФІЧНИХ ЗОБРАЖЕНЬ ”


Мета роботи: - вивчити процедури та функції для управління кольорами та па-літрою графічних зображень; навчитися складати програми на алгоритмічній мові Турбо-Паскаль для побудови різноманітних кольорових зображень.
Варіант: 2
N% п/п
Варіанти завдань

2



Код програми:
Program lab3_graph;
Uses Crt, Graph;
Var Gd, Gm:integer;
Begin
clrscr;
Gd:=DETECT;
InitGraph(Gd, Gm, '');
if GraphResult = grOK then begin
SetBkColor(15);
SetColor(1);
BAR3D ((GetMaxX div 4),(GetMaxY div 4),GetMaxX-(GetMaxX div 4),GetMaxY-(GetMaxY div 6), 100,TopOn);
SetFillStyle(1,5); FloodFill((GetMaxX div 4)+1,(GetMaxY div 4)+1, 1);
SetFillStyle(1,1); FloodFill(GetMaxX-(GetMaxX div 4)+1,GetMaxY-(GetMaxY div 6)-5,1);
SetFillStyle(1,4); FloodFill((GetMaxX div 4)+10,(GetMaxY div 4)-5,1);
SetColor(15);
line(300,150,350,150);line(350,150,400,350);line(300,150,250,350);
line(300,275,350,275);line(325,220,300,275);line(325,220,350,275);
line(250,350,285,350);line(400,350,365,350);line(300,300,350,300);
line(300,300,285,350);line(350,300,365,350);
line(525,125,560,100);line(560,100,560,295);line(560,295,525,320);
line(525,320,525,185);line(525,185,515,210);line(525,125,500,220);
line(515,210,500,220);
line(315,110,385,110);line(385,50,410,50);line(385,50,315,110);
arc(385,85,270,35,25);arc(407,60,260,90,10);
arc(375,85,300,25,25);arc(397,60,325,45,10);
line(340,107,387,107);line(375,75,398,75);line(385,67,404,67);line(395,53,403,53);
line(340,107,375,75); line(385,67,395,53);
SetFillStyle(1,15); FloodFill(382,66, 15);
SetFillStyle(1,15); FloodFill(310,160,15);
SetFillStyle(1,15); FloodFill(530,190,15);
OutTextXY(1,2,'Job DONE!');
end;
ReadLn;
CloseGraph;
End.
Блок-схема:
Ні Так
Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі та їх пояснення:
Bar3D() – ф-ія, яка виводить на екран тримірне зображення паралелепіпеда.
SetFillStyle() – ф-ія, яка задає спосіб замальовування.
FloodFill() – ф-ія, замальовування замкненої області.
OutTextXY(x,y,’’) – вивід тексту на позиції (х,у).
Arc() – ф-ія, яка вимальовує дугу.
line(x1,y1,x2,y2) – ф-ія, що будує лінію між точками (x1,y1) та (x2,y2).
gd,gm – ідентифікатори, які використовуються для визначення графічного драйверу та графічного режиму, відповідно.
Висновок:
На даній лабораторній роботі я згадав навички роботи в графічному середовищі мови програмування Турбо Паскаль та здійснив вивід на екран заданого зображення.