Re: Naturals and discrete types

["DuckE" <nospam_steved94@home.com>]

One other point (especially if you're coming from C).  When you convert a
floating point value to an integer value using Integer( value ), Ada rounds,
it does not trucate.

Example:

WITH Ada.Integer_Text_Io;
WITH Ada.Text_Io;

PROCEDURE Conversions IS
BEGIN
  Ada.Text_Io.Put( "Integer(3.4) = " );
  Ada.Integer_Text_Io.Put( Integer( 3.4 ), 2 );
  Ada.Text_Io.New_Line;
  Ada.Text_Io.Put( "Integer(3.6) = " );
  Ada.Integer_Text_Io.Put( Integer( 3.6 ), 2 );
  Ada.Text_Io.New_Line;
END Conversions;

Output:
  Integer(3.4) =  3
  Integer(3.6) =  4

If you need to trucate, you can use Integer( Float'Truncation( value ) )

SteveD

> Everything is so damn simple isnt it? ;->
>
> And I remember covering this subject early on in my textbook.
> I'm a typical greenhorn I guess, making everything more complicated than
> it has to be.
>
> Thanks for your patience.
>
> Clueless
> chris@dont.spam.me