易语言十进制转二进制

1、.版本 2

.子程序 十进制转二进制, 文本型

.参数 十进制, 整数型

.局部变量 二进制文本, 文本型

.局部变量 二进制, 文本型

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

    .如果 (十进制 ％ 2 ＝ 1)

        二进制 ＝ “1”

    .否则

        二进制 ＝ “0”

    .如果结束

    十进制 ＝ 取整 (十进制 ÷ 2)

    二进制文本 ＝ 二进制 ＋ 二进制文本

.判断循环尾 ()

二进制文本 ＝ “1” ＋ 二进制文本

返回 (二进制文本)