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

羅蓋仙

% W8 R! ]2 i' U% o, K5 X7 f
; z9 |( r) e6 e- }2 o
4 H0 t# B, k% K0 {. @2 C' v: V8 Z
+ Q, U% ?; x6 z, i* ~十进制转换成二进制：
/ b( d) U: d4 }: W3 ^( m7 ]+ C) \#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
( j9 b# O; `- x+ {* r5 i#33=#33+1.
END1
M0
  ?9 {0 n- w* Z
结果：
5 t, H" j$ N4 W" ~7 H#501=1.(低位)
#502=0.
#503=1.
) L' a- {7 F0 @( n- ~) c#504=0.
#505=1.
#506=1.
( E; S; F2 w9 T. @) {#507=0.
#508=1.(高位)

5 C) m* H) n9 o3 h* w- G
以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
' a- J1 _9 n' o; Q1 L#30=0.
WH[#101GE#10]DO1
- Y* @1 \1 O, q) G3 l" _$ P$ b#30=#30+1.
#10=#10*10.
  X7 y+ J4 k  J; \7 O  I# ]8 QEND1
+ i1 u5 D" ]+ G7 \#30=有4位数(#101有4位数)
. @$ F, P. t, PM0

羅蓋仙

7 U' |# M( u' x6 V0 K5 s5 ]
0 n  p' B: k; X; T; `如果嫌10进制转换成2进制，占了太多变量番号的空间
0 ~  ]6 S9 b/ H# g( e- M( O0 d6 O我把它修改了一下
#1=181.
/ [7 x0 n& }) E8 ?6 r* k7 f; b+ F#101=ABS[FIX[#1]]
8 K+ u' V, j6 z7 M0 _#10=1.
+ t! D  \$ {, n, @#500=0.
2 |3 Q9 a1 s* a6 ]4 BWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
' p9 K9 C/ w/ m( ]#10=#10*10.
END1
M0

结果：
! z5 q/ u/ |0 n& l) W2 S, B#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
: S4 i( k" {; q8 ^+ {) t
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
8 Z6 g' q6 L7 ?) `2 |＃1=181.
8 E3 q2 V1 @( D#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
+ g) F$ f) {- _+ XWHILE[#32GE1.]DO1
1 H9 u. z. R. N. `, g#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
3 A! N& g9 s5 f9 C#32=#32/2.
3 X1 w% T3 Z. d#10=#10/10.
( F! g* S/ f% @$ Q9 QEND1
8 a) `5 K0 s9 ?- V7 {M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
* x4 ?, h2 N1 w* p5 L
% N& n- ?: m  R8 m' r: z/ R) q/ o
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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