十六进制转十进制的代码计算的问题

wlp

炫雨 发表于 2023-8-10 23:35
能麻烦你跟我讲一下把A2C代入图片里面的代码之后的流程计算过程吗 ...

  

子程序名	返回值类型	公开	备 注
十六进制到十进制	整数型
参数名	类 型	参考	可空	数组	备 注
文本	文本型				不支持小写和空格

变量名	类 型	静态	数组	备 注
字符	文本型
i	整数型
表	文本型
字符数值	整数型
结果	整数型
n	整数型

结果 ＝ 0
表 ＝ “0123456789ABCDEF”
变量循环首 (0, 取文本长度 (文本), 1, i)
字符 ＝ 取文本中间 (文本, 取文本长度 (文本) － i, 1)
字符数值 ＝ 寻找文本 (表, 字符, , 假)
如果真 (字符数值 ＝ -1)  ' 无效的转换文本
返回 (0)
字符数值 ＝ 字符数值 － 1  ' 查表第一个是0，这里转换的也应该是0，不是1
结果 ＝ 结果 ＋ 字符数值 × 求次方 (16, i)
变量循环尾 ()
返回 (结果)

.版本 2<br /> <br /> .子程序 十六进制到十进制, 整数型<br /> .参数 文本, 文本型, , 不支持小写和空格<br /> .局部变量 字符, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 表, 文本型<br /> .局部变量 字符数值, 整数型<br /> .局部变量 结果, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 结果 ＝ 0<br /> 表 ＝ “0123456789ABCDEF”<br /> .变量循环首 (0, 取文本长度 (文本), 1, i)<br />     字符 ＝ 取文本中间 (文本, 取文本长度 (文本) － i, 1)<br />     字符数值 ＝ 寻找文本 (表, 字符, , 假)<br />     .如果真 (字符数值 ＝ -1)  ' 无效的转换文本<br />         返回 (0)<br />     .如果真结束<br />     字符数值 ＝ 字符数值 － 1  ' 查表第一个是0，这里转换的也应该是0，不是1<br />     结果 ＝ 结果 ＋ 字符数值 × 求次方 (16, i)<br /> .变量循环尾 ()<br /> 返回 (结果)

补充内容 (2023-8-11 03:39):
变量循环首，取文本长度 (文本) 要改成  取文本长度 (文本)-1

wlp

  

子程序名	返回值类型	公开	备 注
十六进制到十进制	长整数型
参数名	类 型	参考	可空	数组	备 注
文本	文本型				不支持小写和空格

变量名	类 型	静态	数组	备 注
字符	文本型
i	整数型
表	文本型
字符数值	整数型
结果	长整数型
n	整数型
k	整数型

结果 ＝ 0
表 ＝ “0123456789ABCDEF”
变量循环首 (0, 取文本长度 (文本) － 1, 1, i)
字符 ＝ 取文本中间 (文本, 取文本长度 (文本) － i, 1)
字符数值 ＝ 寻找文本 (表, 字符, , 假)
如果真 (字符数值 ＝ -1)  ' 无效的转换文本
返回 (0)
字符数值 ＝ 字符数值 － 1  ' 查表第一个是0，这里转换的也应该是0，不是1
' -----方式1-----------
' 结果 ＝ 结果 ＋ 字符数值 × 求次方 (16, i)
' -----方式2-----------
判断 (i ＝ 0)
k ＝ 0
k ＝ k ＋ 4
结果 ＝ 结果 ＋ 左移 (字符数值, k)
变量循环尾 ()
返回 (结果)
前面的循环多一次，这个修改过来了，这个效率更高

.版本 2<br /> <br /> .子程序 十六进制到十进制, 长整数型<br /> .参数 文本, 文本型, , 不支持小写和空格<br /> .局部变量 字符, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 表, 文本型<br /> .局部变量 字符数值, 整数型<br /> .局部变量 结果, 长整数型<br /> .局部变量 n, 整数型<br /> .局部变量 k, 整数型<br /> <br /> 结果 ＝ 0<br /> 表 ＝ “0123456789ABCDEF”<br /> .变量循环首 (0, 取文本长度 (文本) － 1, 1, i)<br />     字符 ＝ 取文本中间 (文本, 取文本长度 (文本) － i, 1)<br />     字符数值 ＝ 寻找文本 (表, 字符, , 假)<br />     .如果真 (字符数值 ＝ -1)  ' 无效的转换文本<br />         返回 (0)<br />     .如果真结束<br />     字符数值 ＝ 字符数值 － 1  ' 查表第一个是0，这里转换的也应该是0，不是1<br />     ' -----方式1-----------<br />     ' 结果 ＝ 结果 ＋ 字符数值 × 求次方 (16, i)<br />     ' -----方式2-----------<br />     .判断开始 (i ＝ 0)<br />         k ＝ 0<br />     .默认<br />         k ＝ k ＋ 4<br />     .判断结束<br />     结果 ＝ 结果 ＋ 左移 (字符数值, k)<br /> .变量循环尾 ()<br /> 返回 (结果)<br /> <br /> <br /> 前面的循环多一次，这个修改过来了，这个效率更高

炫雨

上面不够详细，我自己写出来吧，哈哈哈，各位哥哥，我只是想知道我的代码的过程，不是想要别的方式，答非所问呀

炫雨

这样才是解答的过程呀

炫雨

另外的写法，自己写出来的，可以参考一下

chenyucheng

计数单位相加