|
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 |
-- 23/02/2012 -- Escriba un programa que determine si un número entero leído desde teclado es positivo, negativo, o cero. -- Se incluyen las librerías de E/S para el tratamiento de texto y enteros. with Ada.Text_IO; with Ada.Integer_Text_IO; -- Comienza el programa principal: procedure ada7x01 is -- Se cargan las librerías: use Ada.Text_IO; use Ada.Integer_Text_IO; -- Se define una variable de tipo entero: numero:integer; -- Comienza el código del programa principal: begin put("Introduzca un numero: "); get(numero); skip_line; if numero < 0 then put("El numero es negativo"); elsif numero > 0 then put("El numero es positivo"); else put("El numero es cero"); end if; end ada7x01; -- Fin del programa principal. |