Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2009
Тип роботи:
Графіки
Предмет:
Захист інформації
Група:
ІБ – 44
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра «Захист інформації»
Звіт
до лабораторної роботи № 2
ПОБУДОВА ГРАФІКІВ ФУНКЦІЙ ЗАСОБАМИ МОВИ ТУРБО-ПАСКАЛЬ
з курсу “ Комп’ютерна графіка”
Мета роботи - набути практичних навиків в складанні програм для побудови графіків функ-цій за допомогою засобів мови Турбо Паскаль.
КОРОТКІ ТЕОРЕТИЧНІ ДАНІ
Графіки, гістограми, діаграми тощо призначені для візуалізації (полегшення сприйняття людиною) числових результатів обробки інформації. При використанні комп’ютера в інженерних та наукових дослідженнях появі зображення на екрані монітора передують складні математичні розрахунки, які виконуються, як правило, в системі координат об’єкту дослідження. Така система координат називається реальною. Зображення, яке візуалізує на екрані результати розрахунків, формується в машинних координатах, характер яких визначається режимом роботи відеоадаптера.
Тому для адекватного відображення числових результатів на екрані необхідно для кожної прикладної задачі розробити чіткий алгоритм приведення реальних координат об’єкту дослідження до машинних координат. Зокрема, визначити відображення центру реальних координат на екрані в машинних координатах та функціональні залежності для розрахунку машинних координат.
Завдання:
21
x=[0;180]
h=0.5
Текст програми:
Program PKG2;
Uses Crt, Graph;
Var Gd, Gm :integer;
x0, y0, n, m :longint;
x1, xm, ky, kx, y1, ym, h : real;
temps:string;
everyCounter : integer;
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}
line (x0,2,x0-10,30);
line (x0,2,x0+10,30); {strilka Y}
OutTextXY (x0+15,2,'Y');
line (getmaxx,y0,getmaxX-30,y0-10);
line (getmaxx,y0,getmaxX-30,y0+10); {strilka X}
OutTextXY (getmaxx-10,y0+15,'X');
h:=0.01;
x1:=1;
everyCounter := 0;
while x1<=21 do
begin
xm:=x1;
ym:=16*xm*xm*xm+sqrt(sqrt(xm*xm+1));
if y1<ym then ky:=((getmaxy div 2)-40) / ym;
x1:=xm+h;
y1:=ym;
if (everyCounter mod 100 = 0) then begin
SetTextStyle(DefaultFont, HorizDir, 0);
str(xm:4:0, temps);
OutTextXY(0, (everyCounter div 10)+10, temps);
str(ym:4:4, temps);
OutTextXY(50, (everyCounter div 10)+10, temps);
SetTextStyle(DefaultFont, VertDir, 0);
end;
Inc(everyCounter);
end;
kx:=(x0-40)/20;
SetTextStyle(DefaultFont, VertDir, 1);
n:=-20;
m:=0;
for n:=-20 to 20 do begin
line (round(40+kx*m),y0-5,round(40+kx*m),y0+5);
str(n, temps);
OutTextXY (round(40+kx*m),y0+10,temps);
m:=m+1;
end;
SetTextStyle(DefaultFont, HorizDir, 1);
n:=10000;
m:=0;
repeat
line (x0-5,round(y0-m*10000*ky),x0+5,round(y0-m*10000*ky));
line (x0-5,round(y0+m*10000*ky),x0+5,round(y0+m*10000*ky));
str(n, temps);
OutTextXY (x0-70,round(y0-(m+1)*10000*ky),temps);
str(-n, temps);
OutTextXY (x0-70,round(y0+(m+1)*10000*ky+5000*ky),temps);
n:=n+10000;
m:=m+1;
until n>ym;
x1:=1;
y1:=16*x1*x1*x1+sqrt(sqrt(x1*x1+1));
moveto(round(x1*x0/20+x0),round(y0-y1*ky));
while x1<=20 do
begin
xm:=x1;
ym:=16*xm*xm*xm+sqrt(sqrt(xm*xm+1));
lineto(round(xm*(x0-40)/20+x0),round(y0-ym*ky));
x1:=xm+h;
end;
Readln;
CloseGraph;
end.
Висновок: Я ознайомився з основними відомостями. Для свого варіанту навчився малювати графік функції у середовищі Турбо-Паскаль.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора