德尔菲舍入函数问题

制作了一个功能来实现您的要求。

function myround(rdata: real): integer;

varireturn:integer;

beginireturn:=trunc(rdata);

如果 rdata>=ireturn+，则四舍五入。

ireturn:=ireturn+1

否则，如果 rdata>=ireturn+ 则实现前后各 5，非零后 5 等于 1。

ireturn:=ireturn+1

否则，如果 rdata>=ireturn+ 则意识到 5 是零视奇偶校验。

如果 ireturn mod 2<>0，则奇数前的 5 是一进一，偶数前的 5 是四舍五入。

ireturn:=ireturn+1;

myround:=ireturn;

end;

函数轮

采用德尔菲函数中的舍入函数"银行家"四舍五入，非算术四舍五入。

所谓的庄家四舍五入就是你想要四舍五入的。

直接使用回合是您需要的。

在 Delphi 中，舍入函数使用 round，但需要注意的是，Delphi 的 round 函数使用所谓的"庄家四舍五入法"算法，即中值的算法，例如5）在实现舍入功能时，处理器根据小数点前数字的奇偶性质确定舍入，例如舍入结果为6，舍入结果为6，因为6是偶数。

下面是一个常用的四舍五入算术函数（需要使用数学）。

function roundex(value: extended; roundmode: tfpuroundingmode = rmup): int64;

varrm: tfpuroundingmode;

beginrm := getroundmode;

trysetroundmode(roundmode);

result := round(value);

finally

setroundmode(rm);

end;end;

运行结果截图：