Curso de Ada - Paquete 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∞