如何将小数点后的数字四舍五入(如9.8=10;8.4=8)??在线等待!!!!! 如何将小数点后的数字四舍五入(如9.8=10;8.4=8)?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 round四舍五入trunc取整 showmessage(IntToStr(round(9.8))); showmessage(IntToStr(round(8.4))); round() 函数来晚了 :( var i:integer;begin i:=int(9.8+0.5);end; Round(任意实数+0.5)Round是四舍五入取值。所以你只要把实数加0.5就可以了。比如 Round(2.333+0.5 )=3 Round(2.8756+0.5 )=3 dancedog(猪熔鸡)说得对,跟他沾点光,呵呵,领点分吧Round(任意实数+0.5)Round是四舍五入取值。所以你只要把实数加0.5就可以了。比如 Round(2.333+0.5 )=3 Round(2.8756+0.5 )=3 楼上几位算法都没错,只是没说明Round是四舍六入五配偶,而不是四舍五入。 haha ~~实在不行的话试试:copy()post()取出小数点后面的数字和5进行比较呵呵~~ 求救:fastreport 以 edit中数据为条件进行查询,最后打印 如何将image画布上的内容当做当前图标? 有没办法得到系统打开的新的窗口 如何复制文件 一个小小的小问题! fastReport里的矩形对象如何获取数据? 想问一下在实现数据插入时大家是用SQL语句还是ADO自带的append方法实现? delphi的一个componenet,LCDNumber在哪里? 到底OleVariant类型怎么用法? 如何屏蔽鼠标消息? 怎样限制mdi子窗口的大小 帮帮我.这个问题有点怪!!
trunc取整
showmessage(IntToStr(round(8.4)));
来晚了 :(
i:integer;
begin
i:=int(9.8+0.5);
end;
比如 Round(2.333+0.5 )=3
Round(2.8756+0.5 )=3
比如 Round(2.333+0.5 )=3
Round(2.8756+0.5 )=3
实在不行的话试试:
copy()
post()
取出小数点后面的数字和5进行比较
呵呵~~