- 博客(1)
- 收藏
- 关注
转载 保留小数点n位的函数
function myRound(x:extended;n :integer) : extended; //x浮点数,n整数保留的位数,返回还是浮点begin x := x * exp(n*ln(10)); if (int(x) * 10 + 5) > int(x * 10) then begin result := floor(x); end else begin res
2007-12-18 14:32:00 700
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人