Пользавательские алгебраические функции.

[Diego90]

Использование функции в циклических процессах.
Вычислить величину Y:
Y=(2*n+1)!!*(2*m+1)!!/(2*(m+n)+1)!!
m и n неотрицательные целые числа (m<=n)
Для определения (2*K+1)!! использовать рекурсивную функцию.
Прошу помочь пожалуйста.Лучше всего на языке Pascal Turbo.

[andrewpalkin]

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

Использование функции в циклических процессах.
Вычислить величину Y:
Y=(2*n+1)!!*(2*m+1)!!/(2*(m+n)+1)!!
m и n неотрицательные целые числа (m<=n)
Для определения (2*K+1)!! использовать рекурсивную функцию.
Прошу помочь пожалуйста.Лучше всего на языке Pascal Turbo.

А что именно не получается и что уже написано , можно код , который ты уже написал/а !

[Diego90]

Да в том и дело , что ничего не смог сделать .
Я дубовый в области информатики , а конец семестра близится к концу.

[Prime123]

Вы ошиблись разделом,вам в раздел Фриланс,там вы обязательно найдете доброго,умного и отзывчивого человека,который за определённое вознаграждение выполнит за вас вашу работу

[Diego90]

Ну я не прошу ничего нереального.
Всё таки есть люди , которые готовы помогать бескорыстно.

[alex_fcsm]

Понимаете этих задач за сегодня я уже видел с десяток, а уж по всему форуму пруд пруди. А вы просите снова это решать. Мягко говоря не ново это. Ищите в поиске или даже просто вниз посмотрите тему где высчитывается бесконечная сумма. Единственное отличие, да и то сомнительное - рекурсивное определение функции факториала

Так и быть, не буду вас мучить.

function fact(x:integer):longint;
begin
if x=0 then fact:=1
  else fact:=x*fact(x-1);
end;

[Diego90]

Спасибо.
Попробую сегодня после пар решить её.
Если решу то выложу сюда решение.

[alex_fcsm]

Если есть желание самому сделать, то выкладывайте что не получается - здесь помогут

[Diego90]

Program Z1;
var m,n:integer;
    Y:real;
 
 function fact(x:integer):longint;
  begin
   if x=0
   then fact:=1
   else fact:=x*fact(x-1)
  End;


   Begin {нужен - это начало программы}
   write('m=');readln(m);
   write('n=');readln(n);
   {Вот начиная от сюда , какое описание надо}
   Y:=fact(2*n+1)*fact(2*n+1)/fact(2*(n+m)+1);
   writeln('Y=',Y)
End.

Код оформляем правильно!

[alex_fcsm]

Посмотрите у вас же там двойной факториал

 Y:=fact(fact(2*n+1))*fact(fact(2*n+1))/fact(fact(2*(n+m)+1));