sábado, 19 de enero de 2008

Signo de un Numero en lenguaje ADA

Implemente un programa llamado Signo que muestre al usuario un mensaje solicitándole un número entero y, en función de la respuesta tecleada por el usuario, muestre el mensaje: "NEGATIVO", "CERO" o "POSITIVO", según corresponda.

with Text_IO, Ada.Integer_Text_IO; use Text_IO, Ada.Integer_Text_IO;
-- Procedimiento que introduciendole un numero entero
-- nos dice si éste es positivo, negativo o es cero
procedure signo is
a : Integer;
begin
Put_Line ("Introduzca Un Numero Entero:");
New_Line;
Get (a);
-- si a es menor que 0 el numero es negativo
if a < 0 then
Put_Line ("NEGATIVO");
else
-- si a es mayor que 0 el numero es negativo
if a > 0 then
Put_Line ("POSITIVO");
else
-- sino el valor es cero
Put_Line ("CERO");
end if;
end if;
end signo;