МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра «Захист інформації»
Звіт про виконання лабораторної роботи №1 з дисципліни "ПРОГРАМУВАННЯ КОМП`ЮТЕРНОЇ ГРАФІКИ" ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ Варіант 16 Мета роботи - навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зображень та графіків функцій. 1. ЗАВДАННЯ Домашня пiдготовка до роботи 1. Навчитися ініціалізувати графічний режим роботи відеоадаптера в середовищі Турбо-Паскаль. 2. Вивчити основні графічні процедури та функції алгоритмічної мови Турбо-Паскаль. 3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран певне графічне зображення. Розміри, вказані в завданнях, проставити на кресленні. Варіанти завдань беруть за вказівкою викладача з таблиці 1. Таблиця 1. N% п/п Варіанти завдань  16 Побудувати коло діаметром 120 і розбити його на 12 секторів.   Робота в лабораторiї 1. Ввести в комп'ютер програму, написану на мові Турбо-Паскаль згідно з отриманим завданням. 2. Здійснити відладку введеної програми, виправивши виявлені компілятором помилки. 3. Виконати програму. Текст відлагодженої програми та отримані результати оформити в звіт з лабораторної роботи. 2. БЛОК-СХЕМА АЛГОРИТМУ ПРОГРАМИ
3. Список ідентифікаторів змінних, використаних у програмі, та їх пояснення gd Тип графічного драйвера  gm Режим роботи графічного драйвера  x, y Змінні, яким присвоюються координати центра екрану в поточному режимі  а, b Проміжні змінні, яким присвоюються заокруглені значення 60*sin30° і 60*cos30° відповідно   4. ТЕКСТ ПРОГРАМИ program PKG1; uses crt, graph; var gd,gm,x,y,a,b:integer; driver:integer; begin clrscr; driver:=detect; gd:=0; initgraph(gd,gm,''); x:=getmaxx div 2; y:=getmaxy div 2; circle(x,y,60); line(x-60,y, x+60,y); line(x,y-60, x,y+60); a:=round(60*sin(pi/6)); b:=round(60*cos(pi/6)); line(x-b,y-a,x+b,y+a); line(x-a,y-b,x+a,y+b); line(x+a,y-b,x-a,y+b); line(x+b,y-a,x-b,y+a); readkey; closegraph; end. 5. РЕЗУЛЬТАТ ВИКОНАННЯ ПРОГРАМИ
 Висновок: виконуючи цю лабораторну роботу я навчився працювати у графічному режимі середовища Турбо-Паскаль.