Рекурсия, Написать рекурсивную функцию Опции

[anaf3r0n]

Доброго времени суток всем!

Вычислить сумму ряда:
S:=x^n+x^(n-1)/2+x^(n-2)/3+...+x/n (для данного ряда написать рекуррентную формулу)

с точностью до члена ряда e=0.000001

Вот что написал, но не знаю как с рекурсией быть, как реализовать:

uses crt;
const
  e=0.000001;
var
  x,x1,x2,n,i,s1:real;

function pow(x,n:real):real;
begin
  pow:=exp(n*ln(x));
  end;

begin
  clrscr;
  write('X:= '); readln(x);
  write('N:= '); readln(n);
    i:=1;
    x1:=pow(x,n)/i;
while abs(s1-x2)<=e do begin
    x2:=pow(x,n-i)/(i+1);
    i:=i+1;
  s1:=s1+x2;
  end;
  writeln(s1+x1);
end.

Сообщение отредактировано: anaf3r0n - 23.10.2011 12:21

[Krjuger]

Вот смотри,как изменяеться у тебя твоя формула? Скаждым шагом степерь х уменьшаеться на 1,чтобы этого добиться надо i-тый член делить на х. затем надо разобраться с знаменателими.Смотрим второй член делиться на 2,третий уже на 3,самое простое что приходит в голову это,чтобы получить третий член из второго надо его умножить на 2 и разделить на 3.Теперь обобщим все это и перейдем от чисел к абстракциям.

an:=x^n;//задаем начальное значение,оно же первый член.
for i:=1 to n-1 do
an:=an*i/((i+1)*x);

Почему же цикл до n-1, а не до n...Это изза того что в конце концов мы в знаменателе должны получить деление на n, а по нашей формуле мы делим на I+1.