Question

delphi 除法问题

我用delphi做一个计算器，但是做除法的时候，1/3=0.3333333333，再乘一个3无法变成1了，显示0.999999999要怎么才能1/3*3得到1而不是省略精度后的？？？

Answer 1

运算的中间结果用一个变量存储，显示时根据需要四舍五入。var
rVal:Real;
begin
rVal := 1/3;
edit1.text := formatfloat('0.00000000000',rVal); edit2.text := formatfloat('0.00000000000',StrToFloat(edit1.text)*3); //这是你的方法 rVal := rVal*3;
edit3.text := formatfloat('0.00000000000',rVal); //这样就可以了

Answer 2

1 mod 3 * 3