Міністерство освіти і науки України Національний університет „Львівська політехніка” Кафедра «Захисту інформації»
Звіт Про виконання лабораторної роботи №2 На тему: “ ПОБУДОВА ГРАФІКІВ ФУНКЦІЙ ЗАСОБАМИ МОВИ ТУРБО-ПАСКАЛЬ ” Мета роботи: набути практичних навиків в складанні програм для побудови графіків функ-цій за допомогою засобів мови Турбо Паскаль. Варіант: 18 N% п/п Функція Інтервал Крок  18 
t=[-1;200] h=0.5   Код програми: Program lab2; Uses Crt, Graph; Var Gd, Gm, xs, ys:integer; x, xcrnt, xnxt, y, ycrnt, ynxt: extended; t, h:real; Begin clrscr; Gd:=DETECT; InitGraph(Gd, Gm, ''); if GraphResult = grOK then begin line (1,GetMaxY div 2,GetMaxX-2,GetMaxY div 2); line (GetMaxX div 2,1,GetMaxX div 2,GetMaxY-2); OutTextXY ((GetMaxX div 2)+10,(GetMaxY div 2)+10,'0'); line (319,1,317,10); line (319,1,321,10); OutTextXY (325,2,'Y'); line (639,239,629,237); line (639,239,629,241); OutTextXY (631,224,'X'); h:=0.5; t:=-1.0; xs:=GetMaxX div 2; ys:=GetMaxY div 2; xcrnt:=70*sqr(cos(t))*cos(t)+20*sin(t/3) ; xcrnt:=xcrnt+xs; ycrnt:=90*sin(5*t)*sqrt(abs(cos(4*t))); ycrnt:=ycrnt+ys; while t<=200.0 do begin x:=70*sqr(cos(t))*cos(t)+20*sin(t/3); y:=90*sin(5*t)*sqrt(abs(cos(4*t))); xnxt:=x+xs; ynxt:=y+ys; line(trunc(xcrnt),trunc(ycrnt),trunc(xnxt),trunc(ynxt)); xcrnt:=xnxt; ycrnt:=ynxt; t:=t+h; end; end; OutTextXY(1,2,'Resultat'); ReadLn; CloseGraph; End. Блок-схема: Ні Так Ні Так Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі та їх пояснення: Sin() – ф-ія обчислення синуса. Cos() – ф-ія обчислення косинуса. abs() – ф-ія обчислення модуля. Trunc()– ф-ія округлення дробового числа до цілого. OutTextXY(x,y,’’) – вивід тексту на позиції (х,у). t,h – інтервал і крок, відповідно. line(x1,y1,x2,y2) – ф-ія, що будує лінію між точками (x1,y1) та (x2,y2). gd,gm – ідентифікатори, які використовуються для визначення графічного драйверу та графічного режиму, відповідно. x – значення функції х в поточний момент. y – значення функції у в поточний момент. xs – значення, які додаються до поточних значень х, щоб вивід функції здійснювався в центрі екрану. ys – значення, які додаються до поточних значень y, щоб вивід функції здійснювався в центрі екрану. xcrnt – поточне (збережене) значення х. ycrnt – поточне (збережене) значення у. xnxt – наступне значення х. ynxt – наступне значення у. Висновок: На даній лабораторній роботі я згадав навички роботи в графічному середовищі мови програмування Турбо Паскаль та здійснив вивід на екран заданої функції.