|
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 40 41 42 43 44 45 46 47 |
-- 23/02/2012 -- Elabore un programa que lea números enteros y escriba el número resultante de invertir sus cifras. with ada.text_io; with ada.integer_text_io; procedure ada7x03 is -- Se cargan las librerias, se inicializan las variables y se declaran las funciones: use ada.text_io; use ada.integer_text_io; numero:integer; -- FUNCION INVIERTE NUMERO ENTERO: function invierteNumero( numero: in integer ) return integer is -- Precondición: Se ha de recibir un parametro de entrada de tipo entero. -- Poscondición: Se devuelve el numero entero recibido pero invertido. alReves,num:integer; begin num := numero; alReves := 0; while num /= 0 loop alReves := (alReves *10) + num mod 10; num := num / 10; end loop; return alReves; end invierteNumero; begin put("Introduzca un numero entero: "); get(numero); put("El numero invertido es: "); put( invierteNumero(numero) ); end ada7x03; |
