next up previous contents
Siguiente: Lectura de números enteros Subir: Números enteros Anterior: Números enteros   Índice General

Escritura de números enteros

Como hemos visto, para escribir números enteros debemos primero crear un ejemplar de Text_IO.Integer_IO. A continuación llamar al procedimiento Put utilizando como prefijo el nombre del ejemplar donde está. Por ejemplo:

      with Text_IO;
      procedure Escribir_Entero is 
         package Int_IO is new Text_IO.Integer_IO (Integer);
      begin 
         Int_IO.Put (2 + 2); 
      end Escribir_Entero;

Debemos fijarnos bien en que para escribir un número en pantalla debemos llamar al Put del ejemplar que acabamos de crear (Int_IO). Si intentamos llamar al Put de Text_IO.Integer_IO el compilador nos dirá que hemos cometido un error porque es un paquete genérico, no un ejemplar. (Lógicamente, si intentamos escribir un número utilizando directamente el primer nivel de Text_IO, el compilador nos dirá que hemos cometido un error porque no es un carácter). Sólamente podemos escribir enteros utilizando los ejemplares que nosotros creemos en nuestro programa.



Javier Miranda 2002-10-03