Рекуррентная формула на TPascal

[Donatello]

Помогите решить, а то я что то не в куриваю как тут решать. Можно не код, а сам пример с пояснениями. С кодом сам разберусь, проблема ток сам пример

[Stilet]

цикл будет примерно таким:

...
x:=1;
while x<=21 do begin z:=z+(1/x)*exp(x*ln(1/y));x:=x+2;end;
...

[Donatello]

Спасибо работает.
Правда вопрос а Z инициализировать нужно нулем?

[Mad_Cat]

Спасибо работает

но я бы переписал формулу так как пример Stilet-а ни разу не рекуррентный

mn:=1/y;
x:=1;
while x<=21 do begin z:=z+(1/x)*mn;x:=x+2;
mn:=mn/(y*y);
end;

[Donatello]

А в чем разница если результат один???
У меня сейчас код выглядет вот так.

var
  x,y: integer;
  z,mn: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Enter y: ');
  ReadLn(y);
  mn:=1/y;
  x:=1;
  while x<=21 do begin
    z:=z+(1/x)*mn;
    x:=x+2;
    mn:=mn/(y*y);
  end;
  WriteLn('Z = ', z);
  ReadLn;
end.

результат при y = 1 в том и другом цикле
2.18087457777860Е+0000

И вопрос оставляю открытым Z нада инициализировать нулем? или нет?

[Mad_Cat]

И вопрос оставляю открытым Z нада инициализировать нулем? или нет?

нада

А в чем разница если результат один???

ваша тема

Рекуррентная формула

решать вам в принципе)

[Donatello]

Спасибо помогли, над будет их подучить позже, а то не понимаю их.