十进制到十六进制(十到十六)，支持无限长度十进制

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 (“3207357975641587136122466514425152961654613410728337142271750273124995105747053991640817066352343657398947248938255086358418100814441196784643527787764297”, ))

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 /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (进制_十到十六Ex (“3207357975641587136122466514425152961654613410728337142271750273124995105747053991640817066352343657398947248938255086358418100814441196784643527787764297”, ))

LWB666

  

子程序名	返回值类型	公开	备 注
进制_十六到十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.导出文本 ())

i支持库列表	支持库注释
eCalc	数值计算支持库

.版本 2<br /> .支持库 eCalc<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.导出文本 ())

bianyuan456

已经顶贴，感谢您对论坛的支持！

不离01

66666666666666666666666

year1970

感谢分享

renhe2018

感谢分享，好东东啊

涤尘

感谢分享

kike

精易有你更精彩

qqmqqg

66666666666666666666

涤尘

感谢分享