三个汇编 十转二 一个是福仔 一个绿鸭

cf2006a

  

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

变量名	类 型	静态	数组	备 注
bit	字节集
i	整数型

bit ＝ 取重复字节集 (32, { 48 })
计次循环首 (32, i)
如果真 (__query_bit (十进制数, i － 1))
bit [32 － i ＋ 1] ＝ 49

计次循环尾 ()
返回 (到文本 (bit))

子程序名	返回值类型	公开	备 注
__query_bit	逻辑型
参数名	类 型	参考	可空	数组	备 注
num	整数型
bit	字节型

置入代码 ({ 138, 77, 12, 51, 192, 128, 249, 32, 115, 14, 139, 69, 8, 133, 192, 116, 7, 51, 219, 67, 211, 227, 35, 195, 201, 194, 8, 0 })
返回 (假)

子程序名	返回值类型	公开	备 注
十转二_去零_06a	文本型
参数名	类 型	参考	可空	数组	备 注
十进制数	整数型

变量名	类 型	静态	数组	备 注
局_二进制	文本型

局_二进制 ＝ 取重复文本 (33, “0”)
置入代码 ({ 49, 219, 139, 85, 8, 133, 210, 116, 68, 127, 4, 247, 218, 183, 45, 185, 32, 0, 0, 0, 227, 55, 191, 1, 0, 0, 0, 211, 231, 33, 215, 116, 40, 131, 249, 32, 117, 4, 179, 1, 235, 32, 128, 251, 2, 127, 23, 128, 251, 0, 116, 4, 179, 49, 235, 2, 179, 48, 139, 69, 252, 128, 255, 45, 117, 4, 198, 0, 45, 64, 198, 0, 49, 64, 73, 235, 199, 136, 24, 198, 64, 1, 0, 139, 69, 252, 201, 194, 4, 0 })
返回 (局_二进制)

子程序名	返回值类型	公开	备 注
十转二	文本型
参数名	类 型	参考	可空	数组	备 注
十进制数	长整数型

变量名	类 型	静态	数组	备 注
temp	文本型

temp ＝ “                                                                ”
置入代码 ({ 86, 83, 139, 69, 8, 139, 85, 12, 139, 93, 252, 131, 195, 63, 137, 198, 9, 214, 116, 23, 80, 131, 224, 1, 131, 200, 48, 136, 3, 88, 75, 185, 1, 0, 0, 0, 232, 6, 0, 0, 0, 235, 227, 91, 94, 235, 33, 128, 249, 64, 115, 22, 128, 249, 32, 115, 6, 15, 173, 208, 211, 250, 195, 137, 208, 193, 250, 31, 128, 225, 31, 211, 248, 195, 193, 250, 31, 137, 208, 195 })
返回 (删首空 (temp))

.版本 2<br /> <br /> .子程序 进制_十到二, 文本型, 公开<br /> .参数 十进制数, 整数型<br /> .局部变量 bit, 字节集<br /> .局部变量 i, 整数型<br /> <br /> bit ＝ 取重复字节集 (32, { 48 })<br /> .计次循环首 (32, i)<br />     .如果真 (__query_bit (十进制数, i － 1))<br />         bit [32 － i ＋ 1] ＝ 49<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (到文本 (bit))<br /> <br /> .子程序 __query_bit, 逻辑型, 公开<br /> .参数 num, 整数型<br /> .参数 bit, 字节型<br /> <br /> 置入代码 ({ 138, 77, 12, 51, 192, 128, 249, 32, 115, 14, 139, 69, 8, 133, 192, 116, 7, 51, 219, 67, 211, 227, 35, 195, 201, 194, 8, 0 })<br /> 返回 (假)<br /> <br /> .子程序 十转二_去零_06a, 文本型<br /> .参数 十进制数, 整数型<br /> .局部变量 局_二进制, 文本型<br /> <br /> 局_二进制 ＝ 取重复文本 (33, “0”)<br /> 置入代码 ({ 49, 219, 139, 85, 8, 133, 210, 116, 68, 127, 4, 247, 218, 183, 45, 185, 32, 0, 0, 0, 227, 55, 191, 1, 0, 0, 0, 211, 231, 33, 215, 116, 40, 131, 249, 32, 117, 4, 179, 1, 235, 32, 128, 251, 2, 127, 23, 128, 251, 0, 116, 4, 179, 49, 235, 2, 179, 48, 139, 69, 252, 128, 255, 45, 117, 4, 198, 0, 45, 64, 198, 0, 49, 64, 73, 235, 199, 136, 24, 198, 64, 1, 0, 139, 69, 252, 201, 194, 4, 0 })<br /> 返回 (局_二进制)<br /> <br /> .子程序 十转二, 文本型<br /> .参数 十进制数, 长整数型<br /> .局部变量 temp, 文本型<br /> <br /> temp ＝ “                                                                ”<br /> 置入代码 ({ 86, 83, 139, 69, 8, 139, 85, 12, 139, 93, 252, 131, 195, 63, 137, 198, 9, 214, 116, 23, 80, 131, 224, 1, 131, 200, 48, 136, 3, 88, 75, 185, 1, 0, 0, 0, 232, 6, 0, 0, 0, 235, 227, 91, 94, 235, 33, 128, 249, 64, 115, 22, 128, 249, 32, 115, 6, 15, 173, 208, 211, 250, 195, 137, 208, 193, 250, 31, 128, 225, 31, 211, 248, 195, 193, 250, 31, 137, 208, 195 })<br /> 返回 (删首空 (temp))

“11111111111100001100110001011110” | “11110011001110100010” | “11110011001110100010”

第一个是福仔的 和 在线转换的结果不一样 这个是从精易模块扣出来的    第二是我的  第三是绿鸭的  不过绿鸭不支持负数 我的可以

goo

三个汇编 十转二 一个是福仔 一个绿鸭

cf2006a

.版本 2

.子程序 十转二_福仔, 文本型, 公开, 福仔同款
.参数 十进制数, 整数型
.局部变量 局_二进制, 文本型

局_二进制 ＝ 取重复文本 (32, “0”)
置入代码 ({ 139, 85, 8, 133, 210, 116, 28, 49, 201, 131, 192, 31, 131, 249, 31, 127, 18, 191, 1, 0, 0, 0, 211, 231, 33, 215, 116, 3, 198, 0, 49, 65, 72, 235, 233, 139, 69, 252, 201, 194, 4, 0 })
返回 (局_二进制)



.版本 2
.支持库 spec

.子程序 十进制到二进制, 文本型
.参数 十进制整数, 整数型
.局部变量 内存数据, 字节型, , "33"
.局部变量 i

.变量循环首 (32, 1, -1, i)
    内存数据 [i] ＝ 选择 (十进制整数 ％ 2 ＝ 1, 49, 48)
    十进制整数 ＝ 右移 (十进制整数, 1)
.变量循环尾 ()
返回 (指针到文本 (取变量数据地址 (内存数据)))

hmyroot

收集汇编进制转换，谢谢分享

初学易语言

谢谢分享

cf2006a

福仔 发表于 2020-11-1 10:43
我那个实现原理很简单, 一个整数32位, 循环32次判断每个位, 有1置1没1置0, 效率不是最高, 不过感觉最简单 ...

嗯这是用你的原理写的 一模一样

.版本 2

.子程序 十转二_正向_06a, 文本型, , 福仔同款
.参数 十进制数, 整数型
.局部变量 局_二进制, 文本型

局_二进制 ＝ 取重复文本 (32, “0”)
置入代码 ({ 139, 85, 8, 133, 210, 116, 28, 49, 201, 131, 192, 31, 131, 249, 31, 127, 18, 191, 1, 0, 0, 0, 211, 231, 33, 215, 116, 3, 198, 0, 49, 65, 72, 235, 233, 139, 69, 252, 201, 194, 4, 0 })
返回 (局_二进制)

外星星人

支持一下下

噢噢

感谢发布原创作品，精易因你更精彩！

福仔

cf2006a 发表于 2020-10-31 23:32
看错了 测试的时候 多个负号结果不一样 还有 福仔没去首  部 的零

我那个实现原理很简单, 一个整数32位, 循环32次判断每个位, 有1置1没1置0, 效率不是最高, 不过感觉最简单, 负数正数都支持

超级の赛亚人

支持。。。