Corrigiendo un poquito..
Código Delphi
[-]function Factorial(n : integer) : LongWord;
begin
result := 1;
if (n = 1)or(n = 0) then exit; result := n*Factorial(n-1);
end;
Hay que tener en cuenta tambien el tipo de dato que devuelve la funcion
Factorial por que si es un tipo pequeño, los resultados no serian los mismo ya que esta funcion factorial es una funcion
progresivamente enorme.
Por ejemplo el Factorial(31)=738197504. si saco el Factorial(32), ya no me soporta el tipo
LongWord, me saldria un valor distinto al deseado o un error.
Saludos......
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7