Pascal Формулы

[Vkusnjashka]

Помогите пожалуйста, последняя лабораторная, никак не могу решить. Нужно решить это с помощью pascala:

[cherw9!40k]

1) Функция логарифма в паскале имеется (гугл + хелпы тебе в помощь)
2) Знак суммы заменяется циклом for (знак бесконечности видимо подразумевает предварительный ввод критерия точности)

3) Это о чем?

[Chudo4258]

readln(x);
readln(n);
a:=x;
for i:=1 to n do
begin
 if i mod 2 = 0 then S:=S-a/n;
                    else S:=S+a/n;
 a:=a*x
end;

[Ser@Fim]

Chudo4258, там ряд от 0 до бесконечности, причем в знаменателе стоит счетчик.
Vkusnjashka, а расшифровки задания нету?
Рискну предположить, что сумма - это разложение логарифма в ряд Тейлора. А вот что означают числа - загадка...

[Vkusnjashka]

Ser@Fim нету единственно что сейчас узнала у однокурсника это "начала во второй формуле надо вставлять вместо н - 1,2,3,4,5. Решить, что выходит. Это всё на бумаге. Потом из этого составить формулу рекурсии. И забить в прогу. где границы, это первое и третье число от третьего ряда цифр. и шаг второе - число."

[Ser@Fim]

ну вот что получил - вычислить значения функции ln(x+1) при помощи ряда Тейлора, где x изменяется от -0.9 до 0.9 с шагом 0.1
Рекурсия тут не нужна. е - точность вычисления, необходима так как ряд бесконечный.

const e=0.000001;

var x:real;

function MyLn(x:real; e:real):real;
var sum,xn,a:real;
    n,sign:integer;
begin
 x:=x-1;
 sum:=0;
 sign:=1;
 xn:=x;
 n:=1;
 repeat
  a:=xn/n;
  sum:=sum+sign*a;
  xn:=xn*x;
  sign:=-sign;
  n:=n+1;
 until (abs(a)<e);
 MyLn:=sum;
end;

begin
 x:=-0.9;
 repeat
  writeln('x=',x:4:1,'ln(1+x)= ':12,MyLn(1+x,e):7:5);
  x:=x+0.1;
 until (x>0.9)
end.