Re: Numeric Conversion

[eyal@wisdom.BITNET (Eyal mozes)]

> Now we have encountered a problem, trivial by  nature,  which  has  us
> baffled.   The problem is simply that of obtaining the integer part of
> a positive fixed-point value.  We can find no simple way of  achieving
> this  in Ada: use of numeric conversion leads to uncertainty regarding
> the direction of rounding (ARM 4.6 p7).

Well, one way is to substract 0.5 from the number before converting
it; this should always give you the correct result.

Another way is to use the following function (which I write when I
had to do the same thing a few months ago:

function integer_part(value: real) return integer is
   temp: integer := integer(value);
begin
   if real(temp) > value then
      return temp-1;
   else
      return temp;
   end if;
end;

        Eyal Mozes

        BITNET:                         eyal@wisdom
        CSNET and ARPA:                 eyal%wisdom.bitnet@wiscvm.ARPA
        UUCP:                           ..!ucbvax!eyal%wisdom.bitnet