十进制转换成二进制的小程序

羅蓋仙

4 l3 T* Z! x& N! _7 A: x


+ q! F: r7 N+ c5 M7 q( |8 j十进制转换成二进制：
* t, a+ Y! t% a) j! Z0 t8 J1 L#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
$ o) F6 l& ?7 X7 O; Y#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
% t8 T8 A0 K( `6 \9 H* y#33=#33+1.
END1
M0
$ J2 r  o( V3 K/ _7 |
结果：
#501=1.(低位)
" W8 J2 O7 C6 E; B#502=0.
#503=1.
#504=0.
#505=1.
; \. P1 E8 a7 }  v1 [# {8 h4 w#506=1.
#507=0.
: \  m: @4 W: g/ f) I#508=1.(高位)

: j2 N# X+ n0 _
以下为10进制，想得知＃101有几位数的小程序
#101=1234.
. R5 W1 [+ L& Q' X" ]8 ]9 u#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
3 u' j7 N# f# d3 p#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

; v% G" j. b# P
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
% p" }2 ^& R% t$ S5 t; }WH[#101GT0.]DO1
/ t$ @: {2 }, G$ W4 c" c' L5 \" a& u#500=#500+[#101 MOD 2.]*#10
& O' z) k& _- R#101=FIX[#101/2.]
# _" v" ~* S5 Y* c! o#10=#10*10.
! H0 \3 }8 Y1 d8 B% tEND1
M0
: o- @7 M2 g  I; ?8 X
( `) \( Y7 J) g& c结果：
% D1 @- D8 y. {/ y5 U#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
7 |, U$ [9 I- Q: U
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
; ^- Z4 t, R) L" z) u#10=10000000.
* S9 E/ k  |; u' {, p1 y#31=FIX[ABS[#1]]
) A2 M  r7 F& ]( ]* ^% B2 w! A3 e#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
6 f: k$ ]$ S( g7 X1 J#32=#32/2.
#10=#10/10.
END1
M30
; Z  d. W2 ^7 Z7 Y  H
. J* N; l* ^5 Q% i) T* m4 n3 t; `( Z还是有改良的空间

bruceding

回复 2# 羅蓋仙

# o& h+ }2 _8 d% m% G+ J
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

good..............