[讨论][原创]打擂台。。进制转换谁比我快！！！懂GVB的看5楼帖子！！！！强烈推荐

qyfcool

10 INPUT "十进制数:";A%:GRAPH
20 B%=A%:A%=A%/2
30 N$=N$+STR$(B%-A%*2)
40 IF A%<>0 THEN 20
50 FOR A%=LEN(N$) TO 1 STEP -1
60 PRINT MID$(N$,A%,1);
70 NEXT

这样不就得了?

[此贴子已经被作者于2005-8-12 13:13:17编辑过]

BlackInk

楼上的运行出后出错啊！！

jyf1987

突破9位其实可以用个数组来存储每位数字

nba00123

10 PRINT "      进制转换"
20 PRINT "A->B"
30 PRINT "A:";: INPUT A
40 PRINT "B:";: INPUT B
50 PRINT "N=";: INPUT N$
100 FOR I =1  TO LEN(N$)
110 P$ =MID$(N$,I,1)
120 IF ASC(P$) >=65  THEN G =ASC(P$) -55  ELSE G =VAL(P$)
130 S =S +G *A ^( LEN(N$) -I)
140 NEXT I
150 H =INT(S -B *INT(S /B))
160 IF H >9  THEN Q$ =CHR$(55 +H) ELSE Q$ =STR$(H)
170 W$ =Q$ +W$: IF B >10  THEN J$ =STR$( ASC(Q$)) +"." +J$
180 IF S >=B  THEN S =INT(S /B): GOTO 150
200 PRINT W$,J$
210 S =0:W$ =""
220 K$ =INKEY$: CLS
230 IF K$ =CHR$(13) THEN 50
240 IF K$ ="z" THEN 10
250 END

BlackInk

楼上的算法。。。。就一个字强！！！
想不到易码竟有如此高手！！！
另我佩服的五体投地。。。。。。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
不得不再出现一次。。。。实在是强啊！！！！

wangyu2u

INPUT A
C=-INT(-LON（A）/LON（2）)
FOR I=C TO 1 STEP -1
B=2^I
IF A&gt;B THEN PRINT"1";:A=A-B ELSE PRINT "0";
NEXT
bi 你的快！

wangyu2u

KAO！发出问题了，从新发

INPUT A

C=INT(LON（A）/LON（2）)

FOR I=C TO 1 STEP -1

B=2^I

IF A>B THEN PRINT"1";:A=A-B ELSE PRINT "0

NEXT

[em07]bi 你的快！er且可读性强！其他进制也很容易如此处理！这是2进制的转换法。

wangyu2u

不好意思！刚才没仔细看！我的算法和2楼的原理一样！

BlackInk

打擂台。。进制转换谁比我快！！！
自己编了一个10进制转2进制的程序。。。
10 INPUT "10>>2";N
15 GRAPHRINT N,"—(10)","