Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Pascal

Idiom #81 Round floating point number to integer

Declare the integer y and initialize it with the rounded value of the floating point number x .
Ties (when the fractional part of x is exactly .5) must be rounded up (to positive infinity).

var
  y: integer;
  x: double;
begin
  y := round(x);
end.
Y : constant Integer := Integer (Float'Rounding (X));

New implementation...