找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 10814|回复: 18

[分享] 十进制转换成二进制的小程序

  [复制链接]

28

主题

67

回帖

146

积分

注册会员

积分
146
发表于 2013-8-18 12:29:46 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 羅蓋仙 于 2013-8-18 12:35 编辑
! r# x. T: @- L) ]7 T# u' q
0 j( b1 M0 A0 y/ S5 p img014.jpg 5 o9 i7 ?0 g# H
" ~: I  X& v" E4 B- s9 N+ ?
十进制转换成二进制:
0 D/ R" P8 b- i#1=181.(欲想转换成2进制的数值)" T* r# Z' G: s- w  M) ]. i
#101=ABS[FIX[#1]]
8 e" H- Y: D# P) j' f. i#33=501.(储存到#501~)
) P" Z( v: h, A/ t0 M4 ~$ v/ yWH[#101GE1.]DO1
: I! N: b% s4 l3 B! g! R& V#[#33]=#101 MOD 2.
8 w' Z; B5 u( C4 s' a#101=FIX[#101/2.]- V/ j. ~2 \! ^% g$ u
#33=#33+1.
+ o4 q: B$ b) X$ e8 ~: Z  _END1! O7 m% ?# M/ F: ?5 h8 Z6 m/ N
M0
5 [5 u& o+ C; @2 g" `: w' D* P7 z$ t' J, e4 [9 J% D6 ^& ]
结果:
9 i- Y; `& P% Z5 Y7 ]7 t2 F* S#501=1.(低位)
3 g8 \  P  j+ B- Z. J" D#502=0.; b" a+ ]! \& g+ g+ {/ @
#503=1.1 ~* R; W0 F! E  h- C: A
#504=0.
* c. }: @, Q9 H# O( B0 [8 b2 L#505=1.
- p/ f5 m/ r. B0 S#506=1.
0 g  M$ P- e4 T$ x1 W0 N#507=0.
1 w6 P* A2 I) d3 O) u' s#508=1.(高位)* C3 x, ~- e, Q& g5 ]
# v7 M5 w# l% q
  P' f% V4 Q, o6 i* P
以下为10进制,想得知#101有几位数的小程序9 p0 P* u6 Q5 n- E+ u6 J, C3 R
#101=1234., M' i8 B! a0 e: L! k/ j2 R
#10=1.(用1去比→用10去比→用100去比....): s5 ^3 K! |, r
#30=0.' c# X) B9 J8 F5 h9 T9 u/ w
WH[#101GE#10]DO1. I2 b6 v5 U' Q# @6 a. u
#30=#30+1.# J8 |, f& W+ N  E$ u  W6 c) C; e
#10=#10*10.
5 {, G  Q& A" h; R6 T/ u0 j( b. L6 fEND1
" F" x: F" Y1 x* f& s. Z: q0 I#30=有4位数(#101有4位数): ], d: A' ^" ^( S
M0

28

主题

67

回帖

146

积分

注册会员

积分
146
 楼主| 发表于 2013-8-18 13:32:37 | 显示全部楼层
本帖最后由 羅蓋仙 于 2013-8-18 13:40 编辑 # M% x5 Y0 A3 U) }' t
  x( G2 b8 O/ g, S& J# A0 h
如果嫌10进制转换成2进制,占了太多变量番号的空间
5 p" r! ~9 O" L0 A+ v: S9 B* A我把它修改了一下
' o0 I* K: u- r+ G* P/ x#1=181.
, V6 u* Z1 W( c+ k/ S#101=ABS[FIX[#1]]
5 H6 `. k) |5 O1 H# v#10=1.: Y2 K& `( g! Z# |) v
#500=0.6 B6 J! s2 o% S/ h% A) _3 j4 b
WH[#101GT0.]DO1
! }, L) t' z, C#500=#500+[#101 MOD 2.]*#10
0 `3 w$ O$ l0 f7 F! b' B% i#101=FIX[#101/2.], M6 q6 V4 D  n# @! f' z
#10=#10*10.1 x  ^0 o4 l8 x7 @/ ~, R: z
END1( s5 M* R9 T# l0 A% J9 j- [+ _
M0+ R& N( E5 |% t' g. Y; l2 o

6 _6 n: |' m! j& x结果:
5 @6 _, B' Q& L. a' `#500=10110101.
回复

使用道具 举报

0

主题

9

回帖

14

积分

新手上路

积分
14
发表于 2013-8-22 11:22:06 | 显示全部楼层
真精神!!!!!!
回复

使用道具 举报

28

主题

67

回帖

146

积分

注册会员

积分
146
 楼主| 发表于 2013-8-29 18:57:39 | 显示全部楼层
回复 4# ois90597 / b5 v$ N* O0 \3 {6 B  {! f
8 T1 a7 k( i8 x6 M
这是我那台湾某网友,我们互相分享讨论,他的写法感覺比我好:
, r3 f# x* J4 L; @9 l) H: B& \1 R7 b#1=181.) k) {7 @/ G- V7 s3 U
#10=10000000.
7 F# S' a; [* V/ m  K; Z- F#31=FIX[ABS[#1]]4 B- Z! ?5 e" R7 \+ l2 d  B
#32=128.0 \& T3 i' {- S) d' d+ m
IF[#31/#32GE2.]THEN#3000=200.& w2 C* W" ]! {
WHILE[#32GE1.]DO1
& k/ W4 H8 h  E" [) l7 N1 o/ B, a#33=FIX[#31/#32]& k6 D) i4 N! a3 |/ l
#500=#500+#33*#10
) x' h* F& M/ d: z# r6 d$ N# A#31=#31-#32*[#33EQ1.], J4 `# z4 h! p, V# R- u
#32=#32/2.  `5 ^0 s2 F% D& G8 I
#10=#10/10.
; g8 p0 g- B% K. |- o: MEND1! w9 W' h* z6 D% W- @% h
M30
" N" m; S7 e2 c6 E1 S , u; r: g$ u. c6 B2 l! V9 A% T
还是有改良的空间
回复

使用道具 举报

0

主题

53

回帖

36

积分

注册会员

积分
36
发表于 2013-9-21 22:25:07 | 显示全部楼层
回复 2# 羅蓋仙   ]' s0 a& w' o% |6 q! u6 ^
$ k9 Y! E( d% o- b

& a$ Z4 X& x6 E0 m- N7 [    精辟
回复

使用道具 举报

0

主题

47

回帖

29

积分

注册会员

积分
29
发表于 2014-4-4 00:23:46 | 显示全部楼层
不错经典资料,值得学习
回复

使用道具 举报

3

主题

54

回帖

29

积分

注册会员

积分
29
发表于 2014-4-4 20:05:03 | 显示全部楼层
好久没来了  挺不错
回复

使用道具 举报

0

主题

71

回帖

42

积分

注册会员

积分
42
发表于 2015-1-8 10:49:17 | 显示全部楼层
很好,就是看不懂
回复

使用道具 举报

0

主题

407

回帖

631

积分

高级会员

积分
631
发表于 2015-2-18 16:18:28 | 显示全部楼层
學習,謝謝樓主分享
回复

使用道具 举报

0

主题

320

回帖

246

积分

注册会员

积分
246
发表于 2015-11-6 10:48:32 | 显示全部楼层
good..............
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

QQ|Archiver|手机版|小黑屋|若枫后处理论坛 ( 苏ICP备11015087号-1|苏公网安备32059002001368号 )

GMT+8, 2026-6-24 00:35 , Processed in 0.534981 second(s), 27 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表