十進制轉換成二進制的小程序

羅蓋仙

, y; _+ o) q$ s$ ?

登錄/注冊后可看大圖

( X1 V# r! i0 w十進制轉換成二進制：
#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
WH[#101GE1.]DO1
2 Y( E! J, e% ]' J& z#[#33]=#101 MOD 2.
* _- s1 C/ a. ~: w0 K8 e#101=FIX[#101/2.]
#33=#33+1.
END1
, l5 l" L: o- I# mM0
/ Z9 @  b4 J( n: A7 o0 ]/ r
結果：
3 z: T" Y) t0 Q0 ~, Y+ H5 K#501=1.(低位)
( A$ J4 I: x# Q9 m#502=0.
7 W2 Y& q0 _4 A( w# v% @6 X: w#503=1.
#504=0.
#505=1.
#506=1.
8 [- R9 C3 o9 Y% H' b#507=0.
  i7 B, ]* c/ |# }& E( B#508=1.(高位)
3 |% V0 p1 j, g/ N$ T9 q6 s
9 P, L! \: \" [; B2 n7 o" Q6 Q( H
  B; D' P% m" K' _6 B4 @以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
2 P0 N, v- g3 e8 Y7 X#10=1.(用1去比→用10去比→用100去比....)
#30=0.
/ R; ]- K2 p3 Q: ~7 `' EWH[#101GE#10]DO1
- G% L  g- [5 |! i9 |& t1 Y! f* a#30=#30+1.
7 D, i& k0 w; c+ G/ W" R#10=#10*10.
3 X$ `! ~* o3 T/ J+ C2 hEND1
4 T5 w- M; c# y! Q1 D6 C$ }, \& x#30=有4位數(#101有4位數)
M0

羅蓋仙

9 b5 e( h! h! x, x# D" j% H
0 K- a( A& T. H4 a, h* y, L- ]如果嫌10進制轉換成2進制，占了太多變量番號的空間
我把它修改了一下
4 l* f2 B+ m3 g' V4 O  f#1=181.
: c$ M& e+ g3 \* n, `#101=ABS[FIX[#1]]
! x2 ?; t- z. F#10=1.
#500=0.
- ]) K5 y) i+ ?WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
# _: B; s6 I/ a* G2 z8 n; _1 ]8 z3 T#10=#10*10.
END1
; D  Z* L1 j4 a( w& O9 p- hM0
4 b  n2 W' G# U0 [( S6 R  `
結果：
/ V. @* @6 X: Q#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597

這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
＃1=181.
0 e2 G) }$ T+ f! \: @- T' P#10=10000000.
#31=FIX[ABS[#1]]
6 n3 i4 t' k7 V/ i#32=128.
' v9 M7 X+ U2 L4 z6 K: H2 d7 _# CIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
- Y: p& l' f7 b; Q#10=#10/10.
END1
0 I7 I* g- o, t* D2 R# N* TM30
5 u6 ~( i# @% o" A  T$ j. L. _
. Q# G2 T# c/ F  F+ ?& s' D1 N還是有改良的空間

bruceding

回復 2# 羅蓋仙
$ \" F$ {& ]1 q2 Q' D
) U% c  g7 `% }* U/ d# \# [
7 y2 O" G4 t4 C8 r$ \- N# |2 d& L& I) x    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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