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

[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 16:21

[IUnknown]

А при чем тут рекурсия? Разговор в задании идет про рекуррентную, а не про рекурсивную формулу. Это разные вещи вообще-то...

[anaf3r0n]

А при чем тут рекурсия? Разговор в задании идет про рекуррентную, а не про рекурсивную формулу. Это разные вещи вообще-то...

Прошу прощения за не компетентность в данном вопросе. Так как быть с рекуррентной формулой?

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