Помогите, пожалуйста, вычислить значения суммы ряда S

[Anastasia12]

Помогите, пожалуйста, вычислить значения суммы ряда S

Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps. Вычисленные значения ряда сравнить со значениями заданной функции f(x). Результаты вычислений вывести в виде таблицы с заголовком.

 

[Vladimir_S]

К сожалению, пока мы не проникнем в тщательно охраняемую Вами тайну языка программирования, на котором следует выполнить задание, мы бессильны помочь.

 

[Anastasia12]

паскаль ))

 

[Vladimir_S]

паскаль ))

Ну тогда ладно. Только не сию минуту.

 

[Anastasia12]

буду очень вам благодарна:wo:

 

[Vladimir_S]

Получите:

Var
 i,N,k:Integer;
 x_nach,x_kon,Delta_x,S,x,A,Eps:Real;

Begin
 Repeat
  Write('x_nach = ');
  Readln(x_nach);
  Write('x_kon = ');
  Readln(x_kon);
  if ((x_nach>0) and (x_nach<=1)) or
     ((x_nach<0) and (x_nach>=-1)) or
     ((x_kon>0) and (x_kon<=1)) or
     ((x_kon<0) and (x_kon>=-1)) or
     (x_nach>x_kon) then writeln('Error!!!');
 Until ((x_kon<-1) or (x_nach>1)) and (x_nach<x_kon);
 Write('Delta_x = ');
 Readln(Delta_x);
 Write('Eps (e.g. 0.0001)= ');
 Readln(Eps);

 N:=Trunc((x_kon-x_nach)/Delta_x);

 writeln('   x                 Result          Accurate value');

 for i:=0 to N do
  begin
   x:=x_nach+Delta_x*i;
   A:=1/x;
   S:=A;
   k:=1;
   Repeat
    A:=A/Sqr(x);
    Inc(k);
    S:=S+A/(2*k-1);
   Until Abs(A*2/(2*k-1))<Eps;
   writeln(x:7:3,S*2:20:5,ln((x+1)/(x-1)):20:5);
  end;
 Readln
End.

 

[Anastasia12]

Спасибо большое:tehnari_ru_203: