Hi !
Wenn ich mich nicht irre meinst du mit "n über k" die Binomialkoeffizienten (irre ich mich ??)
Berechnet werden die mit
n! / ((n - k)! * k!)
Delphi-Quellcode:
function fakultaet(N: Int64): Int64;
var
i: Integer;
begin
Result := 1;
for i := 1 to N do
Result := Result * i
end;
function nueberk(n, k: Integer): Int64;
begin
Result := fakultaet(n) / (fakultaet(n - k) * fakultaet(k))
end;