Главная страница | назад





Article #16814: Explaination of rounding

 Question and Answer Database

FAQ1814D.txt   Explaination of rounding
Category   :Object Pascal
Platform    :All
Product    :All 32 bit  

Question:
Since Delphi's Round() function uses "bankers rounding" where the
value is rounded to the nearest even number, how can I round a
floating point number using the more traditional means, where
fractional values less than .5 round down, and fractional values
of .5 and greater round up?


Answer:
The following function demonstrates rounding down numbers with
fractional values of less than .5, and rounding up numbers with
fractional values of .5 and greater.

Example:

function RoundUp(X: Extended): Extended;
begin
  Result := Trunc(X) + Trunc (Frac(X) * 2);
end;



7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99