Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Побудова графіків функцій засобами мови турбо-паскаль
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Компютерних технологій автоматики та метрології
Факультет:
Не вказано
Кафедра:
Захист інформації
Інформація про роботу
Рік:
2009
Тип роботи:
Звіт
Предмет:
Комп'ютерна графіка
Група:
ІБ – 44
Варіант:
2
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра «Захист інформації»
EMBED Word.Picture.8
Звіт
до лабораторної роботи № 2
Побудова графіків функцій засобами мови турбо-паскаль
з курсу “ Комп’ютерна графіка”
Виконав:
студент групи ІБ – 44
Перевірив:
Баран Р. Д.
Львів 2009
Мета роботи - набути практичних навиків в складанні програм для побудови графіків функ-цій за допомогою засобів мови Турбо Паскаль.
КОРОТКІ ТЕОРЕТИЧНІ ДАНІ
Графіки, гістограми, діаграми тощо призначені для візуалізації (полегшення сприйняття людиною) числових результатів обробки інформації. При використанні комп’ютера в інженерних та наукових дослідженнях появі зображення на екрані монітора передують складні математичні розрахунки, які виконуються, як правило, в системі координат об’єкту дослідження. Така система координат називається реальною. Зображення, яке візуалізує на екрані результати розрахунків, формується в машинних координатах, характер яких визначається режимом роботи відеоадаптера.
Тому для адекватного відображення числових результатів на екрані необхідно для кожної прикладної задачі розробити чіткий алгоритм приведення реальних координат об’єкту дослідження до машинних координат. Зокрема, визначити відображення центру реальних координат на екрані в машинних координатах та функціональні залежності для розрахунку машинних координат.
Завдання:
Текст програми:
Program labo_two;
Uses Crt, Graph;
var Gd, Gm, xs, ys : integer;
x, x_cur, x_next, y, y_cur, y_next, h, k : real;
k_x, k_y, Max_x, Max_y, temp : real;
text : string;
Begin
Gd := DETECT;
InitGraph(Gd, Gm, '');
if GraphResult = grOK then begin
xs := 64;
{ centre X }
ys := 64;
{ centre Y }
h := 0.5;
{ krok }
x := 0.001;
{ startv X }
Max_x := 180.0;
Max_y := 0.0;
{ ===================================================================== }
moveto(xs, ys); lineto(xs, 1);
{ osi }
moveto(xs, ys);
lineto(xs, GetMaxY-1);
moveto(xs, ys); lineto( 1, ys);
moveto(xs, ys); lineto(GetMaxX-1, ys);
moveto(xs, 1); lineto(xs-2, 10);
{ strilky }
moveto(xs, 1);
lineto(xs+2, 10);
moveto(GetMaxX-1, ys);
lineto(GetMaxX-11, ys-2);
moveto(GetMaxX-1, ys);
lineto(GetMaxX-11, ys+2);
moveto(xs-11, ys+5);
OutText('0');
{ poznachennay }
moveto(xs+6, 3);
OutText('Y');
moveto(GetMaxX-10, ys-12);
OutText('X');
{ =========== VUZNACHENNYA KOEFICIENTY ================================ }
k_x := (GetMaxX - xs)/Max_x;
While x <= Max_x do begin
y := 20 * (sin(x/7) - cos(x/10) + ln(2 * x + 10));
x := x + h;
if (y > Max_y) then Max_y := y;
end;
k_y := (GetMaxY - ys)/Max_y;
if k_x >= k_y then k := k_y else k := k_x;
{ =========== ZARYBKY ================================================= }
x := 0.001;
{ RESET }
While (xs + temp) < (GetMaxX - 64) do begin
temp := temp + k * h*40;
x := x + h*40;
str(trunc(x), text);
moveto(trunc(xs+temp), trunc(ys));
lineto(trunc(xs+temp), trunc(ys-4));
moveto(trunc(xs+temp), trunc(ys));
lineto(trunc(xs+temp), trunc(ys+4));
moveto(trunc(xs+temp), trunc(ys-14));
OutText(text);
{ moveto(trunc(xs-temp), trunc(ys));
lineto(trunc(xs-temp), trunc(ys-4));
}
{ moveto(trunc(xs-temp), trunc(ys));
lineto(trunc(xs-temp), trunc(ys+4));
}
{ moveto(trunc(xs), trunc(ys-temp));
lineto(trunc(xs-4), trunc(ys-temp));
}
{ moveto(trunc(xs), trunc(ys-temp));
lineto(trunc(xs+4), trunc(ys-temp));
}
moveto(trunc(xs), trunc(ys+temp));
lineto(trunc(xs-4), trunc(ys+temp));
moveto(trunc(xs), trunc(ys+temp));
lineto(trunc(xs+4), trunc(ys+temp));
moveto(trunc(xs-32), trunc(ys+temp-6));
OutText(text);
end;
{ ===================================================================== }
x := 0.001;
{ RESET }
x_cur := x;
x_cur := k * x_cur + xs;
y_cur := 20 * (sin(x/7) - cos(x/10) + ln(2 * x + 10));
y_cur := k * y_cur + ys;
while x <= Max_x do begin
x := x + h;
y := 20 * (sin(x/7) - cos(x/10) + ln(2 * x + 10));
x_next := k * x + xs;
y_next := k * y + ys;
line(trunc(x_cur), trunc(y_cur), trunc(x_next), trunc(y_next));
x_cur := x_next;
y_cur := y_next;
end;
end;
OutTextXY(400, 20, 'Press any key to continue...');
Readln;
End.
Висновок: Я ознайомився з основними відомостями. Для свого варіанту навчився малювати графік функції у середовищі Турбо-Паскаль.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора