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

羅蓋仙

  w4 a. l8 M6 f3 ]1 s) L
' [' Z5 Q* g# F9 c

十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
9 l; |$ g: {) gWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
0 ^  `0 b' G8 S6 t( {# `3 l: ^5 t3 C#101=FIX[#101/2.]
- P( @2 e( C1 p) ~. g! ^  q#33=#33+1.
END1
M0
/ i9 Z4 Z( \# U6 A& N: l7 A
0 b5 Z$ G5 Z0 b- Z! C* p结果：
#501=1.(低位)
( N- i# {4 ?' `! Z% Z  J#502=0.
6 {. T8 X, R& ^, N# u# v, R$ I#503=1.
#504=0.
1 h% a) j' }5 x) e#505=1.
#506=1.
#507=0.
#508=1.(高位)


以下为10进制，想得知＃101有几位数的小程序
0 F8 Z) J3 L3 `5 h- P5 o$ L5 F* C#101=1234.
2 z7 a3 p- w1 M! y( X. s#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
1 K& E/ D' P/ ^$ j2 N) t#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

: ~* z4 {4 |. s  L7 J1 H. @
: J1 A( J6 P( M" J5 @# ], l如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
/ x* r2 I2 i# O# o- _! U7 n9 J#101=ABS[FIX[#1]]
#10=1.
2 T3 P3 [8 K# K4 p+ S' c2 }5 w- S#500=0.
WH[#101GT0.]DO1
1 U: K; e$ [/ d' o( p* V#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
" }  R# z" M1 _% s#10=#10*10.
END1
& ]1 C" R8 z, l2 V, Z3 vM0

结果：
+ D+ D4 @. F$ I: b1 |#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
# R/ l7 }! e3 j) m+ X
* q$ [; P2 n) g7 _这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
( \( L8 n( R) B! C8 w. u1 h( a#31=FIX[ABS[#1]]
#32=128.
9 ?5 l9 B+ T3 e3 y. V' z# q5 D8 A$ hIF[#31/#32GE2.]THEN#3000=200.
6 ~) w" x/ H% r: y* B, B' I! L7 b! FWHILE[#32GE1.]DO1
; i* J$ j+ H: m#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
$ M9 J; ?8 j6 @4 P' W5 }#32=#32/2.
#10=#10/10.
, U+ ~7 y0 J7 v0 s. PEND1
* k4 W, r4 n: @; CM30

& A9 v$ G* o; [0 V. l; d还是有改良的空间

bruceding

回复 2# 羅蓋仙
7 \9 i$ \' m6 x! e$ f

2 j" \7 R, Z7 g) K2 T! U    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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