刚写的大数运算_大数加法

神圣剑帝

  

子程序名	返回值类型	公开	备 注
圣_大数加法	文本型
参数名	类 型	参考	可空	数组	备 注
加数	文本型
被加数	文本型

变量名	类 型	静态	数组	备 注
局_加数长度	整数型
局_被加数长度	整数型
n	整数型
局_加数分割	文本型		0
局_被加数分割	文本型		0
局_循环次数	整数型
局_当前位数	文本型
局_进阶数值	文本型
局_保留数值	文本型
局_结果分割	文本型		0
局_返回数据	文本型

局_加数长度 ＝ 取文本长度 (加数)
局_被加数长度 ＝ 取文本长度 (被加数)
输出调试文本 (局_加数长度)
输出调试文本 (局_被加数长度)
计次循环首 (局_加数长度, n)
加入成员 (局_加数分割, 取文本中间 (加数, n, 1))
计次循环尾 ()
计次循环首 (局_被加数长度, n)
加入成员 (局_被加数分割, 取文本中间 (被加数, n, 1))
计次循环尾 ()
如果 (局_加数长度 ＞ 局_被加数长度)
局_循环次数 ＝ 局_被加数长度
局_循环次数 ＝ 局_加数长度

计次循环首 (局_循环次数, n)
' 从最后一位开始运算
' 到整数 (局_加数分割 [局_循环次数 － n]) ＋ 到整数 (局_被加数分割 [局_循环次数 － n])
局_当前位数 ＝ 到文本 (到整数 (局_加数分割 [局_加数长度 － n ＋ 1]) ＋ 到整数 (局_被加数分割 [局_被加数长度 － n ＋ 1]) ＋ 到整数 (局_进阶数值))
如果 (取文本长度 (局_当前位数) ＞ 1)
局_进阶数值 ＝ 取文本中间 (局_当前位数, 1, 1)
局_保留数值 ＝ 取文本中间 (局_当前位数, 2, 1)
局_进阶数值 ＝ “0”
局_保留数值 ＝ 局_当前位数
' 一个循环完成
加入成员 (局_结果分割, 局_保留数值)
计次循环尾 ()
如果 (局_加数长度 ＞ 局_被加数长度)
局_返回数据 ＝ 取文本中间 (加数, 1, 局_加数长度 － 局_循环次数)
局_返回数据 ＝ 取文本中间 (被加数, 1, 局_被加数长度 － 局_循环次数)

如果 (到整数 (局_进阶数值) ＞ 0)
局_返回数据 ＝ 圣_大数加法 (局_返回数据, 局_进阶数值)


局_循环次数 ＝ 取数组成员数 (局_结果分割)
计次循环首 (局_循环次数, n)
局_返回数据 ＝ 局_返回数据 ＋ 局_结果分割 [局_循环次数 － n ＋ 1]
计次循环尾 ()
清除数组 (局_加数分割)
清除数组 (局_被加数分割)
清除数组 (局_结果分割)
返回 (局_返回数据)

.版本 2<br /> <br /> .子程序 圣_大数加法, 文本型<br /> .参数 加数, 文本型<br /> .参数 被加数, 文本型<br /> .局部变量 局_加数长度, 整数型<br /> .局部变量 局_被加数长度, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 局_加数分割, 文本型, , "0"<br /> .局部变量 局_被加数分割, 文本型, , "0"<br /> .局部变量 局_循环次数, 整数型<br /> .局部变量 局_当前位数, 文本型<br /> .局部变量 局_进阶数值, 文本型<br /> .局部变量 局_保留数值, 文本型<br /> .局部变量 局_结果分割, 文本型, , "0"<br /> .局部变量 局_返回数据, 文本型<br /> <br /> 局_加数长度 ＝ 取文本长度 (加数)<br /> 局_被加数长度 ＝ 取文本长度 (被加数)<br /> 输出调试文本 (局_加数长度)<br /> 输出调试文本 (局_被加数长度)<br /> .计次循环首 (局_加数长度, n)<br /> 加入成员 (局_加数分割, 取文本中间 (加数, n, 1))<br /> .计次循环尾 ()<br /> .计次循环首 (局_被加数长度, n)<br /> 加入成员 (局_被加数分割, 取文本中间 (被加数, n, 1))<br /> .计次循环尾 ()<br /> .如果 (局_加数长度 ＞ 局_被加数长度)<br /> 局_循环次数 ＝ 局_被加数长度<br /> .否则<br /> 局_循环次数 ＝ 局_加数长度<br /> .如果结束<br /> <br /> .计次循环首 (局_循环次数, n)<br /> ' 从最后一位开始运算<br /> ' 到整数 (局_加数分割 [局_循环次数 － n]) ＋ 到整数 (局_被加数分割 [局_循环次数 － n])<br /> 局_当前位数 ＝ 到文本 (到整数 (局_加数分割 [局_加数长度 － n ＋ 1]) ＋ 到整数 (局_被加数分割 [局_被加数长度 － n ＋ 1]) ＋ 到整数 (局_进阶数值))<br /> .如果 (取文本长度 (局_当前位数) ＞ 1)<br /> 局_进阶数值 ＝ 取文本中间 (局_当前位数, 1, 1)<br /> 局_保留数值 ＝ 取文本中间 (局_当前位数, 2, 1)<br /> .否则<br /> 局_进阶数值 ＝ “0”<br /> 局_保留数值 ＝ 局_当前位数<br /> .如果结束<br /> ' 一个循环完成<br /> 加入成员 (局_结果分割, 局_保留数值)<br /> <br /> .计次循环尾 ()<br /> .如果 (局_加数长度 ＞ 局_被加数长度)<br /> 局_返回数据 ＝ 取文本中间 (加数, 1, 局_加数长度 － 局_循环次数)<br /> .否则<br /> 局_返回数据 ＝ 取文本中间 (被加数, 1, 局_被加数长度 － 局_循环次数)<br /> .如果结束<br /> <br /> .如果 (到整数 (局_进阶数值) ＞ 0)<br /> 局_返回数据 ＝ 圣_大数加法 (局_返回数据, 局_进阶数值)<br /> .否则<br /> <br /> .如果结束<br /> 局_循环次数 ＝ 取数组成员数 (局_结果分割)<br /> .计次循环首 (局_循环次数, n)<br /> 局_返回数据 ＝ 局_返回数据 ＋ 局_结果分割 [局_循环次数 － n ＋ 1]<br /> .计次循环尾 ()<br /> <br /> 清除数组 (局_加数分割)<br /> 清除数组 (局_被加数分割)<br /> 清除数组 (局_结果分割)<br /> 返回 (局_返回数据)

花了我20分钟
大数加法.zip (25.12 KB, 下载次数: 29)

2016-4-9 08:39 上传

点击文件名下载附件

符维铭

什么叫大数

lovely203

阳光大侠

这个软件值得学习，但是有待改善

编程爱好者007

好东西啊谢谢

善良的魑魍

什么叫大数？第一次听说呢