sábado, 19 de enero de 2008

Calcular el Factorial en lenguaje ADA

Calculo del Factorial Iterativo:

procedure Calcular_Factorial (Num : in Natural; Fact : out Natural) is
-- Aquí las variables locales
begin
-- Calcular factorial
Fact := 1;
for I in 1 .. Num loop
Fact := Fact * I;
end loop;
end Calcular_Factorial;