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...
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;
...