Паскаль Задача на рекурсию

Ответить
vafel'
Сообщения: 6
Зарегистрирован: 16 дек 2008, 20:10
Контактная информация:

Помогите ПОЖАЛУЙСТА решить задачу,завтра сдавать нужно :( Буду Премного благодарен.
Вычислить величину
Y=(2*n+1)!!*(2*m+1!!)/(2*(m+n)+1)!! , где m и n не отрицательные целые числа. Для определения (2*k+1)!! Использовать рекурсивную функцию.
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

полное условие давай
ака хинт: коментируйте код, самим же легче будет разобраться ;)
vafel'
Сообщения: 6
Зарегистрирован: 16 дек 2008, 20:10
Контактная информация:

Это полное условие
Esgal
Сообщения: 78
Зарегистрирован: 04 ноя 2008, 01:15

факториал от факториала?

4!!=620448401733239439360000

если просто факториал, то сделаю, если факториал от факториала, но никакого типа не хватит

6!=120
6!!=приблизительно равно=2,7*10^1746
Luke! Use the Force! Use the Force... oh, Luke! Stop using the Force, use your head!
vafel'
Сообщения: 6
Зарегистрирован: 16 дек 2008, 20:10
Контактная информация:

Ну тогда хотя бы просто на факториал,может ошибка в задании :(
Esgal
Сообщения: 78
Зарегистрирован: 04 ноя 2008, 01:15

[syntax='delphi']
uses crt;
y:longint;
n,m:byte;

function virag(x:byte):longint;

function factorial(n: byte): longint;
begin
if (n = 0) then
factorial := 1
else
factorial := n * factorial(n - 1);
end;

begin
virag:=factorial(2*x+1);
end;

begin
y:=virag(n)*virag(m)/virag(m+n);
write(y);
readln;
end.
[/syntax]
Luke! Use the Force! Use the Force... oh, Luke! Stop using the Force, use your head!
Esgal
Сообщения: 78
Зарегистрирован: 04 ноя 2008, 01:15

ну это не самый оптымальный вариант решения задачи... сейчас попробую гораздо проще сделать
Luke! Use the Force! Use the Force... oh, Luke! Stop using the Force, use your head!
Ответить