Рекурсия

[unbanned]

Вообщем такое задание


затрудняюсь в решении...
не могу подогнать под один цикл вычисление числителя и знаменателя

[ByAlex]

Сообщение от unbanned

Вообщем такое задание


затрудняюсь в решении...
не могу подогнать под один цикл вычисление числителя и знаменателя

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

[Serge_Bliznykov]

можно вывести реккурентное соотношение - это когда следующий член последовательности высчитывается исходя из предыдущего члена.
если записать выражение для N=2, для N=3, для N=4 и посмотрите чем они друг от друга отличаются. Это совсем несложно.

[Zer0]

Можно поступить аналитически, то есть взять для n и n-1 и поделить первое на второе

А соотношение такое...
a(n-1)*x^2/(2n*(2n+1));

[unbanned]

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

мне не надо отдельной функцией) написать функцию вычисления факториала и функцию возведения в степень - не сложно)

А соотношение такое...
a(n-1)*x^2/(2n*(2n+1));

непонятно что такое "а"

вот что у меня получилось, точнее не получилось...

var
  y, k: real;
  ch, zn, x, i: integer;

begin
  readln(x);
  ch := sqr(x);
  zn := 120; // 5!
  for i := 2 to 14 do
  begin
    y := y + ch / zn;
    ch := ch * sqr(x);// чиcлитель с шагом x^2 (x^2 -> x^4 -> x^6)
    zn := zn * ???;// а вот знаменатель??? (120 -> 5040 -> 362880) 
  end;
  writeln(y:0:4);
end.

[Zer0]

a - это член последовательности, ну да ладно..

var
  y, x, a: real;
  i: integer;

begin
  readln(x);
  a:=1/6; //для n=1 результат именно такой, нужно только чтобы посчитать следующий
  y:=0;
  for i := 2 to 14 do
  begin
    a:=a*sqr(x)/(2n*(2n+1)); //а вот в этом соотношении я все таки ошибся похоже, пересчитайте его. Как - написано выше
    y:=y+a;
  end;
  writeln(y:0:4);
end.

[Plague]

var x,s:real;
    n,i:integer;

function a(n:integer):real;
begin
if n=1 then a:=1/6
       else a:=a(n-1)*sqr(x)/(2*n*(2*n+1));
end;

begin
  read(x);
  s:=0;
  for i:=2 to 14 do s:=s+a(i);   
  write(s);
end.

[unbanned]

//а вот в этом соотношении я все таки ошибся похоже, пересчитайте его. Как - написано выше

и все-таки я не совсем понял как его высчитать...

для n получается (x^(2n-2))/(2n+1)!
для n-1 получается (x^(2n-4))/(2n-1)!

и как их делить одно на другое??