1.ПОСТАНОВКА ЗАДАЧІ. Необхідно обчислити f(x) безпосередньо та як суму функціонального ряду (f(x)=
) маючи значення х та похибку d. Для цього застосуємо оператор Repeat. 2.РОЗРОБКА СТРУКТУРИ ДАНИХ. Позначення  Ім’я  Тип Призначення, опис   x  x  дійсна  аргумент вхідна   f  F  дійсна  значення функції вихідна   n  n  ціла  номер члену ряду   аn  a  дійсна функція  n-й член ряду    d  дійсна константа  похибка обчислення суми ряду  –  S  дійсна  сума ряду вихідна  ! а ціла факторіал   3.РОЗРОБКА АЛГОРИТМУ Оскільки необхідна кількість членів ряду невідома наперед, то необхідно використовувати цикли “до” або “поки” з виходом з них по досягненню заданої точності обчислень Треба відвести змінну для накопичення суми членів ряду, яку перед початком циклу потрібно обнулити. Для порівняння заданої та досягнутої похибок треба розрахувати f(x). 4.ТЕКСТ ПРОГРАМИ МОВОЮ PASCAL. program lab_7; const d: real =0.001; var x,S,f: real; n:integer; function fak(x:integer):integer; begin if x=0 then fak:=1 else fak:=x*fak(x-1); end; function a(n:integer):real; begin if (x>0) and (n mod 2=1) then a:=-exp((2*n+1)*ln(abs(x)))/fak(2*n+1) else a:=exp((2*n+1)*ln(abs(x)))/fak(2*n+1); end; BEGIN writeln('vvedit x'); readln (x); S:=x; n:=1;f:=sin(x); Repeat S:=S+a(n);writeln('A(',n,'):',a(n):5:4); n:=n+1; until abs(a(n))<d; writeln ('syma:', S:6:5);writeln('f(x):',f:6:5); readln; END. 5.Налагодження і результати тестування.
Висновок: я вирахував функцію f(x) безпосередньо та як суму функціонального ряду (f(x)=
) і досягнув заданої точності f(x) Співпало з сумою функціонального ряду з точністю 0,005 яка є меншою за задану точність. Міністерство освіти і науки україни НУ «Львівська Політехніка» Кафедра теоретичної радіотехніки та радіовимірювань. ЛАБОРАТОРНА РОБОТА №7 ОБЧИСЛЕННЯ СУМ ФУНКЦІОНАЛЬНИХ РЯДІВ. Гальчик Володимир