program RJAD;
const
n0: shortint=0;
d: real =1e-4;
var
x, a, F, S: real;
n: byte;
BEGIN
writeln (‘Введіть значення аргументу x’);
readln (x); {введення значення x}
a:=1; S:=0; n:=n0; {початкові значення змінних}
repeat {початок циклу “до”}
S:=S+a; {накопичення суми ряду}
n:=n+1; a:=a*x/n; {значення наступного члену}
writeln (n:4, a:12:5, S:12:5); {проміжний друк}
until abs(a)<d;{умова виходу з циклу “до”}
F:=exp(x); {значення функції}
writeln (‘сума ряду’, S:12:5, ‘функція’:15, F:12:5); {виведення}
writeln (‘Похибки: Задана’, d:8);
writeln (‘досягнута’:15, abs(F-S):8);
END.
НАлагодження і результати тестування.
Відмічаються помилки та відповідні корекції алгоритму та тексту програми. Студенти наводять висновки про швидкість збіжності функціонального ряду, отримані на підставі виведених проміжних результатів. Порівнюється задана та досягнена точність розрахунків, наводяться результати роботи програми при декількох значеннях аргументу.
Лабораторна робота №8
Табулювання функції, заданої рядом Фур’є.
Мета роботи - засвоїти методику та виробити практичні навики застотування вкладених циклів.
Перелік питань, які необхідно вивчити
· Програмна реалізація табулювання функцій;
· Обчислення суми ряду;
· Правила запису вкладених циклів;
· Поняття про періодичну функцію.
