Entrada y salida de valores reales

Explicación

Sintaxis

generic
   type Num is digits <>;
package Float_IO is...
generic
   type Num is delta <>;
package Fixed_IO is...
generic
   type Num is delta <> digits <>;
package Decimal_IO is...

Ejemplo

with Ada.Float_Text_IO; use Ada.Float_Text_IO;
with Text_IO;           use Text_IO;

procedure prueba is
   --  Coma flotante
   type Real is digits 8;
   type Real_Corto is digits 5 range -1.0 .. 1.0;
   --  Coma fija
   type Real_Fijo is delta 0.125 range -100000.0 .. 100000.0;    --  ordinaria
   type Tipo_Dec is delta 0.01 digits 6 range -1000.00..1000.00; --  decimal
   --  Instanciaciones
   package Real_IO      is new Float_IO (Real);
   package Real_Fijo_IO is new Fixed_IO (Real_Fijo);
   package Tipo_Dec_IO  is new Decimal_IO (Tipo_Dec);   
   use Real_IO, Real_Fijo_IO, Tipo_Dec_IO;
...

Operaciones