RE: Floating Decimal Package/Library?

[tmoran@acm.org]

> Since Turkish Lira have been mentioned, when one tries to directly
> calculate currency equivalents based on the exchange rate
  Using Gnat, the program:
with Ada.Text_IO;
with Ada.Text_IO.Editing;
procedure Turk is
  type Turkish is delta 0.01 digits 18;
  type US is delta 0.01 digits 18;

  package Turkish_Output is new Ada.Text_IO.Editing.Decimal_Output(Turkish);
  package US_Output is new Ada.Text_IO.Editing.Decimal_Output(US);

  Money_Pic: constant Ada.Text_IO.Editing.Picture
    := Ada.Text_IO.Editing.To_Picture("-$$_$$$_$$$_$$$_$$$_$$9.99");

  Dollars : US := 3_300_000_000.00;
  Lira    : Turkish;

begin
  Lira := Turkish(Dollars * 1097213.08);
  Ada.Text_IO.Put_Line(US_Output.Image(Dollars, Money_Pic)
                       & Turkish_Output.Image(Lira, Money_Pic));
end Turk;
  produced:
         $3,300,000,000.00 $3,620,803,164,000,000.00
Perhaps the IMF's accounting department has a library to go higher, but
$3.3 billion should satisfy most of the rest of us.

> Again, I would prefer to use decimals for engineering and scientific
> calculations.
  I agree for that you would want floating point decimal.