МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра «Захист інформації» EMBED Word.Picture.8
 Звіт До лабораторної роботи №1 з курсу «Комп’ютерна графіка» Перевірив: Баран Р.Д. Львів-2009 Мета роботи - навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зобра-жень та графіків функцій. 1. Навчитися ініціалізувати графічний режим роботи відеоадаптера в середовищі Турбо-Паскаль. 2. Вивчити основні графічні процедури та функції алгоритмічної мови Турбо-Паскаль. 3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран певне графічне зображення. Розміри, вказані в завданнях, проставити на кресленні. Варіанти завдань беруть за вказівкою викладача з таблиці 1. Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі, та їх пояснення. Всі процедури та функції, необхідні для графічного режиму роботи адаптера, знаходяться в модулі GRAPH.TPU і стають доступними лише після запису на початку програми оператора USES GRAPH. Процедура CLOSEGRAPH завершує роботу адаптера в графічному режимі і повертає текстовий режим. Outtextxy – вивід тексту Line – будує лінію по заданим координатам Остаточно відлагоджений текст програми згідно з отриманим завданням. Program diod; uses Graph,Crt; var Gd, Gm: Integer; begin Gd := Detect; InitGraph(Gd, Gm, ''); Line(220,300,400,300); Line(300,300,300,250); Line(300,300,300,350); Line(300,350,360,300); Line(300,250,360,300); Line(360,250,360,350); Line(250,275,256,275); Line(253,272,253,278); Line(390,275,395,275); outtextxy(250,350, 'KATOD') ; outtextxy(380,350, 'ANOD') ; Readln; CloseGraph; end. Висновок: на даній лабораторній роботі навчився ініціалізувати графічний режим та вивчив основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зображень та графіків функцій.