|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
-- 24/02/2012 -- Escriba un programa recursivo que calcule el factorial de un número. with ada.text_io; with ada.integer_text_io; procedure ada7x05 is use ada.text_io; use ada.integer_text_io; numero:integer; -- FUNCIÓN QUE HALLA EL FACTORIAL DE UN NUMERO: function factorial( num: in integer) return integer is -- Precondición: Se ha de recibir un parametro de entrada de tipo entero. -- Poscondición: Se devuelve 1 si el entero es 0 ó 1, o se llama recursivamente a la función enviando el entero-1 begin if num=0 or num=1 then return 1; else return ( num * factorial(num-1) ); end if; end factorial; begin put("Introduzca un número entero: "); get(numero); new_line; put("El factorial de "); put(numero,width=>1); put(" es "); put( factorial(numero), width=>1); new_line; end ada7x05; |
