四舍五入的函数怎么写?如要对123.67四舍五入? 谢谢 四舍五入的函数怎么写?如要对123.67四舍五入? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 round(123.67)=124返回64位整数,离123.67最近的trunc(123.67)==123舍去小数部分 function test(f:real;n:integer):real;begin if n<0 then begin result:=f; exit; end; result:=trunc((f*power(10,n+1)+5)/10); result:=result/power(10,n)end; x:integer;x:=....;x:=round(x+0.5) 求delphi 7的函数和组件参考大全 怎样让菜单的快捷键可以设为数字?急 没有钱用了 散分 关于message消息 关于动态数组声明,难!!!!!! 在Delphi中怎么得到一个Excel文件的行数和列数?马上给分! 程序中须备份文件时,大家用什么方法? 这个错误提示是什么原因造成的? 请问那里有 Bound Check 工具的下载 怎么在label中以16进制的形式显示一个窗体的句柄阿? 关于DrawItem方法的问题 急着用,哪里有D6的第二个补丁下载?我的QQ:57959940。
trunc(123.67)==123舍去小数部分
begin
if n<0 then
begin
result:=f;
exit;
end;
result:=trunc((f*power(10,n+1)+5)/10);
result:=result/power(10,n)
end;
x:=....;
x:=round(x+0.5)