精易论坛

标题: 长整数型相加问题 结果少1 [打印本页]

---

作者: 770707368    时间: 2025-6-22 01:18
标题: 长整数型相加问题 结果少1

  

子程序名	返回值类型	公开	备 注
长整数相加

变量名	类 型	静态	数组	备 注
a	长整数型
b	长整数型
c	长整数型

a ＝ 到长整数 (“16196910000000000”)
b ＝ 到长整数 (“1509696693”)
c ＝ a ＋ b
输出调试文本 (a)
输出调试文本 (b)
输出调试文本 (c)

.版本 2<br /> <br /> .子程序 长整数相加<br /> .局部变量 a, 长整数型<br /> .局部变量 b, 长整数型<br /> .局部变量 c, 长整数型<br /> <br /> <br /> a ＝ 到长整数 (“16196910000000000”)<br /> b ＝ 到长整数 (“1509696693”)<br /> c ＝ a ＋ b<br /> <br /> 输出调试文本 (a)<br /> 输出调试文本 (b)<br /> 输出调试文本 (c)

a* 16196910000000000
b* 1509696693
c* 16196911509696692


输出结果是  16196911509696692
是什么原因

---

作者: xiaoyu1986    时间: 2025-6-22 01:18
我掐指一算，是长整数表示问题，导致的某个0.99999999999999.......所以，自己改一下：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (大数相加 (“16196910000000000”, “1509696693”))

子程序名	返回值类型	公开	备 注
大数相加	文本型
参数名	类 型	参考	可空	数组	备 注
a	文本型
b	文本型

变量名	类 型	静态	数组	备 注
result	文本型
carry	整数型
i	整数型
j	整数型
digitA	整数型
digitB	整数型
sum	整数型

result ＝ “”
carry ＝ 0
i ＝ 取文本长度 (a)
j ＝ 取文本长度 (b)
判断循环首 (i ＞ 0 或 j ＞ 0 或 carry ＞ 0)
如果真 (i ＞ 0)
digitA ＝ 到整数 (取文本中间 (a, i, 1))

如果真 (i ＞ 0)
digitB ＝ 到整数 (取文本中间 (b, j, 1))
sum ＝ digitA ＋ digitB ＋ carry
carry ＝ sum ÷ 10
result ＝ 到文本 (sum ％ 10) ＋ result
i ＝ i － 1
j ＝ j － 1
判断循环尾 ()
返回 (result)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (大数相加 (“16196910000000000”, “1509696693”))<br /> <br /> .子程序 大数相加, 文本型<br /> .参数 a, 文本型<br /> .参数 b, 文本型<br /> .局部变量 result, 文本型<br /> .局部变量 carry, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 digitA, 整数型<br /> .局部变量 digitB, 整数型<br /> .局部变量 sum, 整数型<br /> <br /> result ＝ “”<br /> carry ＝ 0<br /> i ＝ 取文本长度 (a)<br /> j ＝ 取文本长度 (b)<br /> .判断循环首 (i ＞ 0 或 j ＞ 0 或 carry ＞ 0)<br />     .如果真 (i ＞ 0)<br />         digitA ＝ 到整数 (取文本中间 (a, i, 1))<br />     .如果真结束<br /> <br />     .如果真 (i ＞ 0)<br />         digitB ＝ 到整数 (取文本中间 (b, j, 1))<br />     .如果真结束<br />     sum ＝ digitA ＋ digitB ＋ carry<br />     carry ＝ sum ÷ 10<br />     result ＝ 到文本 (sum ％ 10) ＋ result<br />     i ＝ i － 1<br />     j ＝ j － 1<br /> .判断循环尾 ()<br /> 返回 (result)

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4