Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
ЗВІТ
до лабораторної роботи №6
на тему:
«ТАБУЛЮВАННЯ ФУНКЦІЇ ОДНОГО АРГУМЕНТУ»
з дисципліни
“ІНФОРМАТИКА ТА ОБЧИСЛЮВАЛЬНА ТЕХНІКА"
ЛАБОРАТОРНА РОБОТА №6
ТАБУЛЮВАННЯ ФУНКЦІЇ ОДНОГО АРГУМЕНТУ.
Мета роботи - засвоїти методику та виробити практичні навички застотування однієї з керуючих структур повторення операцій або циклів для багаторазових обчислень значень виразу.
6.2 ЗАВДАННЯ.
Протабулювати задану функцію y=f(x) в інтервалі [a,b] з кроком x.
Табл. 6.1. Варіанти завдань.
Варіант
f(x)
a
b
x
1
sin(x)x
6.3.2 РОЗРОБКА СТРУКТУРИ ДАНИХ.
Табл. 6.2. Розробка структури даних.
Позначення
Ім’я
Тип
Призначеня, опис
а
a
дійсна змінна
початок інтервалу табулювання, вхідна
b
b
-“-
кінець інтервалу табулювання, вхідна
x
x
-“-
аргумент функції
x
dx
-“-
крок табулювання, вхідна
f(x)
fx(x)
функція
підпрограма обчислення функції
y
y
дійсна змінна
значення функції
Row
ціла змінна
номер рядка на сторінці
Page
-“-
номер сторінки
ColumnsNum
-“-
кількість рядків, що можуть бути розміщені на сторінці
6.3.3 РОЗРОБКА АЛГОРИТМУ
6.3.4 ТЕКСТ ПРОГРАМИ.
program table;
uses crt;
const maxrowsnum=24;
var a,b,dx,x,y:real;
page:integer;
row:integer;
columnsnum:integer;
function f(a:real):real;
begin
if a<>0
then f:=sin(x)/x
else f:=0;
end;
procedure zatrymka;
begin
repeat until keypressed;
end;
begin
clrscr;
writeln('obchyslennja znachen funktsiji y=sin(x)/x');
write('liva granytsja intervalu: ');
readln(a);
write('prava granytsja intervalu: ');
readln(b);
write('krok: ');
readln(dx);x:=a;
clrscr;
page:=1;row:=5;
gotoxy(1,1);write('storinka:');gotoxy(10,1);write(page);
gotoxy(1,2);
writeln('+--------------------------------------+--------------------------------------+');
writeln('| argument | functsija |');
writeln('+--------------------------------------+--------------------------------------+');
repeat
y:=f(x);
gotoxy(1,row);write('|');gotoxy(40,row);write('|');gotoxy(79,row);write('|');
gotoxy(2,row);
write(x:6:4);
gotoxy(41,row);
write(y:6:4);
inc(row);
x:=x+dx;
if row=maxrowsnum
then
begin
gotoxy(10,1);
write(page);
zatrymka;
row:=5;
inc(page);
end;
until x>b;
zatrymka;
end.
6.3.5 НАЛАГОДЖЕННЯ ТА РЕЗУЛЬТАТИ ТЕСТУВАННЯ.
В цьому розділі необхідно навести діалог користувача з комп’ютером при введенні даних, одну з виведених на екран сторінок таблиці, перевірити за допомогою калькулятора або ЕОМ декілька з розрахованих значень.
Висновок:
В процесі розробки, запису і виконання програми я здобув практичні навички та засвоїв методику застотування однієї з керуючих структур повторення операцій або циклів для багаторазових обчислень значень виразу.