Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Thorben_K**

Altanative auch noch als rekurive Function

Delphi-Quellcode:

			
function nfacultaet(a : LongInt):LongInt;

begin

  if a = 1 then

    result := 1

  else

    result := a * nfacultaet(a-1);

end;

Thorben_K Registriert seit: 22. Okt 2006 Ort: Darmstadt 105 Beiträge Delphi 2006 Professional	#13 Re: Taschenrechner: Quadrieren (a^b) 13. Feb 2007, 16:08 Altanative auch noch als rekurive Function markieren Delphi-Quellcode: function nfacultaet(a : LongInt):LongInt; begin if a = 1 then result := 1 else result := a * nfacultaet(a-1); end; Thorben
	Zitat