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

羅蓋仙

; B+ d$ R  `" d5 ^2 n2 j" R3 P
& U% [. B2 K+ g; T3 f
7 z4 S& h3 t* P$ e9 n  o
" U+ Z. s* a4 b- Z5 l8 g: K% P0 N十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
" j- K2 H! j; U#101=ABS[FIX[#1]]
+ ]0 {$ c7 P! q" T. P#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
/ F/ m7 x* V+ p, V8 i; I7 o& `#101=FIX[#101/2.]
#33=#33+1.
END1
M0

结果：
#501=1.(低位)
9 z6 r$ ^7 a- Y' {5 b  u#502=0.
) u: K0 E( n0 k#503=1.
#504=0.
2 M$ `$ }/ {" n#505=1.
#506=1.
7 s+ b5 v$ K6 @/ N& P# Z#507=0.
#508=1.(高位)
& A5 n/ Z9 `- R, n3 D" ^4 L
( g8 O3 E2 u8 ~
+ M8 l1 K3 U* U$ `3 F+ U以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
& x8 L$ i0 n$ n9 `7 l) ?( x/ O/ ]#30=0.
WH[#101GE#10]DO1
+ b. i- E1 ^  U1 i) o#30=#30+1.
- M- X7 i1 u! ?1 P; i#10=#10*10.
+ n0 b0 F& g- ~& \; l) J! ?& [END1
) P& g) f5 C# S7 z) e9 o" y. ^1 |#30=有4位数(#101有4位数)
3 z$ [. R8 r: n! ]M0

羅蓋仙

# M4 l1 w- N; E5 z: X如果嫌10进制转换成2进制，占了太多变量番号的空间
$ {7 _5 I7 p7 l我把它修改了一下
- C/ Z1 H$ T+ I4 b; R: v#1=181.
; i" y" J* E: k9 x& ^  _, P4 e* P#101=ABS[FIX[#1]]
#10=1.
( x6 a  r7 v5 d4 \+ O#500=0.
* I! n, w( e3 p$ ?6 t6 B! F2 TWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
% n6 |) t+ j3 r: B" D% d#101=FIX[#101/2.]
#10=#10*10.
  w1 u  K: v7 [9 t! R$ DEND1
! S0 K( Q, o1 L6 Q9 b& s; OM0
1 |/ |" Z7 G# t5 v8 b' N
结果：
$ P+ h& K# F  L3 V#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
6 e& c7 ]% c$ G6 C, i0 \" n% A
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
7 D6 [5 u2 L0 _2 z＃1=181.
#10=10000000.
% y: z# ?0 ?( l) b4 T#31=FIX[ABS[#1]]
- k  O0 o& E3 Y3 w' q#32=128.
2 H/ M% e+ C& F# ?" {IF[#31/#32GE2.]THEN#3000=200.
5 |2 U' W! x# @7 e: XWHILE[#32GE1.]DO1
- L+ \: Z0 G' E; q8 A: [9 @#33=FIX[#31/#32]
" n4 ~( ]- n2 [4 ?! T" D4 H* `#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
% G9 X; f. ]8 P0 M#10=#10/10.
END1
) Z! i6 K9 U- S' L' pM30

6 C. C* f2 M1 h' Z6 f/ O$ {6 E还是有改良的空间

bruceding

回复 2# 羅蓋仙


5 G$ L) _; H0 p* u# b5 W& g9 j    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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