МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра «Захист інформації» EMBED Word.Picture.8
 Звіт До лабораторної роботи №1 з курсу «Комп’ютерна графіка» Перевірив: Баран Р.Д. Львів-2009 Мета роботи - навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зобра-жень та графіків функцій. 1. Навчитися ініціалізувати графічний режим роботи відеоадаптера в середовищі Турбо-Паскаль. 2. Вивчити основні графічні процедури та функції алгоритмічної мови Турбо-Паскаль. 3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран певне графічне зображення. Розміри, вказані в завданнях, проставити на кресленні. Варіанти завдань беруть за вказівкою викладача з таблиці 1. Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі, та їх пояснення. Всі процедури та функції, необхідні для графічного режиму роботи адаптера, знаходяться в модулі GRAPH.TPU і стають доступними лише після запису на початку програми оператора USES GRAPH. Процедура CLOSEGRAPH завершує роботу адаптера в графічному режимі і повертає текстовий режим. Outtextxy – вивід тексту Line – будує лінію по заданим координатам Остаточно відлагоджений текст програми згідно з отриманим завданням. Program labo_one_mazur; Uses Crt, Graph; var Gd, Gm : integer; x0, x1, x2, x3, x4, x5, y0, y1, y2, y3, y4, y5, r : real; Begin Gd := DETECT; InitGraph(Gd, Gm, ''); if GraphResult = grOK then begin x0 := 319; y0 := 239; r := 100; x1 := x0; y1 := y0 - r; x2 := x0 + r * 0.951056; y2 := y0 - r * 0.309016; x3 := x0 + r * 0.587785; y3 := y0 + r * 0.809016; x4 := x0 - r * 0.587785; y4 := y3; x5 := x0 - r * 0.951056; y5 := y2; line(trunc(x1), trunc(y1), trunc(x4), trunc(y4)); line(trunc(x4), trunc(y4), trunc(x2), trunc(y2)); line(trunc(x2), trunc(y2), trunc(x5), trunc(y5)); line(trunc(x5), trunc(y5), trunc(x3), trunc(y3)); line(trunc(x3), trunc(y3), trunc(x1), trunc(y1)); { circle(trunc(x0), trunc(y0), trunc(r)); } end; OutTextXY(1, 32, 'Press any key to continue...'); Readln; End. Висновок: на даній лабораторній роботі навчився ініціалізувати графічний режим та вивчив основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зображень та графіків функцій.