Табулирование и программирование - Pascal

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

Помоги написать программу как в задание пожалуйста!!! Составить программу для вычисления значения функции с помощью разложения функции в степенной ряд


textual

Код к задаче: «Табулирование и программирование - Pascal»

var x,eps,t,y:real;
    n:integer;
begin
repeat
write('Введите |x|<1  x=');
readln(x);
until abs(x)<1;
repeat
write('eps>0 eps=');
readln(eps);
until eps>0;
if eps>=abs(x)then y:=2*x
else
 begin
  n:=0;
  t:=x;
  y:=t;
  while abs(t)/(2*n+1)>eps do
   begin
    n:=n+1;
    t:=t*x*x;
    y:=y+t/(2*n+1)
   end;
  y:=2*y;
 end;
writeln('Сумма=',y:0:6);
write('Аналитически Ln((1+x)/(1-x))=',ln((1+x)/(1-x)):0:6);
end.
Эта работа вам не подошла?

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


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

10   голосов, оценка 3.700 из 5

Источник