Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ПОБУДОВА ГРАФІКІВ ФУНКЦІЙ ЗАСОБАМИ МОВИ ТУРБО-ПАСКАЛЬ
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2009
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Захист інформації
Група:
ІБ – 44
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет „Львівська політехніка”
Кафедра «Захисту інформації»
Звіт
Про виконання лабораторної роботи №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 – наступне значення у.
Висновок:
На даній лабораторній роботі я згадав навички роботи в графічному середовищі мови програмування Турбо Паскаль та здійснив вивід на екран заданої функції.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора