Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0

[ReBrissenden]

Помогите решить, без использования функции

[ura_111]

А какой язык программирования?
И что ты знаешь по нём (не переживай и не стесняйся - говори как есть).

[Аватар]

поищи здесь
http://programmersforum.ru/showthread.php?t=70310

[evg_m]

не использовать стандартные функции => использовать рекуррентное соотношение для вычисления очередного слагаемого. An+1 =F(An)

An :=2/x;                        n:=0;
An :=An  *(2*n+1)/(2*n+2+1)/x/x; n:=n+1;

[newerow1989]

function f1(x:real):real;
const eps=0.0001;
var xx,st,a:real;
begin
   st:=1;
   xx:=x;
   Result:=2/x;
   Repeat
      st:=st+2;
      xx:=xx*xx*xx;
      a:=2/st/xx;
      Result:=Result+a;
   Until a<eps;
end;

function f2(x:real):real;
begin
   f2:=Ln((x+1)/(x-1));
end;

var i:integer;
begin
   For i:=2 to 30 do
      Writeln(f1(i):5:8,'  ',f2(i):5:8);
   Readln;
end.