Для заданного ε>0 и заданного Х вычислить сумму ряда

[borntank]

Для заданного ε>0 и заданного Х вычислить сумму ряда




Помогите,совсем не понимаю задание(

 

[Vladimir_S]

Помогите,совсем не понимаю задание(

А чего тут понимать, если только что было аналогичное задание, причем на тех же розовых огрызках: http://www.tehnari.ru/f41/t87822/ ? А вот интересно, вы всем курсом или только группой решили на мне поездить? Ну ладно, это еще выложу, а дальше - хватит! Беритесь-ка, господа оболтусы, за ум, пока не поздно. Причем желательно за собственный.

VAR
 N:Integer;
 S,x,a,Eps:Real;

BEGIN
 Repeat
  Write('x= ');
  ReadLn(x);
  If (x<=0) or (x>2) then writeln('Incorrect value!!!');
 Until (x>0) and (x<=2);
 Write('Eps= ');
 ReadLn(Eps);
 a:=-1;
 S:=0;
 N:=0;
 Repeat
  Inc(N);
  a:=-a*(x-1);
  S:=S+a/N;
 Until (Abs(a/N)<Eps) or (N=1000);
 WriteLn('Result: ',S:0:12,'  N= ',N,'  Accurate value: ',Ln(x):0:12);
 Readln
END.