Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
z, i,fakult: integer;
begin
z := 1;
fakult := 4;
for i := 0 to (fakult - 1) do
begin
z := z + (z * i);
end;
form1.Caption := z;
end;
so einfach is dat... (obwohls noch einfacher geht... just quick'n'dirty)
ach ja... ohne Garantie...
