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

羅蓋仙

十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
! \' R5 `5 T% f& B5 z8 mWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
) V3 s; D7 W; r/ ~4 w4 Y; g+ d& zM0

; _$ e+ u  w# E3 i& S结果：
#501=1.(低位)
( f" G' [+ ^% Y- @8 b6 [#502=0.
# C) p3 M5 u( r6 M#503=1.
. w" `! I+ ~. e9 W) V; B#504=0.
* N& Q6 D: x9 d! ]$ c#505=1.
" b+ V4 D: R- b; {& q: w9 ~7 O#506=1.
* K7 z7 I) `' {#507=0.
#508=1.(高位)
. Y1 X% g5 @' u: Z! \5 i4 I

0 C" v' D* l: Z3 v/ S3 }+ N) G以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
- L* I  O3 S8 J#30=0.
WH[#101GE#10]DO1
$ x8 ]; O2 {. w6 ]/ E6 G. [5 C#30=#30+1.
8 }8 z7 d: \! L#10=#10*10.
% Y3 j) N% ^9 f4 B8 e' u) DEND1
; m8 ^7 P  E& b! N! f7 u* O#30=有4位数(#101有4位数)
' O5 C  ]$ E& ^0 Z  o2 lM0

羅蓋仙

2 ^9 V$ X- x1 f" {如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
) F6 r& C( c  a2 m#500=#500+[#101 MOD 2.]*#10
1 q! Y9 ]9 O4 }( w9 L#101=FIX[#101/2.]
#10=#10*10.
END1
M0

! {; p! _) n. E( {/ t( X结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
, K9 l- j4 k$ w$ b* m/ t
2 M' {9 I- o/ D/ S1 `" q这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
8 S2 u8 W8 l7 v＃1=181.
#10=10000000.
% z3 E; Z7 h0 u1 o* t7 D8 E* q# R1 S#31=FIX[ABS[#1]]
#32=128.
' V0 Z* c, D* ^" H) @IF[#31/#32GE2.]THEN#3000=200.
; t1 S4 P* ^3 s+ k& g, ?3 v4 W' hWHILE[#32GE1.]DO1
) _" a& K& E) n4 Z; H#33=FIX[#31/#32]
#500=#500+#33*#10
# G% p9 L5 K" ]7 E. K% Y) g" S#31=#31-#32*[#33EQ1.]
#32=#32/2.
" b. b5 H* R2 ^  k! S  l+ ]1 L#10=#10/10.
END1
" \, j9 n8 [* g6 x6 ~8 nM30
' h/ W1 ^% E, V
3 B7 p* A1 ]% w4 I" u; |' I还是有改良的空间

bruceding

回复 2# 羅蓋仙


# S- w0 b  A' ]: z% I! j9 E    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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