一個(gè)四舍五入函數(shù)
2019-11-18 18:57:12
供稿：網(wǎng)友
下面是保島國(guó)整數(shù)的四舍五入函數(shù)，如果要保島國(guó)n位小數(shù)，只需簡(jiǎ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;
