• Jueves 28 de Marzo de 2024, 12:14

Autor Tema:  soy nuevo y principiante en Ada  (Leído 1641 veces)

pacorubio77

  • Miembro MUY activo
  • ***
  • Mensajes: 207
    • Ver Perfil
soy nuevo y principiante en Ada
« en: Viernes 6 de Febrero de 2009, 12:32 »
0
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
  1. WITH Ada.Text_IO;USE Ada.Text_IO;
  2. WITH Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
  3.  
  4. procedure excep is
  5.    SUBTYPE Temperatura IS Integer RANGE 0..100;
  6.    Num: Integer;
  7.    tam:Integer:=2 ;  
  8. begin
  9. -- Leer la temperatura del sensor y calcular su valor
  10.    Put ("introduzca un numero");  
  11.    Ada.Integer_Text_IO.Get(num);
  12.       Ada.Text_IO.Put("el numero leido es : ");
  13.       Ada.Integer_Text_IO.Put(Item=>Num,width=>tam);
  14. exception
  15. -- manejador para Constraint_Error
  16.    when CONSTRAINT_ERROR =>Put("hola a todos");
  17. end excep;
  18.  
  19.  

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.