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;
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario