next up previous contents
Siguiente: Resumen Subir: Entrada/Salida Anterior: Lectura de números reales   Índice General

Tipos enumerados

Para facilitar la lectura y escritura de tipos enumerados Ada proporciona el paquete genérico Text_IO.Enumeration_IO. Este paquete se utiliza exactamente igual que los paquetes Text_IO.Integer_IO y Text_IO.Float_IO. Por ejemplo:

  1: with Text_IO;
  2: procedure Ejemplo is
  3:    type T_Colores is (Rojo, Amarillo, Verde, Azul);
  4:    package Color_IO is new Text_IO.Enumeration_IO (T_Colores); 
  5:
  6:    Color : T_Colores;
  7: begin
  8:    Color := Rojo;
  9:    ...
 10:    Color_IO.Get (Color);
 11:     ...
 12:    Color_IO.Put (Color);
 13:  end Ejemplo;

En la línea 3 creamos el tipo enumerado T_Color, y en la línea 4 el ejemplar del paquete Text_IO.Enumeration_IO indicándole a Ada que se va a llamar Color_IO. Cada vez que queramos leer desde teclado un enumerado de este tipo utilizamos los procedimientos Get (línea 10) y Put (línea 12).



Javier Miranda 2002-10-03