关于 大数计算

往事如风0

这段代码，怎样能改成大数计算 求助大佬
(传统+ - 计算 结果不对)
源码123.e (937.79 KB, 下载次数: 9)

2023-2-4 12:25 上传

点击文件名下载附件

梦想ol

双精度运算溢出了，用汇编长整数运算代替
开始运行被调试程序
* “path” | “1” | 1 | “”
* “value” | 8007897858976767596 | 真
* “8007897858976767596”
被调试易程序运行完毕

  

子程序名	返回值类型	公开	备 注
PB_uint	长整数型		作者 7ian  541980200
参数名	类 型	参考	可空	数组	备 注
pb	字节集
i	整数型
j	长整数型
value	长整数型
len	整数型

变量名	类 型	静态	数组	备 注
lr	长整数型
lrr1	文本型
lrr2	文本型
a	大数

循环判断首 ()
' -----------
i ＝ i ＋ 1
如果真 (i ＞ len)
跳出循环 ()
' value ＝ value ＋ 位与 (pb [i], 127) × j
value ＝ int64_add (value, int64_mul (位与 (pb [i], 127), j))
j ＝ j × 128
循环判断尾 (pb [i] ＞ 127)
' ----------------------
调试输出 (“value”, value, value ＝ 到长整数 (“8007897858976767596”))  ' 正常值 8007897858976767596
返回 (value)

子程序名	返回值类型	公开	备 注
int64_add	长整数型		ok
参数名	类 型	参考	可空	数组	备 注
a	长整数型
b	长整数型

置入代码 ({ 93, 139, 68, 36, 4, 3, 68, 36, 12, 139, 84, 36, 8, 19, 84, 36, 16, 194, 16, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
int64_mul	长整数型		ok
参数名	类 型	参考	可空	数组	备 注
a	长整数型
b	长整数型

置入代码 ({ 93, 255, 116, 36, 16, 255, 116, 36, 16, 255, 116, 36, 16, 255, 116, 36, 16, 232, 3, 0, 0, 0, 194, 16, 0, 139, 68, 36, 8, 139, 76, 36, 16, 11, 200, 139, 76, 36, 12, 117, 9, 139, 68, 36, 4, 247, 225, 194, 16, 0, 83, 247, 225, 139, 216, 139, 68, 36, 8, 247, 100, 36, 20, 3, 216, 139, 68, 36, 8, 247, 225, 3, 211, 91, 194, 16, 0 })
返回 (0)

i支持库列表	支持库注释
eCalc	数值计算支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eCalc<br /> .支持库 spec<br /> <br /> .子程序 PB_uint, 长整数型, , 作者 7ian  541980200<br /> .参数 pb, 字节集<br /> .参数 i, 整数型, 参考<br /> .参数 j, 长整数型<br /> .参数 value, 长整数型<br /> .参数 len, 整数型<br /> .局部变量 lr, 长整数型<br /> .局部变量 lrr1, 文本型<br /> .局部变量 lrr2, 文本型<br /> .局部变量 a, 大数<br /> <br /> .循环判断首 ()<br />     ' -----------<br />     i ＝ i ＋ 1<br />     .如果真 (i ＞ len)<br />         跳出循环 ()<br />     .如果真结束<br />     ' value ＝ value ＋ 位与 (pb <i>, 127) × j<br />     value ＝ int64_add (value, int64_mul (位与 (pb <i>, 127), j))<br />     j ＝ j × 128<br /> .循环判断尾 (pb <i> ＞ 127)<br /> ' ----------------------<br /> 调试输出 (“value”, value, value ＝ 到长整数 (“8007897858976767596”))  ' 正常值 8007897858976767596<br /> 返回 (value)<br /> <br /> <br /> .子程序 int64_add, 长整数型, 公开, ok<br /> .参数 a, 长整数型<br /> .参数 b, 长整数型<br /> <br /> 置入代码 ({ 93, 139, 68, 36, 4, 3, 68, 36, 12, 139, 84, 36, 8, 19, 84, 36, 16, 194, 16, 0 })<br /> 返回 (0)<br /> <br /> .子程序 int64_mul, 长整数型, 公开, ok<br /> .参数 a, 长整数型<br /> .参数 b, 长整数型<br /> <br /> 置入代码 ({ 93, 255, 116, 36, 16, 255, 116, 36, 16, 255, 116, 36, 16, 255, 116, 36, 16, 232, 3, 0, 0, 0, 194, 16, 0, 139, 68, 36, 8, 139, 76, 36, 16, 11, 200, 139, 76, 36, 12, 117, 9, 139, 68, 36, 4, 247, 225, 194, 16, 0, 83, 247, 225, 139, 216, 139, 68, 36, 8, 247, 100, 36, 20, 3, 216, 139, 68, 36, 8, 247, 225, 3, 211, 91, 194, 16, 0 })<br /> 返回 (0)

乐鱼驴

换进制计算  

明天自然醒

开始写，计时


补充内容 (2023-2-4 13:14):
pb是超长整数吗

往事如风0

明天自然醒 发表于 2023-2-4 13:11
开始写，计时

对啊是这个 8007897858976767596

往事如风0

qqaa007007 发表于 2023-2-4 13:10
换进制计算

大佬能给个例子吗

明天自然醒

.版本 2
.支持库 eCalc

.子程序 子程序1
.局部变量 i, 整数型
.局部变量 len, 整数型
.局部变量 pb, 长整数型, , "0"
.局部变量 value, 大数
.局部变量 j, 大数
.局部变量 t, 大数

j.导入数字 (1)
t.导入数字 (128)
.循环判断首 ()
    i ＝ i ＋ 1
    .如果真 (i ＞ len)
        跳出循环 ()
    .如果真结束

    value ＝ value.加 (位与127 (pb [i]).乘 (j))
    j ＝ j.乘 (t)

.循环判断尾 (pb [i] ＞ 127)


.子程序 位与127, 大数
.参数 value, 长整数型
.局部变量 v, 文本型
.局部变量 a, 大数

v ＝ 任意进制转换 (到文本 (value), 10, 2)
a.导入文本 (任意进制转换 (文本替换 (v, 取文本长度 (v) － 7, 1, “0”), 2, 10))
返回 (a)

.子程序 任意进制转换, 文本型, , 36以内任意转换
.参数 数值, 文本型
.参数 原进制数, 整数型
.参数 输出进制数, 整数型
.局部变量 v, 大数
.局部变量 value, 字节集
.局部变量 base, 大数
.局部变量 temp, 大数
.局部变量 zero, 大数
.局部变量 i, 整数型
.局部变量 output, 文本型

.如果真 (原进制数 ＜ 2 或 原进制数 ＞ 36 或 输出进制数 ＜ 2 或 输出进制数 ＞ 36)
    返回 (“error”)
.如果真结束

base.导入数字 (原进制数)
value ＝ 到字节集 (到大写 (数值))
v.导入数字 (0)
.计次循环首 (取字节集长度 (value), i)
    .如果 (value [i] ≥ 65)
        temp.导入数字 (value [i] － 55)
    .否则
        temp.导入数字 (value [i] － 48)
    .如果结束
    v ＝ temp.加 (v.乘 (base))
.计次循环尾 ()

zero.导入数字 (0)
base.导入数字 (输出进制数)
.判断循环首 (v.等于 (zero) ＝ 假)
    .如果 (v.求余 (base).导出整数 () ＜ 10)
        output ＝ 字符 (48 ＋ v.求余 (base).导出整数 ()) ＋ output
    .否则
        output ＝ 字符 (55 ＋ v.求余 (base).导出整数 ()) ＋ output
    .如果结束
    v ＝ v.整除 (base)
.判断循环尾 ()

返回 (output)