函数原型 function Trunc(X: Extended): Longint; 将实数转为整数.(小数直接舍弃)
Trunc 将一个实数值去尾而传回整数值 function Trunc(X: Real):Longint;