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

羅蓋仙

5 f) u# p2 A0 C4 \

; \$ P0 t' x6 q. s$ ]9 b
. I9 F0 x( @$ w( V& E' T+ \十进制转换成二进制：
% ^, {8 ?! h; _* A* b+ q( W: @  e) j: U#1=181.(欲想转换成2进制的数值)
, X, t$ A; }* i#101=ABS[FIX[#1]]
  S, {% G% S1 R: G$ H& I5 h. `#33=501.(储存到#501～)
+ h( o+ N' Z0 M$ lWH[#101GE1.]DO1
! u7 X7 i6 S; n1 L3 @, d#[#33]=#101 MOD 2.
# E5 q8 K8 Y0 I7 N" B#101=FIX[#101/2.]
#33=#33+1.
END1
/ X8 @& s, p4 B/ O0 HM0
: I5 U$ k* L* @5 P
结果：
#501=1.(低位)
; b, y. A' _  K#502=0.
! U8 i  E$ R/ `/ I5 s( S" X- u3 G#503=1.
) q1 m0 ]9 U! a( Z0 A* V#504=0.
#505=1.
4 s" h; l- v6 b2 o1 j: S#506=1.
#507=0.
" K: x9 b" l/ q& M1 P5 M#508=1.(高位)
, @& b, N% R0 j3 K7 c' i
! G( u& b# P. w. [) }; @
以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
+ Y) a& E- h6 t1 o5 g#30=0.
WH[#101GE#10]DO1
, {7 K/ D+ ~; m. a#30=#30+1.
' K3 T. D7 N/ U/ y0 Y0 z#10=#10*10.
6 y; q% O9 r/ l5 l9 i; E( Y: rEND1
2 I, p% C& [$ d# v% [. z0 k#30=有4位数(#101有4位数)
M0

羅蓋仙

( S/ f$ `3 N# r8 Y) I; n2 m. i' v
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
  W5 o' }# N' t. C, f( J, F#101=ABS[FIX[#1]]
9 ?$ X1 v7 Q: X9 R% ]9 s#10=1.
#500=0.
WH[#101GT0.]DO1
; I. c0 S8 b" }# t0 e2 T7 ]9 X#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
' u4 S* T) k7 A3 v. g3 YEND1
( d7 l, G3 F# X* F# g6 g; W; A6 e8 YM0
* {! K, v2 L5 v  [& ]+ l: y
结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

, x6 ?9 y& I  U2 {/ i这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
# ^8 ?4 u% z. @9 M0 S: s* y＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
4 P. _9 e$ U( x3 V, C9 w* W# lIF[#31/#32GE2.]THEN#3000=200.
4 g" W/ ^0 Q7 j/ T9 X! q. |/ G: @WHILE[#32GE1.]DO1
1 T/ `; \# ]5 u# f+ ?#33=FIX[#31/#32]
$ V, n, h: u/ I) v0 m#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
* a; ]" R# b' @2 N% `9 g#32=#32/2.
' f/ {. Z/ ?- M) e/ Q( i#10=#10/10.
END1
3 q' L$ }4 v! U$ a6 V* cM30

$ A2 h9 B0 H5 A/ F- Z1 u" {还是有改良的空间

bruceding

回复 2# 羅蓋仙

  G% K0 u5 u5 F! r
, Z. Z  v+ t+ t% t9 }3 \, \+ W    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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