Вычислить произведение. Рекуррентная формула.

[furymaxim]

Вычислить произведение, при x = 2. Как найти рекуррентную формула для данного выражения?На любом языке, Pascal,C++,Java

P = Произведение от n=1 до n= 8 ( x/n) ^n

[newerow1989]

var n:integer;
    p,x:real;
begin
   x:=2;
   p:=1;
   For n:=1 to 8 do
      p:=p*x/n;
   Writeln(p:5:8);
   Readln;
end.

[digitalis]

function recu (x:extended;arg:integer) : extended;
begin
   if arg=1 then recu := x
   else recu := Power((x/arg),arg) * recu (x,arg-1)
end ;

В Delphi это так. У Паскаля Power нет, см.
https://www.programmersforum.ru/showthread.php?t=3205
newerow1989 - дык оно ж без рекурсии И неправильное к тому же (см. пост #4)
- Куда ты завел нас, Сусанин ?!
- Да ну вас на фиг, я сам заблудился. ©

[Аватар]

Не сойдет) P(n)=P(n-1)*x/(n^n)

[digitalis]

Кому возражение - мне или Неверову ? Я за базар отвечаю

procedure TForm1.FormClick(Sender: TObject);
var i : integer ; x,y,tmp,ifl: extended ;
function recu (x:extended;arg:integer) : extended;
begin
   if arg=1 then recu := x
   else recu := Power((x/arg),arg) * recu (x,arg-1)
end ;
//--------------------
begin
  y := recu (2.0,8) ;
  Memo1.Lines.Add (FloatToStr(y)) ;
  y := 2 ; ifl := 2 ; x := 2 ;
  tmp := y ;
  for i := 2 to 8 do
     begin
       tmp := x/ifl ;
       tmp := Ln(tmp)*ifl ;
       ifl := ifl + 1.0 ;
       tmp := Exp(tmp) ;
       y := y * tmp
     end ;
  Memo1.Lines.Add (FloatToStr(y)) ;
end;

Результат : по рек. формуле и прямым расчетом в цикле. Подтверждено Excel' ем
1,23382175369813E-15
1,23382175369813E-15

[furymaxim]

Cпасибо большое за помощь.

[Аватар]

Кому возражение - мне или Неверову ?

А кто спрашивал - сойдет? Тому и возражение)