| 订阅 | 在线投稿
分享
 
 
 

一个四舍五入函数

来源:互联网网民  宽屏版  评论
2008-06-01 01:15:07

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

 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
下面是保岛国整数的四舍五入函数,假如要保岛国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;
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有