МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра «Захист інформації»
Звіт про виконання лабораторної роботи №2 з дисципліни "ПРОГРАМУВАННЯ КОМП`ЮТЕРНОЇ ГРАФІКИ" ПОБУДОВА ГРАФІКІВ ФУНКЦІЙ ЗАСОБАМИ МОВИ ТУРБО-ПАСКАЛЬ Варіант 3 Мета роботи - набути практичних навиків в складанні програм для побудови графіків функцій за допомогою засобів мови Турбо-Паскаль. ЗАВДАННЯ Домашня пiдготовка до роботи Ознайомитися з методами побудови графіків функцій на екрані монітора комп’ютера. Вивчити основні процедури мови Турбо-Паскаль для виведення тексту в графічному режимі. Написати програму, яка будує в середині екрану систему координат XY і на ній графік функції Y=F(X), використовуючи графічні оператори мови Турбо Паскаль, якщо аргумент або параметр змінюється на проміжку [a;b] з кроком h. Варіанти завдань беруть з таблиці 1 за вказівкою викладача. Таблиця 1. N% п/п Функція Інтервал Крок  3 
x=[0;180] h=0.15   Робота в лабораторiї 1. Ввести в комп'ютер програму, написану на мові Турбо-Паскаль згідно з отриманим завданням. 2. Здійснити відладку введеної програми, виправивши виявлені компілятором помилки. 3. Виконати програму. Текст відлагодженої програми та отримані результати оформити в звіт з лабораторної роботи. 2. БЛОК-СХЕМА АЛГОРИТМУ ПРОГРАМИ
3. Список ідентифікаторів змінних, використаних у програмі, та їх пояснення gd Тип графічного драйвера  gm Режим роботи графічного драйвера  x0, y0 Змінні, яким присвоюються координати центра екрану в поточному режимі  x, y Поточні реальні координати точки  xm, ym Поточні машинні координати точки  x1, y1 Відображення центру реальних координат на екрані в машинних координатах  t Параметрична змінна  h Крок   4. ТЕКСТ ПРОГРАМИ Program PKG2; Uses Crt, Graph; Var Gd, Gm, x0, y0:integer; x, x1, xm, y, y1, ym, t, h: real; Begin clrscr; Gd:=DETECT; InitGraph(Gd, Gm, ''); x0:=GetMaxX div 2; y0:=GetMaxY div 2; line (1,y0,GetMaxX-2,y0); {visb X} line (x0,1,x0,GetMaxY-2); {visb Y} OutTextXY (x0-10,y0-10,'0'); line (319,1,317,10); line (319,1,321,10); {strilka Y} OutTextXY (325,2,'Y'); line (639,239,629,237); line (639,239,629,241); {strilka X} OutTextXY (631,224,'X'); h:=0.15; t:=ln(0.15); x1:=exp(t); y1:=90*cos(exp(t)+t/20); x1:=x1+x0; y1:=y1+y0; moveto(round(x1),round(y1)); while t<=ln(180) do begin x:=exp(t); y:=90*cos(exp(t)+t/20); xm:=x+x0; ym:=y+y0; lineto(round(xm),round(ym)); x1:=xm; y1:=ym; t:=t+h; end; Readln; CloseGraph; End. Висновок: виконуючи цю лабораторну роботу я навчився складати програми для побудови графіків функцій за допомогою засобів мови Турбо-Паскаль.