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

羅蓋仙

8 v; }% Y: B2 e" G$ K' z0 E5 U1 [


十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
! w# F. u9 I! N0 M#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
9 M5 f1 }1 x* }, u" A$ g- \0 R' A0 |" IM0
6 Z4 r8 P0 M: _# h! ~
3 u. |" i! n5 M结果：
#501=1.(低位)
#502=0.
) o1 O, k0 ~6 g+ |! H7 ]+ ?; B#503=1.
#504=0.
#505=1.
2 z$ t  E5 p: s) h6 @#506=1.
* i+ k* t9 G; E+ R6 O#507=0.
" A- D& w' @0 @# v7 J# C#508=1.(高位)

+ i" h$ j1 d% Q- S2 D* O7 e0 t0 w
3 O+ e9 m8 e& O# B( d+ z以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
; e+ K/ g1 ^* I#30=0.
4 E% k8 k8 P: g8 }3 o2 uWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
8 K$ l5 T' w- ~; I7 S$ x- DEND1
3 _. ?! |8 H5 J1 e( H$ @% B#30=有4位数(#101有4位数)
- Y" P9 g/ k, k) e/ _9 d" ^1 XM0

羅蓋仙

( ]/ K+ u0 o) y2 s9 z
如果嫌10进制转换成2进制，占了太多变量番号的空间
, W+ C2 o1 F# J我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
4 a# j/ v2 \. N6 [; V8 j#10=1.
/ }$ J) h( P5 Q5 z4 A' `#500=0.
WH[#101GT0.]DO1
; M& w- X( d- V& R7 O2 ?& C- U#500=#500+[#101 MOD 2.]*#10
+ p6 \  n$ e5 C0 h# L! ]1 G#101=FIX[#101/2.]
$ z" Y4 |0 E( }3 {7 s#10=#10*10.
END1
; P5 W( Z  a! L9 ?" S, FM0

$ p$ W  ~/ m- M: V- s2 |4 {结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
$ k5 O1 r& J0 f9 B( c% K, G& |
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
! p; o' l) b. M＃1=181.
+ d; Z! S9 F9 E8 V- e#10=10000000.
#31=FIX[ABS[#1]]
0 B( g0 S( b/ U  h$ y7 [0 D2 ^+ i2 [+ ]#32=128.
8 ]( n' N# o# l. JIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
$ P+ B' M9 L: Q1 z: R: E* l/ u' |#31=#31-#32*[#33EQ1.]
: p2 A. W- Q$ q9 R; t0 |4 F#32=#32/2.
+ A- N1 n% a4 N5 e1 }; y#10=#10/10.
END1
" n  m+ l( O; B- OM30

. v4 O. H, W8 a8 E: J7 k还是有改良的空间

bruceding

回复 2# 羅蓋仙
, j/ d. m% F# _  `+ g' i! m
  s4 X2 C3 a: m# @/ O( V* T
( ?0 Y8 p  y$ t    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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