Найти значение выражения - Pascal ABC (14464)

Формулировка задачи:

Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения X − X3/3 + X5/5 − … + (−1)N·X2·N/(2·N+1). Полученное число является приближенным значением функции arctg в точке X. По возможности с пояснениями

Код к задаче: «Найти значение выражения - Pascal ABC (14464)»

textual
var x,e,s,t,y:real;
    n,i:integer;
begin
repeat
write('|x|<1  x=');
readln(x);
until abs(x)<1;
repeat
write('n>0 n=');
readln(n);
until n>0;
t:=x;
s:=t;
for i:=1 to n do
 begin
  t:=-t*x*x;
  s:=s+t/(2*i+1);
 end;
writeln('Сумма=',s:0:4);
writeln('Проверка=',arctan(x):0:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.889 из 5


СДЕЛАЙТЕ РЕПОСТ