- UID
- 19022
注册时间2006-7-24
阅读权限10
最后登录1970-1-1
周游历练
TA的每日心情 | 开心 2024-8-15 17:24 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
发表于 2007-11-24 16:43:08
|
显示全部楼层
.版本 2
.子程序 十六进制转十进制, 文本型
.参数 十六进制, 文本型
.局部变量 记次变量, 整数型
.局部变量 文本长度, 整数型
.局部变量 十六进制数, 整数型, , "0"
.局部变量 结果, 整数型
文本长度 = 取文本长度 (十六进制)
重定义数组 (十六进制数, 假, 文本长度)
.计次循环首 (取数组成员数 (十六进制数), 记次变量)
.判断开始 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “F”)
十六进制数 [记次变量] = 15
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “E”)
十六进制数 [记次变量] = 14
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “D”)
十六进制数 [记次变量] = 13
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “C”)
十六进制数 [记次变量] = 12
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “B”)
十六进制数 [记次变量] = 11
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “A”)
十六进制数 [记次变量] = 10
.判断 (取文本中间 (十六进制, 记次变量, 1) = “9”)
十六进制数 [记次变量] = 9
.判断 (取文本中间 (十六进制, 记次变量, 1) = “8”)
十六进制数 [记次变量] = 8
.判断 (取文本中间 (十六进制, 记次变量, 1) = “7”)
十六进制数 [记次变量] = 7
.判断 (取文本中间 (十六进制, 记次变量, 1) = “6”)
十六进制数 [记次变量] = 6
.判断 (取文本中间 (十六进制, 记次变量, 1) = “5”)
十六进制数 [记次变量] = 5
.判断 (取文本中间 (十六进制, 记次变量, 1) = “4”)
十六进制数 [记次变量] = 4
.判断 (取文本中间 (十六进制, 记次变量, 1) = “3”)
十六进制数 [记次变量] = 3
.判断 (取文本中间 (十六进制, 记次变量, 1) = “2”)
十六进制数 [记次变量] = 2
.判断 (取文本中间 (十六进制, 记次变量, 1) = “1”)
十六进制数 [记次变量] = 1
.判断 (取文本中间 (十六进制, 记次变量, 1) = “0”)
十六进制数 [记次变量] = 0
.默认
.判断结束
.计次循环尾 ()
.计次循环首 (文本长度 - 1, 记次变量)
结果 = 结果 + 求次方 (16, 文本长度 - 记次变量) × 十六进制数 [记次变量]
.计次循环尾 ()
结果 = 结果 + 十六进制数 [取数组成员数 (十六进制数)]
返回 (到文本 (结果)) |
|