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

[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

[IUnknown]

Для начала - разобраться, что такое есть рекуррентная формула. Это получение новых данных на основе уже известных. То есть, тебе надо не вычислять x^k на каждой итерации, а выяснить, что надо сделать с i-тым членом ряда, чтобы он превратился в (i+1)-ый. Может быть - на что-то его домножить, может быть - разделить, но а результате ты должен уметь из первого члена получить второй, из второго - третий, из третьего - четвертый, и так далее.

Попробуй это реализовать самостоятельно. Хинт: от перемены мест слагаемых сумма не меняется.

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

[anaf3r0n]

Для начала - разобраться, что такое есть рекуррентная формула. Это получение новых данных на основе уже известных. То есть, тебе надо не вычислять x^k на каждой итерации, а выяснить, что надо сделать с i-тым членом ряда, чтобы он превратился в (i+1)-ый. Может быть - на что-то его домножить, может быть - разделить, но а результате ты должен уметь из первого члена получить второй, из второго - третий, из третьего - четвертый, и так далее.

Попробуй это реализовать самостоятельно. Хинт: от перемены мест слагаемых сумма не меняется.

помочь не сможешь с выводом рекуррентной формулы?