十进制转任意进制易语言源码

qq8533549

代码比较乱。大神勿喷。 我限制的范围是2-16进制之内

[HTML] 纯文本查看 复制代码

.版本 2

.子程序 十进制转任意进制, 文本型
.参数 十进制整数, 整数型
.参数 欲转换进制, 整数型, , 进制不得超过2-16范围
.局部变量 i, 整数型
.局部变量 n, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 s, 整数型
.局部变量 return, 文本型

.如果 (欲转换进制 ＞ 1 且 欲转换进制 ＜ 17)
n ＝ 到文本 (十进制整数)
.计次循环首 (9999999, i)
s ＝ 取整 (到整数 (n) ÷ 欲转换进制)
n ＝ 到文本 (到整数 (n) ％ 欲转换进制)
.如果真 (n ＝ “10”)
n ＝ “A”
.如果真结束
.如果真 (n ＝ “11”)
n ＝ “B”
.如果真结束
.如果真 (n ＝ “12”)
n ＝ “C”
.如果真结束
.如果真 (n ＝ “13”)
n ＝ “D”
.如果真结束
.如果真 (n ＝ “14”)
n ＝ “E”
.如果真结束
.如果真 (n ＝ “15”)
n ＝ “F”
.如果真结束
加入成员 (a, n)
.如果 (s ≠ 0)
n ＝ 到文本 (s)
.否则
跳出循环 ()
.如果结束

.计次循环尾 ()
return ＝ return ＋ 到文本 (a [取数组成员数 (a)])
.计次循环首 (取数组成员数 (a), i)
.如果真 (i ＝ 取数组成员数 (a))
跳出循环 ()
.如果真结束
return ＝ return ＋ 到文本 (a [取数组成员数 (a) － i])
.计次循环尾 ()
返回 (return)

.否则
信息框 (“欲转换进制超出范围！”, 0, )
返回 (“-1”)

十进制任意进制.rar (1.42 KB, 下载次数: 45)

2013-10-13 19:19 上传

点击文件名下载附件

axing

我来看下 不过好多模块都有的

qq8533549

axing 发表于 2013-10-13 20:33
我来看下 不过好多模块都有的

算法自己能理解是最好的。。 别为了方便全都调用模块。 到最后模块是怎么实现功能的都不知道。。 - -！
易语言的方便在于模块。。 悲哀也在于模块。

270286869

可以任意进制？

qq8533549

270286869 发表于 2013-10-13 22:09
可以任意进制？

可以任意进制。。 还有个任意进制转十进制的。 不知道是算法问题还是什么。。  数值比较小的时候是准确额。
只要数值大了就出错。。
给你代码贴给你看看。。
.版本 2

.子程序 _按钮1_被单击
.局部变量 转换数, 文本型
.局部变量 进制, 整数型
.局部变量 计次, 整数型
.局部变量 长度, 整数型
.局部变量 tmp, 文本型
.局部变量 return, 整数型

转换数 ＝ “ABCDAACCE”
进制 ＝ 16
长度 ＝ 取文本长度 (转换数)
.计次循环首 (长度, 计次)
    tmp ＝ 取文本中间 (转换数, 计次, 1)
    .如果真 (tmp ＝ “A”)
        tmp ＝ “10”
    .如果真结束
    .如果真 (tmp ＝ “B”)
        tmp ＝ “11”
    .如果真结束
    .如果真 (tmp ＝ “C”)
        tmp ＝ “12”
    .如果真结束
    .如果真 (tmp ＝ “D”)
        tmp ＝ “13”
    .如果真结束
    .如果真 (tmp ＝ “E”)
        tmp ＝ “14”
    .如果真结束
    .如果真 (tmp ＝ “F”)
        tmp ＝ “15”
    .如果真结束
    输出调试文本 (tmp)
    return ＝ return ＋ 到整数 (tmp) × 求次方 (进制, 长度 － 计次)

.计次循环尾 ()
输出调试文本 (return)

鈤丶後再說

感谢分享源码

zifeng0536

找了好久没找到这个源码
谢谢分享呀

258239234

多谢分享，用心学