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

羅蓋仙

7 V0 o% T- j, g( y7 Y  k8 \
6 l! S% X% Q$ U6 a

% q! R% T2 r, j9 g. K+ r" c! u( P十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
" X; S: X8 B2 a9 L$ L#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
; A# l) L+ B, u  ]4 i1 Y! l* U( bWH[#101GE1.]DO1
) I/ H0 h% b! Z2 A3 D- w#[#33]=#101 MOD 2.
: J2 S* n- f% h; J#101=FIX[#101/2.]
5 r1 H9 w( r# a+ K1 K( l6 a- w#33=#33+1.
END1
, }" w2 \4 C+ E* p& K) nM0
+ l: z0 N! o8 e
结果：
' N! ?( e# }& v/ ~& {, |#501=1.(低位)
8 P7 K8 `3 b$ A4 m7 I% @#502=0.
! S% _- ^3 q2 V6 U$ C#503=1.
#504=0.
9 d1 Q6 F0 [* X. ]* j' l7 b#505=1.
. M; I( d9 _2 k#506=1.
; S, @9 y; `( t( g0 a#507=0.
#508=1.(高位)
% x4 K& p- X) x# ]% y4 m+ U% P" ?+ ]

% p9 C# X0 ?1 u) u# o# J9 D9 [以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
2 P# l) I6 Q/ ?1 Y; e! ^#30=0.
& m( O9 ?- r1 ~9 m* X" J( NWH[#101GE#10]DO1
5 t+ P% Q% z; W5 d7 _* \2 R& q. f#30=#30+1.
0 A( M' l/ o+ v1 X#10=#10*10.
END1
#30=有4位数(#101有4位数)
3 ], o& `% O2 H) l' y! aM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
8 H8 B+ z; m9 H. g5 g我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
+ O4 Y5 o, v9 p/ |) X" ?' p$ R4 UWH[#101GT0.]DO1
8 v! L0 V1 J1 ~6 w- k5 `, J#500=#500+[#101 MOD 2.]*#10
2 {9 ^6 [. H/ i  H8 ~' O#101=FIX[#101/2.]
$ H" l& h, Q$ y5 \#10=#10*10.
END1
- O. q4 y3 w- R0 t! dM0
8 v8 f0 X" }  ^. r! {8 m, N0 A  p
结果：
% N* |6 y. @/ F#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
& \3 q5 u& l! G# a0 H# B  e# T2 F
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
$ j+ o* R' G2 f3 y9 a- M) d6 [＃1=181.
5 l' R& L& |. f& {6 r# Z#10=10000000.
2 }# l/ m: b" ~3 h$ C' u% R#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
8 K! [0 W" k& WWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
, T: ?6 r4 b' E7 Z. |5 D#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
( q0 t4 a- \8 G9 @#32=#32/2.
#10=#10/10.
$ M: K$ c4 O3 B: eEND1
$ |" x8 a- A9 s0 ]6 a* bM30
) J4 J7 g* Y! @! q5 _5 H
; n2 S4 n2 G+ @' }6 L还是有改良的空间

bruceding

回复 2# 羅蓋仙


5 f8 e: a. ?$ e; T# j* k7 S7 e    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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