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

羅蓋仙

- ]5 y2 G7 T1 D) w# O
. c8 O* P4 w5 u+ C2 X7 U9 S

登錄/注冊后可看大圖

0 M* P+ E+ E" v0 {: o- \- B# R: w" n
十進制轉換成二進制：
#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
# {8 @1 `, ^4 MWH[#101GE1.]DO1
3 U2 Y! R; u& L$ C) W#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
. H: D5 Q  J0 V  z#33=#33+1.
7 K$ j/ d9 ~  l/ D8 A2 ]1 sEND1
( i6 F. i  L6 B' `M0
' [3 }" v* X* b& S" f  d. s# `8 ^
結果：
+ U& W' W' q: D, G#501=1.(低位)
#502=0.
- r0 l( Q& c2 \. Y/ R3 h+ u: C# Y#503=1.
0 ^$ M, t& P, a( E#504=0.
#505=1.
/ v+ E* a. N' X# q% ^#506=1.
- T1 ^0 j- u. O1 I* H#507=0.
#508=1.(高位)


# x  ~. _3 o9 Q0 n5 k( \  u4 U以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
" H5 V* G9 R) P#30=0.
WH[#101GE#10]DO1
% R0 n/ m' L* q' z5 }  Q#30=#30+1.
( g+ u2 I2 F$ U( O#10=#10*10.
END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

+ w  l$ P% _  O1 k3 f2 n4 C
) u: S, |7 }0 |9 n如果嫌10進制轉換成2進制，占了太多變量番號的空間
" v4 C* [2 O' D. L/ A. ~5 _我把它修改了一下
#1=181.
; E9 f+ U% e1 m. r5 R1 J#101=ABS[FIX[#1]]
  V5 I' J1 ~  {' D#10=1.
#500=0.
3 g- @& I1 L4 H, d# oWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
1 M, g- o1 _8 x8 D3 j" E) V, a- J#101=FIX[#101/2.]
#10=#10*10.
END1
M0
: R+ y' Q; H; O/ y' I1 Y. P) h
( q, x# Y0 {$ k0 L5 v) P- r結果：
" \; K! p% g8 v#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597
2 @3 o/ E; l8 t% v+ X' |
- n5 I0 y) s6 q這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
$ k: i" F9 K  U: y, b6 e9 |6 h  ?7 O! B4 X＃1=181.
, D; ~1 U8 Z" s! N& B9 \* ?, ~#10=10000000.
1 }' ^' Y+ y/ G- f% i: z" b  S#31=FIX[ABS[#1]]
3 O2 r  n# g& X0 q#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
  i) [+ a' j& Y) k; ?; }* J/ j#33=FIX[#31/#32]
#500=#500+#33*#10
, \! O1 e9 B# d* j#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
( \3 }3 d  _  ?! xEND1
0 U2 T$ Z9 F# v2 I. G: V+ LM30
7 R* e2 P1 X2 q/ R# z# n: |# F
還是有改良的空間

bruceding

回復 2# 羅蓋仙
! ^  G& d1 g/ {1 t0 F" P& D

" j" X6 Z5 X" J; f: S$ y    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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