Подпрограммы.Рекурсивные формулы

[dimka123]

Процедуры функции. Паскаль
fact.jpg

[Stilet]

function fac(i:integer):Integer;
var r:integer;
begin
 r:=1; while i>1 do begin r:=r*i; dec(i); end; fac:=r;
end;

И

...:=(fac(fac(2*n+1)))*(fac(fac(2*m+1)))/(fac(fac(2*(n+m)+1)));

Идея понятна?

[Poma][a]

Шушуть пофлужу..
Чтобы получить результат при больших n m..
Надо, 1) использовать Int64 2) Вычислить 1-ый множитель, убрать его с помощью делителя, вычислить 2-ой множитель, уменьшить его с помощью оставшейся части делителя..

[Stilet]

Чтобы получить результат при больших n m..

Надо эти числа задавать маленькими
и не волать гуся, препод не на это будет смотреть

[dimka123]

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

function fac(i:integer):Integer;
var r:integer;
begin
 r:=1; while i>1 do begin r:=r*i; dec(i); end; fac:=r;
end;

И

...:=(fac(fac(2*n+1)))*(fac(fac(2*m+1)))/(fac(fac(2*(n+m)+1)));

Идея понятна?

да понятна! но - dec(i)-это что?

[Stilet]

dec(i) это i:=i-1.
Подробности читай в хелпе.

[dimka123]

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

dec(i) это i:=i-1.
Подробности читай в хелпе.

Подскажи плиз, вот делаю уже в программе ввод значений n и м
то >1 выдает nan ....если 1 1 то бесконечность
на выводе значение Y

[Stilet]

Нда... Числа получаются слишком большие. Процессор просто не в состоянии обработать их.
Ну тут уж прости, я не виноват.

[dimka123]

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

Нда... Числа получаются слишком большие. Процессор просто не в состоянии обработать их.
Ну тут уж прости, я не виноват.

жесткая программка блин) лад спасиб и на этом еще раз!