一个四舍五入函数 (2001年4月19日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 19 行

一个四舍五入函数 (2001年4月19日) 

网友更新  分类:算法   作者:booktian  推荐:booktian   阅读次数:297  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
下面是保岛国整数的四舍五入函数，如果要保岛国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;