非技术区
关于Round函数的问题！
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区自己写了一个四舍六入,逢五奇进偶舍的函数。
function f(f:Double;k:Integer):Double;
var
D:Double;
i,m:Integer;
begin
m:=1;
for i:=0 to k-1 do
begin
m:=m*10;
end;
D:=Round(f*m)/m;
Result:=D;
end;
f(0.12345,4)与Round(0.12345*10000)/10000)的结果确不同为什么出现这样的情况？错在那里？
function f(f:Double;k:Integer):Double;
var
D:Double;
i,m:Integer;
begin
m:=1;
for i:=0 to k-1 do
begin
m:=m*10;
end;
D:=Round(f*m)/m;
Result:=D;
end;
f(0.12345,4)与Round(0.12345*10000)/10000)的结果确不同为什么出现这样的情况？错在那里？
...全文
