|
Registriert seit: 23. Jan 2008
3.686 Beiträge
Delphi 2007 Enterprise
|
AW: Revision; result überschreiben
8. Nov 2013, 10:33
Delphi-Quellcode:
function TForm1.Fakultaet(
n : integer;
max : integer;
iErgebnis: integer): integer;
begin
if n <= max then
result := Fakulitaet(n+1, max, iErgebnis*n);
end;
Die Fakulität heisst übrigens nur Fakultät, und die Revision im Titel soll vermutlich eine Rekursion sein 
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
Geändert von Medium ( 8. Nov 2013 um 10:39 Uhr)
|