terça-feira, 29 de setembro de 2009

Função para cálculo de fatorial

{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;

Nenhum comentário:

Postar um comentário