Здравствуйте уважаемые форумчане. Как можно решить данную задачку?
Не используя стандартные функции, вычислить с точностью EPS>0
Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N (|IXI|<1)
(Где ^N означает число в степени N)| (-1)^N*X^N/N |<EPS

9 - 10 класс..
Слагаемые различаются лишь на X/N.. =>

temp := x / n; 
while temp > eps do begin
   temp := temp*x / i;
   result := result + temp;
   Inc (i)
end;

Инициализация на Вашей совести

Спасибо большое!