十六进制相乘结果不一样?

LWB666

samll88 发表于 2025-4-24 18:25
结果也是811D68C10BF210
和计算机的
81 1D68 C10B F213不同

用这个
十进制到十六进制(十到十六)，支持无限长度十进制
https://bbs.125.la/forum.php?mod=viewthread&tid=14853585
(出处: 精易论坛)

结合楼上的大数相乘

mytiger

将求余换一下

  

子程序名	返回值类型	公开	备 注
进制_十到十六	文本型		进制_十到十六
参数名	类 型	参考	可空	数组	备 注
十进制数	长整数型

变量名	类 型	静态	数组	备 注
余数数组	文本型		16
tempint	长整数型
str	文本型
余	长整数型

余数数组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }
tempint ＝ 十进制数
判断循环首 (tempint ≥ 0)  ' 除16取余，结果倒序
余 ＝ 求余数 (tempint, 16)
str ＝ 余数数组 [余 ＋ 1] ＋ str
tempint ＝ (tempint － 余) ÷ 16  ' zc()
如果真 (tempint ≤ 0)  ' 如果为0，则跳出循环。
跳出循环 ()

判断循环尾 ()
返回 (str)

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

置入代码 ({ 139, 69, 20, 80, 139, 77, 16, 81, 139, 85, 12, 82, 139, 69, 8, 80, 232, 4, 0, 0, 0, 93, 194, 16, 0 })
置入代码 ({ 83, 87, 51, 255, 139, 68, 36, 16, 11, 192, 125, 20, 71, 139, 84, 36, 12, 247, 216, 247, 218, 131, 216, 0, 137, 68, 36, 16, 137, 84, 36, 12, 139, 68, 36, 24, 11, 192, 125, 19, 139, 84, 36, 20, 247, 216, 247, 218, 131, 216, 0, 137, 68, 36, 24, 137, 84, 36, 20, 11, 192, 117, 27, 139, 76, 36, 20, 139, 68, 36, 16, 51, 210, 247, 241, 139, 68, 36, 12, 247, 241, 139, 194, 51, 210, 79, 121, 78, 235, 83, 139, 216, 139, 76, 36, 20, 139, 84, 36, 16, 139, 68, 36, 12, 209, 235, 209, 217, 209, 234, 209, 216, 11, 219, 117, 244, 247, 241, 139, 200, 247, 100, 36, 24, 145, 247, 100, 36, 20, 3, 209, 114, 14, 59, 84, 36, 16, 119, 8, 114, 14, 59, 68, 36, 12, 118, 8, 43, 68, 36, 20, 27, 84, 36, 24, 43, 68, 36, 12, 27, 84, 36, 16, 79, 121, 7, 247, 218, 247, 216, 131, 218, 0, 95, 91, 194, 16, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 进制_十到十六, 文本型, , 进制_十到十六<br /> .参数 十进制数, 长整数型, 参考<br /> .局部变量 余数数组, 文本型, 静态, "16"<br /> .局部变量 tempint, 长整数型<br /> .局部变量 str, 文本型<br /> .局部变量 余, 长整数型<br /> <br /> 余数数组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }<br /> tempint ＝ 十进制数<br /> .判断循环首 (tempint ≥ 0)  ' 除16取余，结果倒序<br />     余 ＝ 求余数 (tempint, 16)<br />     str ＝ 余数数组 [余 ＋ 1] ＋ str<br />     tempint ＝ (tempint － 余) ÷ 16  ' zc()<br />     .如果真 (tempint ≤ 0)  ' 如果为0，则跳出循环。<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (str)<br /> <br /> .子程序 求余数, 长整数型, 公开<br /> .参数 a, 长整数型<br /> .参数 b, 长整数型<br /> <br /> 置入代码 ({ 139, 69, 20, 80, 139, 77, 16, 81, 139, 85, 12, 82, 139, 69, 8, 80, 232, 4, 0, 0, 0, 93, 194, 16, 0 })<br /> 置入代码 ({ 83, 87, 51, 255, 139, 68, 36, 16, 11, 192, 125, 20, 71, 139, 84, 36, 12, 247, 216, 247, 218, 131, 216, 0, 137, 68, 36, 16, 137, 84, 36, 12, 139, 68, 36, 24, 11, 192, 125, 19, 139, 84, 36, 20, 247, 216, 247, 218, 131, 216, 0, 137, 68, 36, 24, 137, 84, 36, 20, 11, 192, 117, 27, 139, 76, 36, 20, 139, 68, 36, 16, 51, 210, 247, 241, 139, 68, 36, 12, 247, 241, 139, 194, 51, 210, 79, 121, 78, 235, 83, 139, 216, 139, 76, 36, 20, 139, 84, 36, 16, 139, 68, 36, 12, 209, 235, 209, 217, 209, 234, 209, 216, 11, 219, 117, 244, 247, 241, 139, 200, 247, 100, 36, 24, 145, 247, 100, 36, 20, 3, 209, 114, 14, 59, 84, 36, 16, 119, 8, 114, 14, 59, 68, 36, 12, 118, 8, 43, 68, 36, 20, 27, 84, 36, 24, 43, 68, 36, 12, 27, 84, 36, 16, 79, 121, 7, 247, 218, 247, 216, 131, 218, 0, 95, 91, 194, 16, 0 })<br /> 返回 (0)

LWB666

  

子程序名	返回值类型	公开	备 注
进制_十到十六Ex	文本型		不支持负数
参数名	类 型	参考	可空	数组	备 注
十进制文本	文本型				支持任意长度十进制数字
小写	逻辑型				如果为真则返回小写的十六进制

变量名	类 型	静态	数组	备 注
table	文本型		0	十六进制表
bi	大数			big_int
mod_num	大数			取余后的数字
operand	大数			操作数
tmp	整数型			用来做临时运算
result	文本型			返回

如果 (小写)
table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f” }
table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }
bi.导入文本 (十进制文本)
operand.导入数字 (16)
循环判断首 ()
如果 (bi.小于 (operand))
mod_num.导入数字 (bi.导出整数 ())
bi.导入数字 (0)
mod_num ＝ bi.求余 (operand)
bi ＝ bi.除 (operand, 0)
tmp ＝ mod_num.导出整数 () ＋ 1
如果真 (tmp ＞ 16 或 tmp ＜ 1)  ' 防止越界
返回 (“”)
result ＝ table [tmp] ＋ result
循环判断尾 (bi.导出文本 () ≠ “0”)
返回 (result)

子程序名	返回值类型	公开	备 注
进制_十六到十Ex	文本型
参数名	类 型	参考	可空	数组	备 注
十六进制字符串	文本型

变量名	类 型	静态	数组	备 注
str	文本型
strlen	整数型
cur	文本型
asc	整数型
dec	整数型
result	大数
tmp	大数
operand	大数
i	整数型

str ＝ 十六进制字符串
strlen ＝ 取文本长度 (str)
计次循环首 (strlen, i)
cur ＝ 取文本中间 (str, i, 1)
asc ＝ 取代码 (cur, )
判断 (asc ≥ 65 且 asc ≤ 70)
dec ＝ asc － 55
判断 (asc ≥ 97 且 asc ≤ 102)
dec ＝ asc － 87
dec ＝ 到整数 (cur)
operand.导入数字 (16)
tmp ＝ operand
计次循环首 (strlen － i － 1, )
operand ＝ operand.乘 (tmp)
计次循环尾 ()
如果真 (strlen － i ＝ 0)
operand.导入数字 (1)
tmp.导入数字 (dec)
tmp ＝ tmp.乘 (operand)
result ＝ result.加 (tmp)
计次循环尾 ()
返回 (result.导出文本 ())

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
被乘数	大数
乘数	大数
结果	文本型

被乘数.导入文本 (进制_十六到十Ex (“811C9D81”))
乘数.导入文本 (进制_十六到十Ex (“1000193”))
结果 ＝ 被乘数.乘 (乘数).导出文本 ()
调试输出 (结果)
调试输出 (进制_十到十六Ex (结果, ))

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

.版本 2<br /> .支持库 eCalc<br /> .支持库 spec<br /> <br /> .子程序 进制_十到十六Ex, 文本型, , 不支持负数<br /> .参数 十进制文本, 文本型, , 支持任意长度十进制数字<br /> .参数 小写, 逻辑型, 可空, 如果为真则返回小写的十六进制<br /> .局部变量 table, 文本型, , "0", 十六进制表<br /> .局部变量 bi, 大数, , , big_int<br /> .局部变量 mod_num, 大数, , , 取余后的数字<br /> .局部变量 operand, 大数, , , 操作数<br /> .局部变量 tmp, 整数型, , , 用来做临时运算<br /> .局部变量 result, 文本型, , , 返回<br /> <br /> .如果 (小写)<br />     table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f” }<br /> .否则<br />     table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }<br /> .如果结束<br /> bi.导入文本 (十进制文本)<br /> operand.导入数字 (16)<br /> .循环判断首 ()<br />     .如果 (bi.小于 (operand))<br />         mod_num.导入数字 (bi.导出整数 ())<br />         bi.导入数字 (0)<br />     .否则<br />         mod_num ＝ bi.求余 (operand)<br />         bi ＝ bi.除 (operand, 0)<br />     .如果结束<br />     tmp ＝ mod_num.导出整数 () ＋ 1<br />     .如果真 (tmp ＞ 16 或 tmp ＜ 1)  ' 防止越界<br />         返回 (“”)<br />     .如果真结束<br />     result ＝ table [tmp] ＋ result<br /> .循环判断尾 (bi.导出文本 () ≠ “0”)<br /> 返回 (result)<br /> <br /> .子程序 进制_十六到十Ex, 文本型<br /> .参数 十六进制字符串, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 strlen, 整数型<br /> .局部变量 cur, 文本型<br /> .局部变量 asc, 整数型<br /> .局部变量 dec, 整数型<br /> .局部变量 result, 大数<br /> .局部变量 tmp, 大数<br /> .局部变量 operand, 大数<br /> .局部变量 i, 整数型<br /> <br /> str ＝ 十六进制字符串<br /> strlen ＝ 取文本长度 (str)<br /> .计次循环首 (strlen, i)<br />     cur ＝ 取文本中间 (str, i, 1)<br />     asc ＝ 取代码 (cur, )<br />     .判断开始 (asc ≥ 65 且 asc ≤ 70)<br />         dec ＝ asc － 55<br />     .判断 (asc ≥ 97 且 asc ≤ 102)<br />         dec ＝ asc － 87<br />     .默认<br />         dec ＝ 到整数 (cur)<br />     .判断结束<br />     operand.导入数字 (16)<br />     tmp ＝ operand<br />     .计次循环首 (strlen － i － 1, )<br />         operand ＝ operand.乘 (tmp)<br />     .计次循环尾 ()<br />     .如果真 (strlen － i ＝ 0)<br />         operand.导入数字 (1)<br />     .如果真结束<br />     tmp.导入数字 (dec)<br />     tmp ＝ tmp.乘 (operand)<br />     result ＝ result.加 (tmp)<br /> .计次循环尾 ()<br /> 返回 (result.导出文本 ())<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 被乘数, 大数<br /> .局部变量 乘数, 大数<br /> .局部变量 结果, 文本型<br /> <br /> 被乘数.导入文本 (进制_十六到十Ex (“811C9D81”))<br /> 乘数.导入文本 (进制_十六到十Ex (“1000193”))<br /> 结果 ＝ 被乘数.乘 (乘数).导出文本 ()<br /> 调试输出 (结果)<br /> 调试输出 (进制_十到十六Ex (结果, ))

zainex

代码没有问题：

虚心进步

samll88 发表于 2025-4-24 18:32
结果也是811D68C10BF210
我想要的结果是81 1D68 C10B F213

我下面不是贴了一个 汇编计算长整数的吗， 你直接复制，修改用函数调用 替换直接用 * 的方式

samll88

zainex 发表于 2025-4-24 18:40
代码没有问题：

我郁闷?为什么不一样

samll88

虚心进步 发表于 2025-4-24 18:42
我下面不是贴了一个 汇编计算长整数的吗， 你直接复制，修改用函数调用 替换直接用 * 的方式 ...

是这样吧,返回的的确是811D68C10BF210,和上面那个兄弟一样,我郁闷死了