16,749
社区成员
发帖
与我相关
我的任务
分享求助 Math.floor取整值即小了1
var
a,b:double;
s:string;
begin
a := 4810;
b := 140/100;
s := inttostr(Math.floor(a* b));
end;
结果s=6733
求教下这种要怎么处理??
a,b:double;
s:string;
begin
a := 4810;
b := 140/100;
s := inttostr(Math.floor(a* b));
end;
结果s=6733
求教下这种要怎么处理??
...全文
请发表友善的回复…
发表回复
日立奔腾浪潮微软松下联想 2019-07-31
- 打赏
- 举报
输出6733应该是用的32位编译器
秋天之落叶 2019-07-30
- 打赏
- 举报
XE10.3 S:=6733
改成：
procedure Button8Click(Sender: TObject);
var
a, b: double;
s: string;
begin
a := 4810 * 10;
b := 140 / 100 * 10;
s := inttostr(System.Math.floor(a * b / 100));
end;
结果等于6734。
改成：
procedure Button8Click(Sender: TObject);
var
a, b: double;
s: string;
begin
a := 4810 * 10;
b := 140 / 100 * 10;
s := inttostr(System.Math.floor(a * b / 100));
end;
结果等于6734。
BlueStorm 2019-07-30
- 打赏
- 举报
a, b: double
改为
a, b: Extended
就可以了
但无论如果，Delphi出现这种问题是不合理的。
日立奔腾浪潮微软松下联想 2019-07-30
- 打赏
- 举报
那可以直接用currency类型，编译器自动缩放10000倍
woniugongzuoshi 2019-07-30
- 打赏
- 举报
用floor有时候确实不免尴尬，我一般都放大一百倍算完了再缩小。
若浮生 2019-07-17
- 打赏
- 举报
delphi7呢,这种有办法处理吗
日立奔腾浪潮微软松下联想 2019-07-17
- 打赏
- 举报
10.2.1实测输出6734
日立奔腾浪潮微软松下联想 2019-07-17
- 打赏
- 举报
floor 地板，向负无穷舍入
ceil 天花板，向正无穷舍入
ceil 天花板，向正无穷舍入
LinY_X 2019-07-17
- 打赏
- 举报
可能不是floor的问题 会不会是double的精度的问题
b可能是1.399999999999999999999
