- 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, 文本长度 - 记次变量) × 十六进制数 [记次变量] 
.计次循环尾 () 
结果 = 结果 + 十六进制数 [取数组成员数 (十六进制数)] 
返回 (到文本 (结果)) |   
 
 
 
 |