Curso de Ada - Paquete Ada.Float_Text_IO

Ada.Float_Text_IO es un paquete predefinido de la biblioteca estándar para la entrada/salida de datos de tipo Float.

Lo primero que hay que hacer es importar este paquete:

with Ada.Float_Text_IO;
 
 use Ada.Float_Text_IO;
 

Están predefinidos dentro de esta biblioteca los siguientes procedimientos:

Put (Número, X, Y, Z);
 
 Put (Fichero, Número, X, Y, Z);
 

De donde:

• Número es el número en coma flotante a mostrar.
• X son los espacios en blanco que queremos mostrar entre varios números.
• Y cuantos dígitos decimales queremos que se muestren.
• Z cuantos dígitos dejamos para exponente en notación científica.
• Fichero es un fichero abierto con Ada.Text_IO.Open para salida.

Podemos dejar parámetros en blanco y se tomarían por defecto los valores que tenga el procedimiento en la biblioteca:

Put (Número);
 
 Put (Número,X);
 
 Put (Número, ,Y,Z); -- ¡¡NO!! Error
 
 -- La siguiente es la manera correcta de dejar el número de dígitos
 -- decimales al valor por defecto.
 Put (Item => Número,
      Aft  => Y,
      Exp  => Z);
 

Lo más usual es que usemos Put dentro de otro procedimiento:

with Ada.Float_Text_IO;
 use Ada.Float_Text_IO;
 
 procedure EscribirReal(X: float) is
 
 begin
     Put (X,8,2,2);
 end EscribirReal;
 

Si llamamos a EscribirReal(-100.0) obtendremos por pantalla lo siguiente:

     -1.00E+2
 

(que al ser notación científica es ).

Obsérvese que el signo usa uno de los espacios en blanco con lo cual no dejamos 8 espacios entre números sino 7, usamos un blanco para el signo.

Este paquete es equivalente a una instanciación del paquete genérico Float_IO, anidado dentro de Ada.Text_IO.

Especificación

Según el manual de referencia de Ada, la especificación de este paquete puede ser la siguiente (en rigor no se requiere que sea realmente una instanciación):

with Ada.Text_IO;
 package Ada.Float_Text_IO is new Ada.Text_IO.Float_IO(Float);
 

Manual de referencia de Ada

• A.10.9 Input-Output for Real Types