首先引入math單元
uses math;
1.Round（四捨六入五留雙）
功能說明：對一個實數進行四捨五入。(按照銀行家算法)
例：
var
i, j: Integer;
begin
i := Round(1.5); // i等於2
j := Round(2.5); // j等於2
end;
在Delphi中使用Round函數得到的答案有時與我們所預期的會不太一樣：采用的是四捨六入五留雙。即當捨或入位大於或小於五時按四捨五入來處理
，而當捨或入位等於五時，就要看前面一位是什麼，根據奇進偶不進，它總是返回一個偶數值。
例：
i:= Round(11.5)//i等於12
i:= Round(10.5)//i等於10
這種Round其實是按照銀行家算法，統計學上一般都用這種算法，比傳統的"四捨五入"要科學。
如果要使用傳統的"四捨五入"方法，可以使用下面函數：
function RoundClassic(R: Real)
2.trunc（取得X的整數部分）
如：trunc(-123.55)=-123, floor(123.55)=123
3.ceil（取得大於等於X的最小的整數）
如：ceil(-123.55)=-123， ceil(123.15)=124
4.floor（取得小於等於X的最大的整數）
如：floor(-123.55)=-124，floor(123.55)=123
作者“踏雪無痕”
