整型量跟实型量运算的问题.

[delphi1234567]

r, i, j : integer;

i := 454;
j := 819;
r := 10 * i / j; <= i / j 需要小数点后取一位,不然 i div j 精度不足.
^^^

这里, / 运算符是实型运算符,而采用 r := 10 * i div j, 则精度不足,因为需要小数点后取1位,然后,结果 * 10 扩大10倍取整再把值给 r.


如何解决???

[fim]

r := Trunc(10*i/j)
r := Round(10*i/j)