大数计算 加法 减法 乘法

396384183

感谢分享，很给力！~

鱼雨遇玉羽

除法哭晕在厕所

kyo9766

学习一下大数，感谢分享

光影魔术

感谢分享源码

sinewtec

感谢分享，很给力！~

oldghost

感谢分享，很给力！~

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

查过

已经顶贴，感谢您对论坛的支持！

bianyuan456

已经顶贴，感谢您对论坛的支持！

APPLEUFO

这头都写秃了，搞了那么多局部变量  还长源码里 四则运算都齐了
我记得里面除法可以再优化  被除数不用遍历，用二分查找还能再快点

  

子程序名	返回值类型	公开	备 注
四则运算_加法	文本型		注意：加数 与 被加数 都不能为 空文本！
参数名	类 型	参考	可空	数组	备 注
参数_a	文本型
参数_b	文本型

变量名	类 型	静态	数组	备 注
局变_文本a	文本型
局变_文本b	文本型
局变_a符号标志	文本型			显示数的正负  |||     正为真，否则 反之
局变_b符号标志	文本型
局变_结果符号标志	文本型
局变_绝对值比较大小结果	整数型
ls	文本型

局变_文本a ＝ 参数_a
局变_文本b ＝ 参数_b
局变_a符号标志 ＝ 子程序_分解符号与数字 (局变_文本a)
局变_b符号标志 ＝ 子程序_分解符号与数字 (局变_文本b)
如果真 (局变_a符号标志 ＝ “+” 且 局变_b符号标志 ＝ “+”)
局变_结果符号标志 ＝ “+”
ls ＝ 局变_结果符号标志 ＋ 子程序_加法 (局变_文本a, 局变_文本b)
返回 (子程序_格式化输出 (ls))

如果真 (局变_a符号标志 ＝ “-” 且 局变_b符号标志 ＝ “-”)
局变_结果符号标志 ＝ “-”
ls ＝ 局变_结果符号标志 ＋ 子程序_加法 (局变_文本a, 局变_文本b)
返回 (子程序_格式化输出 (ls))

局变_绝对值比较大小结果 ＝ 子程序_比较绝对值大小 (局变_文本a, 局变_文本b)  ' 这里是一正一负的情形  //运行到 在这里时符号已经分离出去了，所以没有负号
如果真 (局变_绝对值比较大小结果 ＝ 1)  ' a>b
ls ＝ 局变_a符号标志 ＋ 子程序_减法 (局变_文本a, 局变_文本b)
返回 (子程序_格式化输出 (ls))

如果真 (局变_绝对值比较大小结果 ＝ -1)
ls ＝ 局变_b符号标志 ＋ 子程序_减法 (局变_文本b, 局变_文本a)  ' b 的数值大，所以用他的符号标志''''?大数减去小数
返回 (子程序_格式化输出 (ls))

返回 (“0”)  ' 到达这里， 局变_绝对值比较大小结果 =0  ，然后两个相同的正负数相加，所以结果为0
' --------------------------
' .在两个大整数相加时，有可能其中一个为负数，这时的相加就相当于进行减法运算。由于允许对负数进行操作，因此，两数相加可能有以下三种情况：
' .1  两个正数相加，直接进行加法操作，结果的符号标志引用被加数的符号标志
' .2 两个负数相加，直接进行两数的无符号相加操作，结果的标志符号用被加数的符号标志
' .3 两异号数相加，使用绝对值大的数减去绝对值小的数，结果的符号标志 引用绝对值大的数的符号标志。
' .

子程序名	返回值类型	公开	备 注
四则运算_减法	文本型
参数名	类 型	参考	可空	数组	备 注
参数a	文本型
参数b	文本型

变量名	类 型	静态	数组	备 注
局变_文本a	文本型
局变_文本b	文本型
ls	文本型

局变_文本a ＝ 参数a
局变_文本b ＝ 参数b
局变_文本b ＝ 子程序_文本型数字取反 (局变_文本b)
ls ＝ 四则运算_加法 (局变_文本a, 局变_文本b)
返回 (ls)
' --------------------------
' 由四则运算规则可知道，对于 a-b
' 可以看作  a + (-b )
' 因此，大整数的减法操作也可以转化为加法操作。转换过程很简单，只需要将减数的符号取反即可。

子程序名	返回值类型	公开	备 注
四则运算_乘法	文本型
参数名	类 型	参考	可空	数组	备 注
参数_被乘数	文本型
参数_乘数	文本型

变量名	类 型	静态	数组	备 注
局变_文本a	文本型
局变_文本b	文本型
局变_a符号标志	文本型
局变_b符号标志	文本型
局变_结果符号标志	文本型
局变_相乘的结果	文本型			最终结果
ls	文本型

局变_文本a ＝ 参数_被乘数
局变_文本b ＝ 参数_乘数
局变_a符号标志 ＝ 子程序_分解符号与数字 (局变_文本a)  ' 正也好，负也好。 都要a*b
局变_b符号标志 ＝ 子程序_分解符号与数字 (局变_文本b)
如果 (局变_a符号标志 ＝ “+” 且 局变_b符号标志 ＝ “+” 或 局变_a符号标志 ＝ “-” 且 局变_b符号标志 ＝ “-”)
局变_结果符号标志 ＝ “+”


局变_结果符号标志 ＝ “-”  ' 不等于两个正，两个负，就肯定是一正一负了

局变_相乘的结果 ＝ 子程序_乘法 (局变_文本a, 局变_文本b)
ls ＝ 局变_结果符号标志 ＋ 局变_相乘的结果
返回 (子程序_格式化输出 (ls))

子程序名	返回值类型	公开	备 注
四则运算_除法	文本型		除法可以再优化  被除数不用遍历，用二分查找还能再快点
参数名	类 型	参考	可空	数组	备 注
参数_a	文本型
参数_b	文本型

变量名	类 型	静态	数组	备 注
局变_文本a	文本型
局变_文本b	文本型
局变_a符号标志	文本型
局变_b符号标志	文本型
局变_结果符号标志	文本型
局变_相除的结果	文本型
ls	文本型

局变_文本a ＝ 参数_a
局变_文本b ＝ 参数_b
局变_a符号标志 ＝ 子程序_分解符号与数字 (局变_文本a)
局变_b符号标志 ＝ 子程序_分解符号与数字 (局变_文本b)
如果 (局变_a符号标志 ＝ “+” 且 局变_b符号标志 ＝ “+” 或 局变_a符号标志 ＝ “-” 且 局变_b符号标志 ＝ “-”)
局变_结果符号标志 ＝ “+”


局变_结果符号标志 ＝ “-”  ' 不等于两个正，两个负，就肯定是一正一负了

局变_相除的结果 ＝ 子程序_除法 (局变_文本a, 局变_文本b)
ls ＝ 局变_结果符号标志 ＋ 局变_相除的结果
返回 (子程序_格式化输出 (ls))
' -------------------------------------------------------------

.版本 2<br /> <br /> .子程序 四则运算_加法, 文本型, 公开, 注意：加数 与 被加数 都不能为 空文本！<br /> .参数 参数_a, 文本型<br /> .参数 参数_b, 文本型<br /> .局部变量 局变_文本a, 文本型<br /> .局部变量 局变_文本b, 文本型<br /> .局部变量 局变_a符号标志, 文本型, , , 显示数的正负  |||     正为真，否则 反之<br /> .局部变量 局变_b符号标志, 文本型<br /> .局部变量 局变_结果符号标志, 文本型<br /> .局部变量 局变_绝对值比较大小结果, 整数型<br /> .局部变量 ls, 文本型<br /> <br /> 局变_文本a ＝ 参数_a<br /> 局变_文本b ＝ 参数_b<br /> 局变_a符号标志 ＝ 子程序_分解符号与数字 (局变_文本a)<br /> 局变_b符号标志 ＝ 子程序_分解符号与数字 (局变_文本b)<br /> <br /> .如果真 (局变_a符号标志 ＝ “+” 且 局变_b符号标志 ＝ “+”)<br />     局变_结果符号标志 ＝ “+”<br />     ls ＝ 局变_结果符号标志 ＋ 子程序_加法 (局变_文本a, 局变_文本b)<br />     返回 (子程序_格式化输出 (ls))<br /> .如果真结束<br /> <br /> .如果真 (局变_a符号标志 ＝ “-” 且 局变_b符号标志 ＝ “-”)<br />     局变_结果符号标志 ＝ “-”<br />     ls ＝ 局变_结果符号标志 ＋ 子程序_加法 (局变_文本a, 局变_文本b)<br />     返回 (子程序_格式化输出 (ls))<br /> .如果真结束<br /> <br /> <br /> 局变_绝对值比较大小结果 ＝ 子程序_比较绝对值大小 (局变_文本a, 局变_文本b)  ' 这里是一正一负的情形  //运行到 在这里时符号已经分离出去了，所以没有负号<br /> <br /> .如果真 (局变_绝对值比较大小结果 ＝ 1)  ' a>b<br />     ls ＝ 局变_a符号标志 ＋ 子程序_减法 (局变_文本a, 局变_文本b)<br />     返回 (子程序_格式化输出 (ls))<br /> .如果真结束<br /> <br /> .如果真 (局变_绝对值比较大小结果 ＝ -1)<br />     ls ＝ 局变_b符号标志 ＋ 子程序_减法 (局变_文本b, 局变_文本a)  ' b 的数值大，所以用他的符号标志''''?大数减去小数<br />     返回 (子程序_格式化输出 (ls))<br /> .如果真结束<br /> <br /> <br /> 返回 (“0”)  ' 到达这里， 局变_绝对值比较大小结果 =0  ，然后两个相同的正负数相加，所以结果为0<br /> ' --------------------------<br /> ' .在两个大整数相加时，有可能其中一个为负数，这时的相加就相当于进行减法运算。由于允许对负数进行操作，因此，两数相加可能有以下三种情况：<br /> ' .1  两个正数相加，直接进行加法操作，结果的符号标志引用被加数的符号标志<br /> ' .2 两个负数相加，直接进行两数的无符号相加操作，结果的标志符号用被加数的符号标志<br /> ' .3 两异号数相加，使用绝对值大的数减去绝对值小的数，结果的符号标志 引用绝对值大的数的符号标志。<br /> ' .<br /> <br /> .子程序 四则运算_减法, 文本型, 公开<br /> .参数 参数a, 文本型<br /> .参数 参数b, 文本型<br /> .局部变量 局变_文本a, 文本型<br /> .局部变量 局变_文本b, 文本型<br /> .局部变量 ls, 文本型<br /> <br /> 局变_文本a ＝ 参数a<br /> 局变_文本b ＝ 参数b<br /> <br /> 局变_文本b ＝ 子程序_文本型数字取反 (局变_文本b)<br /> <br /> ls ＝ 四则运算_加法 (局变_文本a, 局变_文本b)<br /> 返回 (ls)<br /> <br /> ' --------------------------<br /> ' 由四则运算规则可知道，对于 a-b<br /> ' 可以看作  a + (-b )<br /> ' 因此，大整数的减法操作也可以转化为加法操作。转换过程很简单，只需要将减数的符号取反即可。<br /> <br /> .子程序 四则运算_乘法, 文本型, 公开<br /> .参数 参数_被乘数, 文本型<br /> .参数 参数_乘数, 文本型<br /> .局部变量 局变_文本a, 文本型<br /> .局部变量 局变_文本b, 文本型<br /> .局部变量 局变_a符号标志, 文本型<br /> .局部变量 局变_b符号标志, 文本型<br /> .局部变量 局变_结果符号标志, 文本型<br /> .局部变量 局变_相乘的结果, 文本型, , , 最终结果<br /> .局部变量 ls, 文本型<br /> <br /> 局变_文本a ＝ 参数_被乘数<br /> 局变_文本b ＝ 参数_乘数<br /> 局变_a符号标志 ＝ 子程序_分解符号与数字 (局变_文本a)  ' 正也好，负也好。 都要a*b<br /> 局变_b符号标志 ＝ 子程序_分解符号与数字 (局变_文本b)<br /> <br /> .如果 (局变_a符号标志 ＝ “+” 且 局变_b符号标志 ＝ “+” 或 局变_a符号标志 ＝ “-” 且 局变_b符号标志 ＝ “-”)<br />     局变_结果符号标志 ＝ “+”<br /> .否则<br /> <br />     局变_结果符号标志 ＝ “-”  ' 不等于两个正，两个负，就肯定是一正一负了<br /> .如果结束<br /> <br /> 局变_相乘的结果 ＝ 子程序_乘法 (局变_文本a, 局变_文本b)<br /> <br /> ls ＝ 局变_结果符号标志 ＋ 局变_相乘的结果<br /> <br /> 返回 (子程序_格式化输出 (ls))<br /> <br /> <br /> .子程序 四则运算_除法, 文本型, 公开,  除法可以再优化  被除数不用遍历，用二分查找还能再快点<br /> .参数 参数_a, 文本型<br /> .参数 参数_b, 文本型<br /> .局部变量 局变_文本a, 文本型<br /> .局部变量 局变_文本b, 文本型<br /> .局部变量 局变_a符号标志, 文本型<br /> .局部变量 局变_b符号标志, 文本型<br /> .局部变量 局变_结果符号标志, 文本型<br /> .局部变量 局变_相除的结果, 文本型<br /> .局部变量 ls, 文本型<br /> <br /> 局变_文本a ＝ 参数_a<br /> 局变_文本b ＝ 参数_b<br /> 局变_a符号标志 ＝ 子程序_分解符号与数字 (局变_文本a)<br /> 局变_b符号标志 ＝ 子程序_分解符号与数字 (局变_文本b)<br /> <br /> .如果 (局变_a符号标志 ＝ “+” 且 局变_b符号标志 ＝ “+” 或 局变_a符号标志 ＝ “-” 且 局变_b符号标志 ＝ “-”)<br />     局变_结果符号标志 ＝ “+”<br /> .否则<br /> <br />     局变_结果符号标志 ＝ “-”  ' 不等于两个正，两个负，就肯定是一正一负了<br /> .如果结束<br /> <br /> <br /> 局变_相除的结果 ＝ 子程序_除法 (局变_文本a, 局变_文本b)<br /> <br /> ls ＝ 局变_结果符号标志 ＋ 局变_相除的结果<br /> <br /> 返回 (子程序_格式化输出 (ls))<br /> <br /> <br /> <br /> <br /> ' -------------------------------------------------------------