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

羅蓋仙

6 Z2 `5 \, {& K" B) v  C3 G

, \8 L6 E4 V* p/ H十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
- U2 y, T' I+ H# c, j#101=ABS[FIX[#1]]
1 H% a- O" R# L& ]/ F* o#33=501.(储存到#501～)
, N4 ?1 a1 g, T: N# j+ eWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
9 K% B* E: g4 O: `0 B) A#101=FIX[#101/2.]
0 o+ d7 m: n9 ?2 Q3 L3 H1 ]#33=#33+1.
END1
M0

结果：
/ G& ]7 Q# V: p#501=1.(低位)
#502=0.
#503=1.
/ `, ?4 r. F" L, U: y, f% X" o  s" e% b5 \#504=0.
5 W8 [4 J* L2 [' C9 m$ _; x5 K$ m: ^#505=1.
9 u6 Q6 w- O/ G8 t# R; f#506=1.
#507=0.
#508=1.(高位)
* j' m( i) K* J5 L" }7 m8 ^' `
* {* W2 g4 L3 {; E) j
( ]8 d8 E: w1 Y* w9 V* S  v以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
6 _, Z* g) l0 C( x3 ]#30=0.
- \8 p+ S  x1 [7 q: \WH[#101GE#10]DO1
0 C2 R) n& A* [) b: A/ |" @#30=#30+1.
#10=#10*10.
END1
2 X  K5 Z/ l# j/ X#30=有4位数(#101有4位数)
M0

羅蓋仙

2 i8 C, w! k, M% o5 N
0 Y- k* p+ ]; ?+ Z8 r' ^如果嫌10进制转换成2进制，占了太多变量番号的空间
$ X/ U% v+ }! p4 B, f% K" P我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
# e- C1 u, F0 I' e- F#10=1.
1 F5 v8 D# Q# Z' G4 N- b6 V#500=0.
WH[#101GT0.]DO1
0 c3 p( U- T8 j( S#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
! I# R" c3 R) F) A3 v% A#10=#10*10.
END1
" T8 P3 S+ Z- }' {5 ^& ?! ~M0

结果：
0 X8 `( M  Y' l7 B4 A#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
1 ^- R; M' Z3 ]. v＃1=181.
#10=10000000.
* \' U2 I' a( S+ {( x#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
+ t1 g5 s  `" F6 G! S7 ?) y9 f#31=#31-#32*[#33EQ1.]
0 j7 O' `3 j( z0 N#32=#32/2.
2 G) N0 T2 |  S) I#10=#10/10.
END1
: x! l/ q; z* ]: U. pM30
0 z; _9 m7 i5 _5 L% |5 ]
1 g6 V8 Z- o& l1 Z# q" I还是有改良的空间

bruceding

回复 2# 羅蓋仙


6 `* c9 _# B5 u# F4 N4 n" p4 E    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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