next up previous contents
Siguiente: Tipos enumerados Subir: Números reales Anterior: Escritura de números reales   Índice General

Lectura de números reales

El siguiente ejemplo realiza la lectura de un número en coma flotante y escribe en pantalla el número leido.

       with Text_IO;
       procedure Leer_Real is
          package Float_IO is new Text_IO.Float_IO (Float);
          Numero : Float;
       begin
          Text_IO.Put ("Dame un numero real: ");
          Float_IO.Get (Numero);
          Text_IO.Put ("Escribiste ");
          Float_IO.Put (Numero);
       end Leer_Real;



Javier Miranda 2002-10-03