n über k - berechnen!?

[Wolfgang Mix]

Habe den Code noch leicht abgeändert.
Die Funktion fakultät bzw nueberk funktioniert bis
n(max) = 1754! = 1,97926189010501E4930.
Das sollte für Experimente reichen.

Delphi-Quellcode:

function fakultaet(N: integer): Extended;
var  i: Integer;
begin 
  Result := 1; 
  for i := 1 to N do
    Result := Result * i
end; 

function nueberk(n, k: integer): Extended;
begin 
  Result := fakultaet(n) / (fakultaet(n - k) * fakultaet(k)) 
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  Edit1.Text:=FloatToStr(nueberk(1754,600));
  Edit2.Text:=FloatToStr(fakultaet(1754));
  //n!(max) = 1754!=1,97926189010501E4930
end;

Gruß

Wolfgang