Re: how to round integers

[martin.dowie@btopenworld.com (Martin Dowie)]

"Cephus�" <beau@hiwaay.net> wrote in message news:<veqcdrsf7o7q57@corp.supernews.com>...
> I am trying to remember the "golden rule" for integer division rounding.
> 
> I am trying to average something (both integers) and I can't remember how to
> round without using floating point.
> 
> Like say I am trying to divide 26/3  --- I would get 8 remainder 2
> 
> but that should round up to 9. How can I do this? I know it has something to
> do with the dividend....but I can't for the life of me remember. thanks!

This works :-)


with Ada.Text_IO; use Ada.Text_IO;

procedure Demo is

   procedure Calculate (Value, Devisor : Integer;
                        Result, Remainder : out Integer) is
   begin
      Remainder := Value rem Devisor;
      Result    := (Value - Remainder) / Devisor;
   end Calculate;

   Result, Remainder : Integer;
begin
   Calculate(26, 3, Result, Remainder);
   Put_Line (Integer'Image (Result) & " " & Integer'Image(Remainder));
end Demo;