Частина тексту файла (без зображень, графіків і формул):
ПОСТАНОВКА ЗАДАЧІ.
Необхідно перетворити функцію s(t) з урахуванням конкретних значень bk, щоб привести цю функцію до зручного для обчислень вигляду. При описі виводу, чи в ескізі таблиці, передбачити виведення для кожного значення аргументу значень функції f(t) та s(t). Значення М для всіх варіантів обрані таким чином, що не виникає необхідності в поекранному виведенні даних.
РОЗРОБКА СТРУКТУРИ ДАНИХ.
Студент може розглянути (але не обов’язково) можливість використання масивів для зберігання коефіцієнтів ak і bk.
Окрім змінних, вказаних в завданні, необхідно передбачити змінні для зберігання констант, використаних у варіантах завдань для опису функцій f(t) i s(t). Якщо описують функції чи процедури, то необхідно описати їх вхідні та вихідні параметри, їх тип та призначення функції чи процедури.
Позначення
Ім’я
Тип
Призначення, опис
a
a
дійсна
Ліва межа інтервалу
b
b
дійсна
права межа інтервалу
d
d
дійсна
крок
t
t
дійсна
Аргумент функції, час
M
m
ціла
Кількість значень аргмента
bk
bk
дійсна
коефіцієнт
S(t)
S
дійсна
Функція задана аналітично
k
k
ціла
порядок
N
n
ціла
кількість перших членів ряду
F(t)
F(t)
дійсна
Функція задана у вигляді ряду Фур’є
3. РОЗРОБКА АЛГОРИТМУ.
Оскільки кількість членів ряду та точок табулювання є заданою, то для програмування обчислень зручно використати вкладені цикли з параметрами: внутрішній для обчислення суми ряду і зовнішній для зміни аргументу в заданих межах та виведення аргументу і результатів. Для обчислення коефіцієнтів ak і bk, f(t) використовують підпрограми-функції.
Текст програми
program project1; uses crt;
var a,b,d,t, Bk,s:real;
m, k,n:integer;
function f(x:real):real;
begin
f:=cos(x)*(abs (x+pi-(round((x+pi)/(2*pi))*2*pi))-pi);
end;
function sk(x:real):real;
begin
sk:=bk*sin(k*x); end;
begin
writeln('vvedit najmnshe znashennja argymenty');
readln(a);
writeln('vvedit najbilshe znashennja argymenty');
readln(b);
writeln('vvedit kilkist znashenn argymenty'); readln(m);
writeln('vvedit kilkist pershuh cleniv rjadu'); readln(n); ClrScr;
d:=(b-a)/(m-1);
t:=a; write('argyment'); write(' '); write('f(t)'); write(' '); writeln('s(t)');
while t<=b do
begin s:=0;
write(t:8:3); write(' '); write(f(t):8:3); write(' '); bk:=0;
for k:=1 to n do begin
if k=1 then bk:=-1/2;
if (k mod 2=1) and (k<>1) then bk:=-2*k/(k*k-1);
if (k mod 2=0) and (k<>1) then bk:=2*k/(k*k-1);
s:=s+sk(t);end;
writeln(s:8:3);
t:=t+d;
end; readln;
end.
ТЕСТУВАННЯ ТА НАЛАГОДЖУВАННЯ.
Висновок:я засвоїв методику та виробив практичні навики застотування вкладених циклів та
ознайомився з:
- Програмною реалізацєю табулювання функцій;
-Обчисленнями суми ряду;
-Правилами запису вкладених циклів;
-Поняттями про періодичну функцію.
А також з правилами запису деяких функцій. Наприклад - x mod a = x(({x(a})(a, де {} ( операція взяття цілої частини.
Міністерство освіти і науки україни
НУ «Львівська Політехніка»
Кафедра інформатики.
ЛАБОРАТОРНА РОБОТА №8
ТАБУЛЮВАННЯ ФУНКЦІЇ, ЗАДАНОЇ РЯДОМ ФУР’Є.
Підготував
студент
групи РТ-11
ХАРІВ
ВОЛОДИМИР
Ви не можете залишити коментар. Для цього, будь ласка, увійдіть
або зареєструйтесь.
Ділись своїми роботами та отримуй миттєві бонуси!
Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!