| 導購 | 订阅 | 在线投稿
分享
 
 
 

一個四舍五入函數

來源:互聯網  2008-06-01 01:15:07  評論

下面是保島國整數的四舍五入函數,假如要保島國n位小數,只需簡單修改。

function myround(x : extended) : extended;

begin

if (int(x)*10+5) > int(x*10) then

begin

result := floor(x);

end else

begin

result := ceil(x);

end;

end;

下面是保島國整數的四舍五入函數,假如要保島國n位小數,只需簡單修改。 function myround(x : extended) : extended; begin if (int(x)*10+5) > int(x*10) then begin result := floor(x); end else begin result := ceil(x); end; end;
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有