Постановка задачі. Розкласти функцію y=ch(x) у ряд Тейлора та написати рекурсивну функцію для обчислення її

Розкласти функцію y=ch(x) у ряд Тейлора та написати рекурсивну функцію для обчислення її значення у точці x >0 з точністю =0.0001.

Опис алгоритму

Розкладаємо функцію y=ch(x) за формулою . Потім розкладаємо та у ряд Тейлора, а саме та , тоді . Створюємо рекурсію, яка обчислює за формулою Тейлора, а далі знаходимо номер елемента, починаючи з якого, значення доданків за формулою Тейлора менші за E. Виводимо результат, який отримали за формулою Тейлора та результат через стандартні функції для порівняння.

Текст програми

Program P6;

uses crt;

var e,x,res,stx:real;

Function Teylor(stx,fact:real; n:integer):real;

begin

if stx/fact < e then

exit

else

Teylor:=stx/fact + teylor(stx*x*x,fact*(n+1)*(n+2),n+2);

end;

begin

read(x);

read(e);

stx:=x*x;

res:=teylor(stx,2,2);

writeln(res+1:2:5);

writeln((exp(x)+exp(-x))/2:2:5);

end.

Дата добавления: 2015-07-17