开源一套进制十六到十

开源一套进制十六到十如果开发者对于本文件有需要的可以参考，核心源码都在附件了 开源供其他兄弟们学习一下 取值范围也比原原本计算出来的提高了一轮。
.子程序 十到十六Ex, 文本型, , 进制_十到十六
.参数 十进制数, 长整数型, 参考
.局部变量 余数数组, 文本型, 静态, "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，则跳出循环。
跳出循环 ()
.如果真结束
.判断循环尾 ()