文本笔算_加减乘除_支持正负[小数/整数/大数/前缀0的数]

紫苏7798

文本笔算 0.1

功能支持:

1. 支持任意长度 小数/整数文本
2. 通过笔算算法,更加精准
3. 支持正负号运算

目前缺点: 除数限制长整数大小

功能列表

1. 笔算加法
2. 笔算减法
3. 笔算乘法
4. 笔算除法
5. 笔算_文本数值删0
6. 笔算_取相反数
7. 笔算_取随机整数文本
8. 笔算_取随机小数文本

附件列表:

• 模块
• 源码
• 源码-带测试

所有代码纯原创.

补充内容 (2024-5-14 14:29):
28楼除法更新,加减乘除 已 完美计算

紫苏7798

后续优化和版本升级：笔算类 【链式-公式取值 、大数小数】正则取数组_精易论坛 (125.la)

ytm易小白

66666666666

胡江00

6666666666666666

紫苏7798

  

子程序名	返回值类型	公开	备 注
笔算_内置_文本除法	文本型
参数名	类 型	参考	可空	数组	备 注
被除数	文本型				如果为0返回"0"
除数	文本型				如果为0返回"null"
小数位数	整数型				默认保留2位

变量名	类 型	静态	数组	备 注
局被除数	文本型
局除数	文本型
len	整数型
i	整数型
局结果	文本型
局返回	文本型
局商	整数型

如果真 (是否为空 (小数位数))
小数位数 ＝ 2
局被除数 ＝ 被除数
局除数 ＝ 除数
如果真 (局除数 ＝ “0”)
返回 (“null”)
如果真 (局被除数 ＝ “0”)
返回 (“0”)

' 处理小数_________________________________________________
笔算_内置_小数化整_除法用 (局被除数, 局除数)
局被除数 ＝ 局被除数 ＋ 取文本左边 (“0000000000000000000000000000000000000000”, 小数位数)  ' 40位
局被除数 ＝ 笔算_文本数值删0 (局被除数)
局除数 ＝ 笔算_文本数值删0 (局除数)
' 处理算法_________________________________________________
len ＝ 取文本长度 (局被除数)
计次循环首 (len, i)
局结果 ＝ 笔算_内置_文本加法 (局结果 ＋ “0”, 取文本中间 (局被除数, i, 1))
判断循环首 (笔算_内置_文本减法 (局结果, 局除数) ≥ “0”)
局结果 ＝ 笔算_内置_文本减法 (局结果, 局除数)
局商 ＝ 局商 ＋ 1
判断循环尾 ()
局返回 ＝ 局返回 ＋ 到文本 (局商)
局商 ＝ 0
计次循环尾 ()
len ＝ 取文本长度 (局返回)
如果真 (小数位数 ≠ 0)
局返回 ＝ 文本替换 (局返回, len － 小数位数, 1, 取文本中间 (局返回, len － 小数位数, 1) ＋ “.”)
局返回 ＝ 笔算_文本数值删0 (局返回)
返回 (局返回)

.版本 2<br /> <br /> .子程序 笔算_内置_文本除法, 文本型<br /> .参数 被除数, 文本型, , 如果为0返回"0"<br /> .参数 除数, 文本型, , 如果为0返回"null"<br /> .参数 小数位数, 整数型, 可空, 默认保留2位<br /> .局部变量 局被除数, 文本型<br /> .局部变量 局除数, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 局结果, 文本型<br /> .局部变量 局返回, 文本型<br /> .局部变量 局商, 整数型<br /> <br /> .如果真 (是否为空 (小数位数))<br />     小数位数 ＝ 2<br /> .如果真结束<br /> 局被除数 ＝ 被除数<br /> 局除数 ＝ 除数<br /> <br /> .如果真 (局除数 ＝ “0”)<br />     返回 (“null”)<br /> .如果真结束<br /> .如果真 (局被除数 ＝ “0”)<br />     返回 (“0”)<br /> .如果真结束<br /> <br /> ' 处理小数_________________________________________________<br /> 笔算_内置_小数化整_除法用 (局被除数, 局除数)<br /> 局被除数 ＝ 局被除数 ＋ 取文本左边 (“0000000000000000000000000000000000000000”, 小数位数)  ' 40位<br /> 局被除数 ＝ 笔算_文本数值删0 (局被除数)<br /> 局除数 ＝ 笔算_文本数值删0 (局除数)<br /> <br /> ' 处理算法_________________________________________________<br /> len ＝ 取文本长度 (局被除数)<br /> .计次循环首 (len, i)<br />     局结果 ＝ 笔算_内置_文本加法 (局结果 ＋ “0”, 取文本中间 (局被除数, i, 1))<br /> <br />     .判断循环首 (笔算_内置_文本减法 (局结果, 局除数) ≥ “0”)<br />         局结果 ＝ 笔算_内置_文本减法 (局结果, 局除数)<br />         局商 ＝ 局商 ＋ 1<br />     .判断循环尾 ()<br /> <br />     局返回 ＝ 局返回 ＋ 到文本 (局商)<br />     局商 ＝ 0<br /> .计次循环尾 ()<br /> len ＝ 取文本长度 (局返回)<br /> .如果真 (小数位数 ≠ 0)<br />     局返回 ＝ 文本替换 (局返回, len － 小数位数, 1, 取文本中间 (局返回, len － 小数位数, 1) ＋ “.”)<br /> .如果真结束<br /> 局返回 ＝ 笔算_文本数值删0 (局返回)<br /> 返回 (局返回)

光影魔术

感谢分享源码

callng

这是大数运算吗

qqmqqg

666666666666666666666666666

396384183

感谢楼主无私奉献

西山翠冷

感谢分享！大力支持！！