Buscar

Função para cálculo de fatorial

Código

{Esta função usa chamada recursiva. Observe que há uma chamada à própria função no código.}

function Fatorial(Numero: integer): integer;
begin
  if Numero = 0 then
     result := 1
  else
     result := Numero * Fatorial(Numero - 1);
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 10/08/03
Por: Carlos Alberto Pedroso Araújo
Visualizada: 6174 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009