精易模块进制_十到二改进，增加了对负数的支持

藤未枯 · 发表于 2016-4-12 00:22:47

本帖最后由萧阳天于 2016-4-13 22:46 编辑

增加了负数的支持

子程序名	返回值类型	公开	备注
进制_十到二	文本型		支持负数
参数名	类型	参考	可空	数组	备注
十进制数	整数型

变量名	类型	静态	数组	备注
结果	文本型
余数	整数型
原码	文本型
长度	整数型
反码	文本型
i	整数型
转换	文本型
数组	整数型		0
补位长度	整数型
补位	文本型
成员数	整数型

如果真 (十进制数＜ 0)

原码＝进制_十到二 (取绝对值 (十进制数))

长度＝取文本长度 (原码)

补位长度＝ 64 －长度

i ＝ 0

计次循环首 (补位长度, i)

补位＝补位＋ “0”

计次循环尾 ()

原码＝补位＋原码

长度＝取文本长度 (原码)

i ＝ 0

计次循环首 (长度, i)

转换＝取文本中间 (原码, i, 1)

如果 (转换＝ “0”)

转换＝ “1”

转换＝ “0”

反码＝反码＋转换

计次循环尾 ()

长度＝取文本长度 (反码)

i ＝ 0

重定义数组 (数组, 假, 长度)

计次循环首 (长度, i)

数组 [i]＝到整数 (取文本中间 (反码, i, 1))

计次循环尾 ()

i ＝ 0

数组 [长度] ＝数组 [长度] ＋ 1

计次循环首 (长度, i)

如果真 (数组 [长度－ i ＋ 1] ＝ 2)

数组 [长度－ i ＋ 1] ＝ 0

数组 [长度－ i] ＝数组 [长度－ i] ＋ 1

计次循环尾 ()

成员数＝取数组成员数 (数组)

i ＝ 0

计次循环首 (成员数, i)

结果＝结果＋到文本 (数组 [i])

计次循环尾 ()

返回 (结果)

判断循环首 (十进制数＞ 1)

余数＝十进制数％ 2

十进制数＝十进制数 ÷ 2

结果＝到文本 (余数) ＋结果

判断循环尾 ()
结果＝到文本 (十进制数) ＋结果
返回 (结果)

.版本 2<br />
<br />
.子程序 进制_十到二, 文本型, 公开, 支持负数<br />
.参数 十进制数, 整数型<br />
.局部变量 结果, 文本型<br />
.局部变量 余数, 整数型<br />
.局部变量 原码, 文本型<br />
.局部变量 长度, 整数型<br />
.局部变量 反码, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 转换, 文本型<br />
.局部变量 数组, 整数型, , "0"<br />
.局部变量 补位长度, 整数型<br />
.局部变量 补位, 文本型<br />
.局部变量 成员数, 整数型<br />
<br />
.如果真 (十进制数 ＜ 0)<br />
    原码 ＝ 进制_十到二 (取绝对值 (十进制数))<br />
    长度 ＝ 取文本长度 (原码)<br />
    补位长度 ＝ 64 － 长度<br />
    i ＝ 0<br />
    .计次循环首 (补位长度, i)<br />
        补位 ＝ 补位 ＋ “0”<br />
    .计次循环尾 ()<br />
    原码 ＝ 补位 ＋ 原码<br />
    长度 ＝ 取文本长度 (原码)<br />
    i ＝ 0<br />
    .计次循环首 (长度, i)<br />
        转换 ＝ 取文本中间 (原码, i, 1)<br />
        .如果 (转换 ＝ “0”)<br />
            转换 ＝ “1”<br />
        .否则<br />
            转换 ＝ “0”<br />
        .如果结束<br />
        反码 ＝ 反码 ＋ 转换<br />
    .计次循环尾 ()<br />
    长度 ＝ 取文本长度 (反码)<br />
    i ＝ 0<br />
    重定义数组 (数组, 假, 长度)<br />
    .计次循环首 (长度, i)<br />
        数组 <i>＝ 到整数 (取文本中间 (反码, i, 1))<br />
    .计次循环尾 ()<br />
    i ＝ 0<br />
    数组 [长度] ＝ 数组 [长度] ＋ 1<br />
    .计次循环首 (长度, i)<br />
        .如果真 (数组 [长度 － i ＋ 1] ＝ 2)<br />
            数组 [长度 － i ＋ 1] ＝ 0<br />
            数组 [长度 － i] ＝ 数组 [长度 － i] ＋ 1<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
<br />
    成员数 ＝ 取数组成员数 (数组)<br />
    i ＝ 0<br />
    .计次循环首 (成员数, i)<br />
        结果 ＝ 结果 ＋ 到文本 (数组 <i>)<br />
    .计次循环尾 ()<br />
    返回 (结果)<br />
.如果真结束<br />
<br />
<br />
.判断循环首 (十进制数 ＞ 1)<br />
    余数 ＝ 十进制数 ％ 2<br />
    十进制数 ＝ 十进制数 ÷ 2<br />
    结果 ＝ 到文本 (余数) ＋ 结果<br />
.判断循环尾 ()<br />
结果 ＝ 到文本 (十进制数) ＋ 结果<br />
返回 (结果)