Помогите с программой на паскале. Вычислить с тоочностью ЭПСИЛОН: у=sh x=1+(x^3/3!)+(x^5/5!)+...

Question

Вадим Смирнов · Accepted Answer

переделай под свою 
program sumr; 
uses crt; 
var i:integer; 
a,s,x:real; 
 BEGIN 
 clrscr; 
 writeln('vichislenie summi rada'); 
 writeln('----------------------'); 
 writeln; 
 write('vvesti X ==> '); 
 readln(x); 
 writeln; 
 s:=0; 
 a:=x; writeln('a0= ',a:8:3); 
 for i:=0 to 4 do begin 
 a:=a*sqr(x)*(2*i+1)/(2*i+3); writeln('a',i+1:1,'= ',a:8:3); 
 s:=s+a; end; 
 writeln('s=',s:8:3); 
 readkey; 
END.

Алексей Иванов · Answer

В задаче требуется вычислить значение гиперболического синуса, разложенного в ряд Тейлора. 
Вот программный код. 
<img src="//sprtqa.b-cdn.net/download/ad350bd7bfa4e9ec1e93620f8ca6971f_i-104.jpg" > 
 
Точность вычислений: epsilon=0.00001 
Значение аргумента x: 0.5 
В качестве проверки использовал формулу гиперболического синуса sh(x)=(exp(x)-exp(-x))/2 
Как видите - значения совпадают с заданной точностью, поэтому программа работает корректно.