1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | with Ada.Numerics; with Agpl.Conversions; with Agpl.Text_Io; use Agpl.Text_Io; procedure T026_Rounding is begin Put_Line ("Starting..."); for I in 0 .. 10 loop Put_Line (Agpl.Conversions.To_String (Long_Long_Float'(Ada.Numerics.Pi), I)); end loop; for I in 0 .. 10 loop Put_Line (Agpl.Conversions.To_String (Long_Long_Float'(-Ada.Numerics.Pi), I)); end loop; Put_Line ("Done."); end T026_Rounding; |