Programación General > ADA

 soy nuevo y principiante en Ada

(1/1)

pacorubio77:
Hola,mirar consiste en que tengo que saber lanzar una excepcion,y no se como lanzarla,por ejemplo Constraint_Error,pero tengo lo siguiente:


--- Código: Text ---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.

Navegación

[0] Índice de Mensajes