进制转换(易语言)由EPL编写。

stillness

遵循CPOL开源 / 转载请注明出处
    E-mail: windowsvipcuv@live.cn

  

子程序名	返回值类型	公开	备 注
itoa	文本型
参数名	类 型	参考	可空	数组	备 注
value	整数型
radix	整数型

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型
size	整数型
len	整数型
buffer	字节型		0
keys	字节型		0
asc	字节型

len ＝ value
循环判断首 ()
len ＝ len ÷ radix
size ＝ size ＋ 1
循环判断尾 (len ＞ 0)
len ＝ size
重定义数组 (buffer, 假, size)
keys ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70 }
计次循环首 (len, i)
buffer [i] ＝ keys [value ％ radix ＋ 1]
value ＝ value ÷ radix
计次循环尾 ()
len ＝ size ÷ 2
计次循环首 (len, i)
n ＝ size － i ＋ 1
asc ＝ buffer [i]
buffer [i] ＝ buffer [n]
buffer [n] ＝ asc
计次循环尾 ()
返回 (到文本 (buffer))

.版本 2<br /> <br /> .子程序 itoa, 文本型<br /> .参数 value, 整数型<br /> .参数 radix, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 size, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 buffer, 字节型, , "0"<br /> .局部变量 keys, 字节型, , "0"<br /> .局部变量 asc, 字节型<br /> <br /> len ＝ value<br /> .循环判断首 ()<br />     len ＝ len ÷ radix<br />     size ＝ size ＋ 1<br /> .循环判断尾 (len ＞ 0)<br /> len ＝ size<br /> 重定义数组 (buffer, 假, size)<br /> keys ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70 }<br /> .计次循环首 (len, i)<br />     buffer <i> ＝ keys [value ％ radix ＋ 1]<br />     value ＝ value ÷ radix<br /> .计次循环尾 ()<br /> len ＝ size ÷ 2<br /> .计次循环首 (len, i)<br />     n ＝ size － i ＋ 1<br />     asc ＝ buffer <i><br />     buffer <i> ＝ buffer [n]<br />     buffer [n] ＝ asc<br /> .计次循环尾 ()<br /> 返回 (到文本 (buffer))

123.rar (1.2 KB, 下载次数: 34)

2014-12-26 15:06 上传

点击文件名下载附件

兴雨

谢谢分享下载学习

cdweng

谢谢分享下载学习

xsd

这个好东西必须赞

吃干饭的锅

十进制转其他进制？