БЕСКОНЕЧНАЯ СУММА

[Ania Lunee]

ребят помогите разобраться с задачей)
пробовала решать задачу через рекуррентное соотношение, но из-за логарифмов она решается на очень узком промежутке, как решить по другому ума не хватает:3

условие задичи в прикрепленном файле

[Mad_Cat]

1откуда логарифмы в

через рекуррентное соотношение

2) язык программирования?

[Ania Lunee]

Сообщение от Mad_Cat

1откуда логарифмы в

2) язык программирования?

TURBO PASCAL
А логарифмы появились потому что не удалось сократить выражение и как умела записала)

[Mad_Cat]

мадам вы меня удивляете

программа не работает, и ведь ее нужно было протабулировать

вот вам Функа

function Arth(x,eps:real):real;
var sum,st,zn:real;
i:integer;
begin
sum:=0;
i:=1;
st:=x;
zn:=i*st;
repeat
sum:=sum+1/zn;
st:=st*x*x;
inc(i,2);
zn:=i*st;
until abs(1/zn)>eps;
Arth:=sum;
end;

табулируйте на здоровье!

[Ania Lunee]

Сообщение от Mad_Cat

мадам вы меня удивляете
должно получиться типа

var sum,st,zn,x,eps:real;
i:integer;
begin
readln(x);
readln(eps);
sum:=0;
i:=1;
st:=x;
zn:=i*st;
while 1/zn>=eps do
begin
sum:=sum+1/zn;
st:=st*x*x;
inc(i,2);
zn:=i*st;
end;
writeln(sum);
readln;
end.

программа не работает, и ведь ее нужно было протабулировать