n über k - berechnen!?

[Dani]

Delphi-Quellcode:

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.

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;