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

羅蓋仙

" }% I6 G/ g4 e$ V& M5 k2 B
4 R  y' k) i+ |5 H1 v

# [! h$ h7 l) i5 G- k. ]十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
; Q; k" l; u4 u% [# Q  i! C% s#33=501.(储存到#501～)
' w4 A  ~( d' q' QWH[#101GE1.]DO1
& j4 w- z9 r* _7 f#[#33]=#101 MOD 2.
% r8 J5 m" m8 i+ A2 X2 I8 [8 [#101=FIX[#101/2.]
#33=#33+1.
END1
0 L2 }7 T4 ]$ r7 i% ^6 _9 oM0
7 @+ O, |0 t$ [) @! y
2 E0 Y- |7 ~/ O结果：
9 {: ], u' R! l, q- ^#501=1.(低位)
#502=0.
- k/ a3 x/ z) }$ c& j#503=1.
#504=0.
#505=1.
#506=1.
#507=0.
' N2 F) J+ }% y% F0 f8 M* D#508=1.(高位)
+ @; z$ _# P! n+ w2 u) z% r( X! L9 a  u
* _4 Z- z8 t' i, l$ w/ P+ c$ V" x* H
以下为10进制，想得知＃101有几位数的小程序
' ]/ a+ U0 p9 K#101=1234.
0 b( I; V& z: \  X! g#10=1.(用1去比→用10去比→用100去比....)
, Z- s5 H# h5 [#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
: P* y7 h; ^4 `4 ?: l2 GM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
' R9 u4 Y& k& i+ d, |#101=ABS[FIX[#1]]
6 q% o/ B0 U& L" [/ @. S6 F/ c#10=1.
% u! Z5 n7 e' x#500=0.
" N' d3 y: }1 e. C7 u' D& y+ mWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
9 Q3 W3 W4 m" K#101=FIX[#101/2.]
( F2 r) o. m$ b% H, v: D$ V  ?. M, U#10=#10*10.
END1
! Q: G# v* P2 d5 n0 u5 S. RM0
3 w. C4 n# R0 [9 `& z
结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

" S' F( G5 Y% g) u  L8 g7 A5 @$ G这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
3 i' m3 k- n8 o1 h: o#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
% a7 v# k$ y1 L& p4 b% t: k: p: cWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
9 l, s" |5 a# J* t  v6 Z#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
M30
* A/ H7 f5 q& ^' @4 H. d' f1 v7 x+ g
还是有改良的空间

bruceding

回复 2# 羅蓋仙


    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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