进制互相转换

jian1210

任意进制转换到10进制，10进制转换到任意进制，可通过组合实现任意进制间的转换，比如2进制转16进制，先2进制转10进制再10进制转16进制

  

子程序名	返回值类型	公开	备 注
十进制转换	文本型		返回转换完成的值
参数名	类 型	参考	可空	数组	备 注
c_float	双精度小数型				十进制源值
c_进制	整数型				目标进制
c_精确位数	整数型				小数部分转换精确到的位数

变量名	类 型	静态	数组	备 注
j_整数部分	整数型
j_小数部分	双精度小数型
j_to_int	文本型
j_to_float	文本型
j_商	整数型
j_余	整数型
j_txt	文本型

j_整数部分 ＝ 绝对取整 (c_float)
j_小数部分 ＝ c_float － j_整数部分
' 处理整数部分(取余法)
如果 (j_整数部分 ＞ 0)
判断循环首 (j_整数部分 ＞ 0)
j_商 ＝ j_整数部分 ＼ c_进制
如果真 (j_商 ＝ 0)
进制映射互转表 (j_txt, j_整数部分 ＋ 1, 1)
j_to_int ＝ j_txt ＋ j_to_int
跳出循环 ()
j_余 ＝ j_整数部分 ％ c_进制
进制映射互转表 (j_txt, j_余 ＋ 1, 1)
j_to_int ＝ j_txt ＋ j_to_int
j_整数部分 ＝ j_商
判断循环尾 ()
j_to_int ＝ “0”
' 处理小数部分（取整法）
如果真 (j_小数部分 ≠ 0)
计次循环首 (c_精确位数, )
j_小数部分 ＝ j_小数部分 × c_进制
j_整数部分 ＝ 绝对取整 (j_小数部分)
j_小数部分 ＝ j_小数部分 － j_整数部分
进制映射互转表 (j_txt, j_整数部分 ＋ 1, 1)
j_to_float ＝ j_to_float ＋ j_txt
如果真 (j_小数部分 ＝ 0)
跳出循环 ()

计次循环尾 ()

' 返回处理完的结果
如果真 (j_to_float ≠ “”)
返回 (j_to_int ＋ “.” ＋ j_to_float)
返回 (j_to_int)

子程序名	返回值类型	公开	备 注
转换到十进制	双精度小数型		返回转换完成的值
参数名	类 型	参考	可空	数组	备 注
c_char	文本型				十进制源值
c_进制	整数型				目标进制
c_精确位数	整数型				小数部分转换精确到的位数

变量名	类 型	静态	数组	备 注
j_整数部分	文本型
j_小数部分	文本型
j_位置	整数型
j_to_float	双精度小数型
j_txt	文本型
j_值	整数型
i	整数型

' 使用位权展开法
' 分别取出整数小数部分
j_位置 ＝ 寻找文本 (c_char, “.”, 1, 假)
如果 (j_位置 ≠ -1)
j_整数部分 ＝ 取文本左边 (c_char, j_位置 － 1)
j_小数部分 ＝ 取文本右边 (c_char, 取文本长度 (c_char) － j_位置)
j_整数部分 ＝ c_char

' 处理整数部分（从右向左，幂指数从0开始递增）
如果真 (j_整数部分 ≠ “”)
j_位置 ＝ 取文本长度 (j_整数部分)
计次循环首 (j_位置, i)
进制映射互转表 (取文本中间 (j_整数部分, j_位置 － i ＋ 1, 1), j_值, 2)
j_to_float ＝ j_to_float ＋ j_值 × 求次方 (c_进制, i － 1)
计次循环尾 ()
' 处理小数部分（从左向右，幂指数从-1开始递增）
如果真 (j_小数部分 ≠ “”)
j_位置 ＝ 取文本长度 (j_小数部分)
计次循环首 (j_位置, i)
进制映射互转表 (取文本中间 (j_小数部分, i, 1), j_值, 2)
j_to_float ＝ j_to_float ＋ j_值 × 求次方 (c_进制, 0 － i)
如果真 (c_精确位数 ＝ i)
跳出循环 ()

计次循环尾 ()

返回 (j_to_float)

子程序名	返回值类型	公开	备 注
进制映射互转表
参数名	类 型	参考	可空	数组	备 注
c_文本	文本型
c_整数	整数型
c_类型	整数型				转换类型：1整数转到文本；2文本转到整数

变量名	类 型	静态	数组	备 注
j_表	文本型		0
i	整数型

' 要支持更大进制转换可对表进行拓展
j_表 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q” }
判断 (c_类型 ＝ 1)
c_文本 ＝ j_表 [c_整数]
判断 (c_类型 ＝ 2)
计次循环首 (取数组成员数 (j_表), i)
如果真 (c_文本 ＝ j_表 [i])
c_整数 ＝ i － 1
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .子程序 十进制转换, 文本型, , 返回转换完成的值<br /> .参数 c_float, 双精度小数型, , 十进制源值<br /> .参数 c_进制, 整数型, , 目标进制<br /> .参数 c_精确位数, 整数型, 可空, 小数部分转换精确到的位数<br /> .局部变量 j_整数部分, 整数型<br /> .局部变量 j_小数部分, 双精度小数型<br /> .局部变量 j_to_int, 文本型<br /> .局部变量 j_to_float, 文本型<br /> .局部变量 j_商, 整数型<br /> .局部变量 j_余, 整数型<br /> .局部变量 j_txt, 文本型<br /> <br /> j_整数部分 ＝ 绝对取整 (c_float)<br /> j_小数部分 ＝ c_float － j_整数部分<br /> <br /> ' 处理整数部分(取余法)<br /> .如果 (j_整数部分 ＞ 0)<br />     .判断循环首 (j_整数部分 ＞ 0)<br />         j_商 ＝ j_整数部分 ＼ c_进制<br />         .如果真 (j_商 ＝ 0)<br />             进制映射互转表 (j_txt, j_整数部分 ＋ 1, 1)<br />             j_to_int ＝ j_txt ＋ j_to_int<br />             跳出循环 ()<br />         .如果真结束<br />         j_余 ＝ j_整数部分 ％ c_进制<br />         进制映射互转表 (j_txt, j_余 ＋ 1, 1)<br />         j_to_int ＝ j_txt ＋ j_to_int<br />         j_整数部分 ＝ j_商<br />     .判断循环尾 ()<br /> .否则<br />     j_to_int ＝ “0”<br /> .如果结束<br /> ' 处理小数部分（取整法）<br /> .如果真 (j_小数部分 ≠ 0)<br />     .计次循环首 (c_精确位数, )<br />         j_小数部分 ＝ j_小数部分 × c_进制<br />         j_整数部分 ＝ 绝对取整 (j_小数部分)<br />         j_小数部分 ＝ j_小数部分 － j_整数部分<br />         进制映射互转表 (j_txt, j_整数部分 ＋ 1, 1)<br />         j_to_float ＝ j_to_float ＋ j_txt<br />         .如果真 (j_小数部分 ＝ 0)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> ' 返回处理完的结果<br /> .如果真 (j_to_float ≠ “”)<br />     返回 (j_to_int ＋ “.” ＋ j_to_float)<br /> .如果真结束<br /> 返回 (j_to_int)<br /> <br /> .子程序 转换到十进制, 双精度小数型, , 返回转换完成的值<br /> .参数 c_char, 文本型, , 十进制源值<br /> .参数 c_进制, 整数型, , 目标进制<br /> .参数 c_精确位数, 整数型, 可空, 小数部分转换精确到的位数<br /> .局部变量 j_整数部分, 文本型<br /> .局部变量 j_小数部分, 文本型<br /> .局部变量 j_位置, 整数型<br /> .局部变量 j_to_float, 双精度小数型<br /> .局部变量 j_txt, 文本型<br /> .局部变量 j_值, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' 使用位权展开法<br /> ' 分别取出整数小数部分<br /> j_位置 ＝ 寻找文本 (c_char, “.”, 1, 假)<br /> .如果 (j_位置 ≠ -1)<br />     j_整数部分 ＝ 取文本左边 (c_char, j_位置 － 1)<br />     j_小数部分 ＝ 取文本右边 (c_char, 取文本长度 (c_char) － j_位置)<br /> .否则<br />     j_整数部分 ＝ c_char<br /> .如果结束<br /> <br /> ' 处理整数部分（从右向左，幂指数从0开始递增）<br /> .如果真 (j_整数部分 ≠ “”)<br />     j_位置 ＝ 取文本长度 (j_整数部分)<br />     .计次循环首 (j_位置, i)<br />         进制映射互转表 (取文本中间 (j_整数部分, j_位置 － i ＋ 1, 1), j_值, 2)<br />         j_to_float ＝ j_to_float ＋ j_值 × 求次方 (c_进制, i － 1)<br />     .计次循环尾 ()<br /> .如果真结束<br /> ' 处理小数部分（从左向右，幂指数从-1开始递增）<br /> .如果真 (j_小数部分 ≠ “”)<br />     j_位置 ＝ 取文本长度 (j_小数部分)<br />     .计次循环首 (j_位置, i)<br />         进制映射互转表 (取文本中间 (j_小数部分, i, 1), j_值, 2)<br />         j_to_float ＝ j_to_float ＋ j_值 × 求次方 (c_进制, 0 － i)<br />         .如果真 (c_精确位数 ＝ i)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> 返回 (j_to_float)<br /> <br /> .子程序 进制映射互转表<br /> .参数 c_文本, 文本型, 参考<br /> .参数 c_整数, 整数型, 参考<br /> .参数 c_类型, 整数型, , 转换类型：1整数转到文本；2文本转到整数<br /> .局部变量 j_表, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 要支持更大进制转换可对表进行拓展<br /> j_表 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q” }<br /> .判断开始 (c_类型 ＝ 1)<br />     c_文本 ＝ j_表 [c_整数]<br /> .判断 (c_类型 ＝ 2)<br />     .计次循环首 (取数组成员数 (j_表), i)<br />         .如果真 (c_文本 ＝ j_表 <i>)<br />             c_整数 ＝ i － 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束

进制转换.e (8.54 KB, 下载次数: 7, 售价: 1 枚 精币)

前天 18:07 上传

点击文件名下载附件

hehz977

感谢分享....

胖子葛格

感谢大神分享~！

kyo9766

学习一下原理，感谢分享

qqmqqg

66666666666666

wgqxj

谢谢分享

year1970

感谢分享

素顏じ亦傾國ジ

计算机是二进制，我们用的好像是十进制

wh1234567

感谢分享....