Pathological floating point problems: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added gmp version) |
m (→Task 2: Chaotic Bank Society: Fixed typo (Socienty → Society)) |
||
Line 247: | Line 247: | ||
Balance: Num := Ada.Numerics.E - 1.0; |
Balance: Num := Ada.Numerics.E - 1.0; |
||
begin |
begin |
||
Ada.Text_IO.Put_Line("Chaotic Bank |
Ada.Text_IO.Put_Line("Chaotic Bank Society with" & |
||
Integer'Image(After) & " digits"); |
Integer'Image(After) & " digits"); |
||
Ada.Text_IO.Put_Line("year balance"); |
Ada.Text_IO.Put_Line("year balance"); |