求數值計算函數0 X 4.5X04.5 X 9.5X59.5 X 14.5X1014.5 X 19.5X1519.5 X 24.5X20...X
求數值計算函數
0> X <4.5 X=0
4.5> =X <9.5 X=5
9.5> =X <14.5 X=10
14.5> =X <19.5 X=15
19.5> =X <24.5 X=20
.
.
.
X> 1000 超出范圍
[解决办法]
function TForm1.JS(X: Double): Integer;
var
A: Integer;
begin
if X > 1000 then Exit;
A := Trunc(X + 0.5);
Result := A - (A mod 5);
end;
[解决办法]
错了，只取整了，忘记div 5的后续处理了。