Re: how to round integers (Figured it out!)

[Jeffrey Carter <spam@spam.com>]

Robert I. Eachus wrote:
>   function Rounding(Dividend, Divisor: Int) return Int is
>   begin
>     return (Dividend + Dividend + Divisor) / (Divisor + Divisor);
>   exception
>     when Constraint_Error =>
>       declare
>         Temp: Int;
>       begin
>         Temp := Dividend rem Divisor;
>         if Temp > Int'Last/2 or else Temp * 2 >= Divisor
>         then return Dividend/Divisor + 1;
>         -- Divisor is always less than or equal to Int'Last
>         else return Dividend/Divisor;
>         end if;
>       end;
>   end Rounding;
> 
>   function Round is new Rounding(Integer);

What happens in the case of negative arguments?

-- 
Jeff Carter
"C++ is like jamming a helicopter inside a Miata
and expecting some sort of improvement."
Drew Olbrich