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

羅蓋仙

; H5 N- A/ Y- _. u9 C: z* u7 G9 n( w
# C. {1 L( S8 s9 h3 L; g- I% C9 n
$ c5 H8 U% x/ B( g- N8 Z/ V$ C. w
6 u$ ~  f8 ]) W5 F; [" E8 Q  d+ i十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
6 r: E0 w7 P$ l  V#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
M0
1 W! b6 v7 o1 [  }- n. w
5 z: z, r$ f( `' q# p结果：
#501=1.(低位)
! _2 U- ~) i" O7 U+ E0 j2 t1 t3 {#502=0.
#503=1.
( G: z1 E" j: g! d#504=0.
#505=1.
#506=1.
6 h5 C$ _. r, }6 _! I8 L. t#507=0.
#508=1.(高位)
' E) p% w- M$ R1 F& p0 v

以下为10进制，想得知＃101有几位数的小程序
' d# S! d- t* @9 x2 f, |- a#101=1234.
+ a; V' Z% t1 [; g1 o* O#10=1.(用1去比→用10去比→用100去比....)
; g& |4 m  a6 W2 u- H7 b3 L( k: ]#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

8 l# N2 U% k/ p; ]$ t" d: e
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
# U* w" S, S9 u5 b! G' M7 N#101=ABS[FIX[#1]]
#10=1.
) n! j* z8 e) S#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
" W( w+ z+ o" C  v5 h#101=FIX[#101/2.]
#10=#10*10.
END1
M0
, D8 v1 C6 J' g. z
4 Y9 C! j/ y2 J2 I6 u. i$ m6 [结果：
  J) Y  O" s; i#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
6 g: V* D+ s" u: P#32=128.
IF[#31/#32GE2.]THEN#3000=200.
" H( H" D0 m' K' _1 h9 V5 [WHILE[#32GE1.]DO1
5 d3 Z. t( n! o  G3 F9 L#33=FIX[#31/#32]
: P( q/ C4 F3 r* t#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
1 ^$ v2 d$ q* a0 h) {0 W#10=#10/10.
# r) l2 }1 q- a, |& f5 VEND1
M30
$ }$ b, U& s. k' x
: M4 n7 c. t0 w9 M2 G; J" }! R还是有改良的空间

bruceding

回复 2# 羅蓋仙


; a5 U0 K& D9 ^* w) d- n3 `    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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