一个四舍五入函数

核心提示：下面是保岛国整数的四舍五入函数，假如要保岛国n位小数，一个四舍五入函数，只需简单修改，function myround(x : extended) : extended;beginif (int(x)*10+5) > int(x*10) thenbeginresult := floor(x);end elsebe

下面是保岛国整数的四舍五入函数，假如要保岛国n位小数，只需简单修改。
function myround(x : extended) : extended;
begin
if (int(x)*10+5) > int(x*10) then
begin
result := floor(x);
end else
begin
result := ceil(x);
end;
end;