delphi计算的小问题

来源:百度知道 编辑:UC知道 时间:2024/06/06 16:02:54
计算的时候怎么让结果保留整数或者几位小数,
四舍五入或者进位或者舍位

就是比如~
100/3=33.33333333333……
怎么让这个33.3333……变成进位34 或者33.4 或者33.34
直接舍位33 或者 33.3 或者33.33
或者保留第几为直接四舍五入~~??
还有,为什么我算出的小于1的数 ,结果都是0???
var aaa:real;
begin
aaa:=strtoint(10) div strtoint(100);
end;
本来想得到0.1 的可是却出来的是0

用这个函数FormatFloat('0.00', f);

div是整数除,两边要用整数,结果也是整数,所以你的结果是0咯,小数部分被省略了。

/才是浮点数除,你的div改成/。

保留两位:
result:=round(value*100)/100;