Fakultät

[NAK32]

WIe kann ich in delphi fakultäten berechnen?
ich habe Delphi 5.0 ud ein einfaches x:=!x; hilft nciht

[Ultimator]

Das dürfte gehen

Eine Suche nach Fakultät hätte es aber auch getan

[arbu man]

sollte auch gehen

Delphi-Quellcode:

Function fak(s:string):string;
var f,f2:integer;
f1:extended;
begin
F:=0;
f1:=round(strtofloat(s));
f2:=1;
repeat begin
f:=f+1;
F2:=f2*f;
end; until f1=f;
result:=inttostr(f2);
end;