Code zum berechnen von Bernoulli-Ketten

[Dani]

Hi,

wie viele Threads denn noch zu n über k?

Delphi-Quellcode:

function Binomial(n, k: Cardinal): Extended; 
 begin
  If (k = 0) or (k=n) then Result := 1
   else Result := n/k * Binomial(n-1, k-1);
 end;

Bernoulli-Kette liefert z.B. das hier. Hilft das nicht weiter?