// ---------Арифметическое (математическое) округление--------------
function Round1(x: Extended): Int64; // :Extended
begin
if (x > 0) and (Frac(x) >= 0.5) then
Result := Trunc(x) + 1
else if (x < 0) and (Frac(x) <= -0.5) then
Result := Trunc(x) - 1
else
Result := Trunc(x);
end;
Комментарии