Forum: Programmieren allgemein
by Dani,
16. Jan 2005
Der Ansatz, den ich gepostet habe kommt auch mit n = 5000 klar (wird aber irgendwann ungenau). Die Fakultät wird wegen der Rekursion nie als Ganzes berechnet.
Forum: Programmieren allgemein
by Dani,
16. Jan 2005
Die Grenze des Berechenbaren liegt aber viel höher als bei Int46. Für die Praxis reicht es bestimmt.
Forum: Programmieren allgemein
by Dani,
16. Jan 2005
function Binomial(n, k: Integer): Extended;
begin
If (k < 0) or (n < 0) then raise {Fantasie-Excpetion};
If (k = 0) or (k=n) then Result := 1
else Result := n/k * Binomial(n-1, k-1);
end;
bzw.
function Binomial(n, k: Cardinal): Extended;