Hola,mirar consiste en que tengo que saber lanzar una excepcion,y no se como lanzarla,por ejemplo Constraint_Error,pero tengo lo siguiente:
WITH Ada.Text_IO;USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
procedure excep is
SUBTYPE Temperatura IS Integer RANGE 0..100;
Num: Integer;
tam:Integer:=2 ;
begin
-- Leer la temperatura del sensor y calcular su valor
Put ("introduzca un numero");
Ada.Integer_Text_IO.Get(num);
Ada.Text_IO.Put("el numero leido es : ");
Ada.Integer_Text_IO.Put(Item=>Num,width=>tam);
exception
-- manejador para Constraint_Error
when CONSTRAINT_ERROR =>Put("hola a todos");
end excep;
pero no se como sacar constraint Error,porque tengo que meter un dato de tipo temperatura...verdad?
Perdonen mi ignorancia,pero es que estoy empezando...
Espero que me ayuden a lanzar la excepcion,y a partir de ahi ya sabré yo sacarlas..
Gracias.
