R rockxu Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-12 #1 就是实现类型小数位四舍五入的功能，但是要求小数位只要不为零就舍去在个位进一，如1.0005处进后就变成2
U ugvanxk Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-12 #2 function (r:real):integer; begin if r-trunc(r)>1e-6 then r:=r+1; result:=trunc(r); end;
T twos Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-12 #3 i:=trunc(anum); if i>trunc(anum) then Inc(i)
W w12345678 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-12 #4 if j>int(j) then j:=int(j)+1
