|
浮動小数点数を整数に丸めるときの注意
|
Delphiには四捨五入用の関数として Round() がありますが、この関数は「Banker's Rounding」（銀行家の丸め）をするため、普通の四捨五入とは結果が異なることがあるため注意が必要です。
具体的には、引数がちょうど ???.5 となるとき、通常の四捨五入では答は 1 繰り上げた数になりますが、Round() では結果の一の位が偶数になるように切り上げ／切り捨てが行われます。（例： 0.5 は 0，1.5 は 2 になる）[Delphi-ML:4727][Delphi-ML:12693]から始まるスレッドも参考になります。
これに対して Trunc() はいつも小数部分を切り捨てて返しますので、普通の四捨五入をするには、
function Roundoff(X: Extended): Longint;
begin
if x >= 0 then Result := Trunc(x + 0.5)
else Result := Trunc(x - 0.5);
end;
のような関数を作って使用します。
Professional Edition 以上では、Math ライブラリに Floor()/Ceil() の関数もあります。
Int() 関数は Trunc() と同じ答を Extended 型で返します。 |
|
