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

羅蓋仙

登錄/注冊后可看大圖

  p+ m( L; A& e( c  u- q
十進制轉換成二進制：
9 r+ A! X0 ?7 M& f#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
# N" V5 T8 P3 B# `5 F9 @5 ^- RM0
  J3 y7 r# x' I) y' S% f7 H6 }7 `
+ t: g7 @# b4 t7 \+ W& r& K結果：
3 L& Y& P6 x/ ^$ M" h% Z2 _#501=1.(低位)
#502=0.
#503=1.
3 U$ r- n  w, y9 |1 _3 d#504=0.
7 ], J! l* e; F" Q! Z. a#505=1.
: U$ n% @% e) R( F) y# v( ~% ^#506=1.
8 ?: [, J) O: o#507=0.
2 P. Q" z$ Q  o3 Q#508=1.(高位)

( U, X1 Y" N5 F6 b/ x. R3 J
以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
, z0 s  W' x) w7 D9 }#10=1.(用1去比→用10去比→用100去比....)
7 k9 n9 V5 s% ^* ~+ `- v$ P+ _' C1 J#30=0.
WH[#101GE#10]DO1
2 z3 g) B: ~/ ?3 C% D#30=#30+1.
( A! I3 I% a! \, Y# M2 T, g#10=#10*10.
: m1 t6 A- V5 u$ b8 O9 X+ G7 ^END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

* {% `6 {0 f( j# m
如果嫌10進制轉換成2進制，占了太多變量番號的空間
我把它修改了一下
$ h( v: W, c! i% S; r# H" U#1=181.
7 E  c2 I+ r; h  E& `4 f3 D: z0 K#101=ABS[FIX[#1]]
#10=1.
#500=0.
( b- }# A! Z; b$ VWH[#101GT0.]DO1
! b9 Q) m' a8 n6 z, l- h2 G3 y; E" |#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
& t* Q. L7 S# }. E+ p$ e( v- I#10=#10*10.
1 i/ ]/ A( a( d  q& G+ eEND1
M0

結果：
1 M: O  u0 q4 W4 }* H& i- m1 q8 T0 G#500=10110101.

丹存印才

真精神！?。。。?！

羅蓋仙

回復 4# ois90597
) F; m9 p# o1 E) G/ \5 B5 F" ]8 ^
1 m% ]$ o* T; K% N  o這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
/ K& l: ~" V) C; l' B2 c3 j4 H/ g＃1=181.
4 e, `: g! Z0 V#10=10000000.
#31=FIX[ABS[#1]]
; R+ z/ E: q7 x7 j+ Y#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
& e! H: W; L% t0 Y#31=#31-#32*[#33EQ1.]
$ D! \( Q1 l% `% v2 e- y$ N#32=#32/2.
6 z* K1 r* n, Y4 Z#10=#10/10.
END1
M30

還是有改良的空間

bruceding

回復 2# 羅蓋仙
* \/ C% s, k, M; j. D
* E9 r7 C. V; A) j
    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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