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

羅蓋仙

7 a0 `1 k5 f4 C- Y

0 F, x* v9 j# e1 R
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
4 \( G( n. }" l  z$ x. n" KWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
9 v: I) z. q: k' kM0
8 y* ]% v- f; ]$ A. ?5 b  ?" D
. E9 a+ ?6 y; f, c结果：
2 }2 X$ g5 `: v1 ~#501=1.(低位)
9 N% H7 u4 \1 x! j6 B6 A#502=0.
#503=1.
' }9 h# Q5 {0 Q5 L# I6 O6 B#504=0.
#505=1.
#506=1.
$ R2 P' R* C4 ~' t' p#507=0.
#508=1.(高位)

* ~& G" K7 \) b8 ~7 ]9 x# Y
7 S/ Z- J: ]+ g以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
. E, q& Y1 E9 p' B- l! ~  g& s7 x: @#30=0.
WH[#101GE#10]DO1
#30=#30+1.
0 L7 f; _4 W2 W  H#10=#10*10.
. k' x0 C$ k  p3 M0 g. [END1
+ E; ^; I9 @7 J% q! \# G2 C# m6 y#30=有4位数(#101有4位数)
- i& t/ x6 w: w) |  K$ j' \; YM0

羅蓋仙

" o( b% d& J; V& m  `如果嫌10进制转换成2进制，占了太多变量番号的空间
4 U* A& w; b% l. ^$ P: V我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
! d, U/ Z& I3 x5 D3 S5 R#500=0.
WH[#101GT0.]DO1
1 `( T8 ^7 q- T0 j" C#500=#500+[#101 MOD 2.]*#10
+ s  y6 B6 G/ e. `3 Y4 d: _2 z  {: U#101=FIX[#101/2.]
#10=#10*10.
  w: w( g% P: c' v/ }END1
M0
, l+ `  Y2 o, @
结果：
7 p- e7 y4 X0 }- R0 v+ [0 i#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
& o. r- m) ]  A% M＃1=181.
#10=10000000.
5 r0 ?% H8 h. ^- z; N& U. S* V#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
. ^( p$ W3 w8 ~* `1 H: m( YWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
2 T" P+ M  G5 S, G; C0 U#500=#500+#33*#10
* M  e$ b1 W6 x, _8 f$ t#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
  t4 g# E; w& n) v) U  j% LEND1
M30

: o# T$ A; R# [5 ?- ?还是有改良的空间

bruceding

回复 2# 羅蓋仙

0 ]# G* S2 y2 L& ^
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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