Programación en Ada/Unidades predefinidas/Ada.Text IO.Editing

Ada.Text_IO.Editing es un paquete predefinido para la entrada y salida de tipos de coma fija en formato monetario.

Ejemplo:

with Ada.Text_IO.Editing;

procedure Ejemplo_Euros is

   type T_Precio_En_Euros is delta 0.01 digits 6;

   package Euros_IO is new Ada.Text_IO.Editing.Decimal_Output
     (Num                => T_Precio_En_Euros,
      Default_Currency   => "EUR ",
      Default_Fill       => ' ',
      Default_Separator  => '.',
      Default_Radix_Mark => ',');

   Un_Precio : constant T_Precio_En_Euros := 5873.26;
begin

   Ada.Text_IO.Put_Line
      (Euros_IO.Image
         (Item => Un_Precio,
          Pic  => Ada.Text_IO.Editing.To_Picture
                    ("#_###_###_##9.99")));
end Ejemplo_Euros;

La salida es:

    EUR 5.873,26

Manual de referencia de Ada

• F.3.3 The Package Text_IO.Editing