再谈Delphi中关于“四舍五入的BUG”

最新推荐文章于 2023-02-08 17:57:01 发布
最新推荐文章于 2023-02-08 17:57:01 发布
阅读量1.6k 收藏
点赞数
分类专栏： Delphi 文章标签： delphi borland
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lchzh/article/details/240413
版权
在文章 http://dev.csdn.net/article/53/53449.shtm中，作者说Delphi的四舍五入有Bug！？
相反，我认为Borland考虑得很全面，这不是Bug！

Delphi帮助里面写得清清楚楚！

  SimpleRoundTo ：四舍五入（不对称算数做法）
  RoundTo：四舍六入，五入单（银行家做法）
  RoundTo(1.235, -2) = 1.24
  RoundTo(1.245, -2) = 1.24

RoundTo是银行家的 做法，
SimpleRoundTo才是我们平时说的四舍五入！

Coder1035
关注
专栏目录
delphi7 FormatFloat 四舍五入
yz304zhang的博客
05-25 3245
相信delphi7开发人员也遇到过这个问题FormatFloat 四舍五入的时候该进一的时候没进一,测试代码如下: procedure TForm1.FormShow(Sender: TObject); var   a:double; begin   a:=16.685;   showmessage(formatfloat('0.00',a));   application.Term
DELPHI完美的四舍五入.rar
06-13
DELPHI最完美的四舍五入无BUG函数，是我花费了2天研究出来的成果，完美保留1-4个小数点，包内提供有EXCEL表取值可以把计算结果复制出来做结果对比，我已经随机取了十几万记录做对比，居然无一值和EXCEL的函数保留有...
关于delphi中真正四舍五入的问题
02-12
在delphi中真正实现四舍五入，比较format，round等方法，真正实现四舍五入
Delphi数学运算当中四舍五入的问题
weixin_34404393的博客
01-08 352
在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 "银行家舍入法"，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为 6，而 6.5 Round 结果也为6, 因为 6 是偶数。  对于XXX.5的情况，整数部分是奇...
Delphi中取整函数Round的Bug解决
Slash Youth - Jack Chai
04-23 3716
Delphi中 Round函数有个Bug一旦参数是形如 XXX.5这样的数时如果 XXX 是奇数 那么就会 Round up如果 XXX 是偶数 那么就会 Round down例如 Round(17.5)=18但是 Round(12.5)=12下面的函数即可纠正这个 Bug 但是是临时性的执行 DoRound(12.5) 结果为 13 正确  function DoRound(Value:
delphi 四舍五入Round函数【百帖整理】
weixin_34025051的博客
07-01 133
源：delphi 四舍五入Round函数【百帖整理】
Delphi四舍五入
12-14
#### 三、Delphi中的四舍五入实现 在Delphi中，可以通过自定义函数来实现四舍五入的功能。以下是对给定代码片段的详细解析： ```pascal function FloatDigit(pValue: Double; pDigit: Integer): Double; ``` - **...
Delphi 自已写的四舍五入函数
05-14
在编程领域，尤其是在 Delphi 这样的面向对象的 Pascal 编程环境中，有时标准库提供的四舍五入函数可能无法满足特定需求，特别是在处理财务数据时。标准的四舍五入算法可能会导致非预期的结果，因为它们通常遵循银行...
Delphi 四舍五入
nnnnyyyy的专栏
06-13 5558
Delphi 的四舍五入跟我们平常所认识的四舍五入不一样。它用的是银行家算法－也就是四舍六入，而五入不入取决后面跟的一位数是奇数还是偶数，如果是奇数则进，如果是偶数则舍。简单说是奇进偶不进。  举例: 123.3359保留两位小数，如果是平常四舍五入123.3359 = 123.34，如果是银行家算法123.34；结果是一样；          123.3358保留两位小数，如果是平常四舍五入
Delphi 四舍五入、只舍不入、只入不舍
gjtao1130的专栏
10-27 3609
//TMP_FieldName：字段名称；XiaoShuWeiShu：小数位数；Flag_SheRu：舍入标识（0：四舍五入；1只舍不入；2只入不舍） function TFrm_Shuju_PeiJian.Return_XiaoShuSheRu(Peij_no, TMP_FieldName: string;   XiaoShuWeiShu, Flag_SheRu: Integer): Dou
delphi RoundTo
aldsot0997的博客
05-25 492
RoundTo函数是在math单元 要保留3位小数，当第四位是5时，会有以下情况发生： 1. Volume := RoundTo(1.2325,-3); //--小数点第三位是奇数时就往前进一位，偶数就不会,这个得结果： Volume := 1.232; 2. Volume := RoundTo(1.2335,-3); //--小数点第三位是奇数时就往前...
delphi format的问题
anqinghu的专栏
03-25 704
<br />今天遇到了一个不大不小的问题，本着不断积累的思想，在这里将问题记下来，以备日后温故而知新，也想拿出来和大家探讨探讨。<br />delphi的format函数有四舍五入的功能大家都知道，但是它又不是严格的按照四舍五入。下面举一个例子。<br />比如1.9875这个数，如果保留三位的话程序会显示是1.987，现在是五舍六入；但是如果是1.9865的话程序就会显示1.987，又变成了四舍五入。后来研究了一下发现，是1.9875的小数的第三位那有问题，如果千分位上是单数，则是五舍六入，如果千分位上是
改进delphi中的RoundTo函数
weixin_30663471的博客
11-30 276
delphi 7中自带数值四舍五入函数RoundTo(AVlaue, ADigit)存在一些不确定性情况，并非像帮助或者网络说的四舍六入五凑偶的规则，不信可以随便测试几个数据就会发现与你预期的不一样，比如33.015与33.035，修约2位小数，运行结果却是33.01与33.03。这主要是与浮点数的精度有关（有兴趣可以了解一下浮点数的存储结构，我之前有转载了一篇相关文章），我改进这个问题，...
delphi 帮助里的 RoundTo 的帮助
Qi_jianzhou的资料室
04-10 1659
Rounds a floating-point value to a specified digit or power of ten using 揃anker抯 rounding?UnitMathCategoryArithmetic routinestype TRoundToRange = -37..37;function RoundTo(const AValue: Doubl
delphi的函数round、trunc、ceil、floor 和RoundTo
gjtao1130的专栏
10-27 9628
1.Round（四舍六入五留双） 功能说明：对一个实数进行四舍五入。(按照银行家算法) 例： var     i, j: Integer; begin     i := Round(1.5); // i等于2     j := Round(2.5); // j等于2 end; 在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍
关于对称四舍五入和非对称四舍五入的分析
来知晓的博客
02-08 1340
项目中有时需要用到浮点转定点，以便于在低功耗设备上运行，不同平台上对定点化后的浮点运算四舍五入有不同实现，如果处理不慎，容易在精度要求高的场合误差累积导致算法效果恶化。
delphi 四舍五入
最新发布
04-06
在 Delphi 中，可以使用 Round 函数来进行四舍五入操作。Round 函数的语法如下： function Round(X: Extended): Int64; 其中，X 表示需要进行四舍五入的数值，可以是单精度浮点数、双精度浮点数或者扩展精度浮点数。函数返回的是一个 Int64 类型的整数，表示 X 四舍五入后的结果。 例如，对于 3.14159 这个数值，如果需要将它保留两位小数并进行四舍五入，可以使用如下代码： var X: Extended; Result: Int64; begin X := 3.14159; Result := Round(X * 100); ShowMessage(IntToStr(Result)); end; 在这个例子中，先将 X 乘以 100，将小数点后的两位移到整数部分，然后使用 Round 函数进行四舍五入操作。最后将结果转换为字符串并显示在消息框中。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值