...calculate the factorial of a given number?

Author: Loïs Bégué
Homepage: http://www.begue.de

Category: Math

{
  The factorial of a positive integer is defined as:
  Die Fakultät einer positiven Nummer ist wie folgt definiert:

  n! = n*(n-1)*(n-2)*(n-3)*...*2*1
  1! = 1
  0! = 1

  Example/Beispiel: 5! = 5*4*3*2*1
}

// Iterative Solution, Iterative Lösung:

function FacIterative(n: Word): Longint;
var
  
f: LongInt;
  i: Integer;
begin
  
f := 1;
  for i := 2 to do f := f * i;
  Result := f;
end;


// Recursive Solution, Rekursive Lösung:

function FacRecursive(n: Word): LongInt;
begin
  if 
n > 1 then
    
Result := n * FacRecursive(n-1)
  else
    
Result := 1;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base