负十进制转二进制

杨曙光

那位大佬帮帮我，十进制可以转二进制，但是负十进制没发转 只知道第一步先把负数转成正数 第二步求反比如32的二进制是00100000  那负32就是11011111 然后加1  负32的2进制就是1100000  只知道就是不会编写哪位大佬帮帮我

神女软件定制

两个版本，下面这个简单点

神女软件定制

负32的2进制怎么就是1100000呢？

杨曙光

神一样的女人 发表于 2020-7-22 23:20
负32的2进制怎么就是1100000呢？

只取后8位就可以啦 之前有好多个1可以省略啦

梦寻简单

  

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

变量名	类 型	静态	数组	备 注
bin	字节集
i	整数型
len	整数型
返回值	文本型

bin ＝ 到字节集 (参数)
len ＝ 取字节集长度 (bin)
计次循环首 (len, i)
返回值 ＝ 返回值 ＋ 十进制到二进制 (bin [len － i ＋ 1])
计次循环尾 ()
返回 (返回值)

.版本 2<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 参数, 整数型<br /> .局部变量 bin, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> bin ＝ 到字节集 (参数)<br /> len ＝ 取字节集长度 (bin)<br /> .计次循环首 (len, i)<br />     返回值 ＝ 返回值 ＋ 十进制到二进制 (bin [len － i ＋ 1])<br /> .计次循环尾 ()<br /> 返回 (返回值)

神女软件定制

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (到二进制 (-32))  ' 11100000
调试输出 (到二进制 (-1))  ' 11111111

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

返回 (进制转换 (到文本 (位与 (c, 255)), 10, 2))

子程序名	返回值类型	公开	备 注
进制转换	文本型		有0-Z之外的值，将计算错误，也就是最大为36(10+26)进制
参数名	类 型	参考	可空	数组	备 注
cs_转换源	文本型
cs_转换源进制	整数型
cs_转换到进制	整数型

变量名	类 型	静态	数组	备 注
jb_基数	文本型
jb_长度	整数型
jb_计次	整数型
jb_转换源10进制	整数型
jb_转换结果	文本型

jb_基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”
如果 (是否为空 (cs_转换源进制) 或 cs_转换源进制 ＝ 10)
jb_转换源10进制 ＝ 到整数 (cs_转换源)
jb_长度 ＝ 取文本长度 (cs_转换源)
计次循环首 (jb_长度, jb_计次)
jb_转换源10进制 ＝ jb_转换源10进制 ＋ 求次方 (cs_转换源进制, jb_长度 － jb_计次) �� (寻找文本 (jb_基数, 取文本中间 (cs_转换源, jb_计次, 1), , 真) － 1)  ' 各位值*位权 得出10进制数
计次循环尾 ()

如果 (是否为空 (cs_转换到进制) 或 cs_转换到进制 ＝ 10)
jb_转换结果 ＝ 到文本 (jb_转换源10进制)
循环判断首 ()
jb_转换结果 ＝ 取文本中间 (jb_基数, jb_转换源10进制 ％ cs_转换到进制 ＋ 1, 1) ＋ jb_转换结果  ' 除X取余法
jb_转换源10进制 ＝ jb_转换源10进制 ＼ cs_转换到进制
循环判断尾 (jb_转换源10进制 ≠ 0)
返回 (jb_转换结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (到二进制 (-32))  ' 11100000<br /> 调试输出 (到二进制 (-1))  ' 11111111<br /> <br /> .子程序 到二进制, 文本型<br /> .参数 c, 字节型<br /> <br /> 返回 (进制转换 (到文本 (位与 (c, 255)), 10, 2))<br /> <br /> .子程序 进制转换, 文本型, , 有0-Z之外的值，将计算错误，也就是最大为36(10+26)进制<br /> .参数 cs_转换源, 文本型<br /> .参数 cs_转换源进制, 整数型, 可空<br /> .参数 cs_转换到进制, 整数型, 可空<br /> .局部变量 jb_基数, 文本型<br /> .局部变量 jb_长度, 整数型<br /> .局部变量 jb_计次, 整数型<br /> .局部变量 jb_转换源10进制, 整数型<br /> .局部变量 jb_转换结果, 文本型<br /> <br /> jb_基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”<br /> .如果 (是否为空 (cs_转换源进制) 或 cs_转换源进制 ＝ 10)<br />     jb_转换源10进制 ＝ 到整数 (cs_转换源)<br /> .否则<br />     jb_长度 ＝ 取文本长度 (cs_转换源)<br />     .计次循环首 (jb_长度, jb_计次)<br />         jb_转换源10进制 ＝ jb_转换源10进制 ＋ 求次方 (cs_转换源进制, jb_长度 － jb_计次) × (寻找文本 (jb_基数, 取文本中间 (cs_转换源, jb_计次, 1), , 真) － 1)  ' 各位值*位权 得出10进制数<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> .如果 (是否为空 (cs_转换到进制) 或 cs_转换到进制 ＝ 10)<br />     jb_转换结果 ＝ 到文本 (jb_转换源10进制)<br /> .否则<br />     .循环判断首 ()<br />         jb_转换结果 ＝ 取文本中间 (jb_基数, jb_转换源10进制 ％ cs_转换到进制 ＋ 1, 1) ＋ jb_转换结果  ' 除X取余法<br />         jb_转换源10进制 ＝ jb_转换源10进制 ＼ cs_转换到进制<br />     .循环判断尾 (jb_转换源10进制 ≠ 0)<br /> .如果结束<br /> 返回 (jb_转换结果)