易码技术论坛

 找回密码
 加入易码
搜索
查看: 206433|回复: 4

程序问题!帮帮我!

[复制链接]
发表于 2007-2-7 15:13:34 | 显示全部楼层
如果两个字符串相等,就说明这两个字符串当中的所有ASCII码相等。下面我们举个例子:输入一个长度不大于50的半角字符串,把这个字符串中的字符按ASCII码从小到大排列:
10 DIM$ X$(50):INPUT A$
20 FOR I=1 TO LEN(A$)
30 X$(I)=MID$(A$,I,1):NEXT
40 FOR I=1 TO LEN(A$)
50 FOR J=I TO LEN(A$)
60 IF ASC(X$(I))>ASC(X$(J)) THEN SWAP X$(I),X$(J)
70 NEXT:NEXT
80 FOR I=1 TO LEN(A$)
90 W$=W$+X$(I):NEXT
100 PRINT W$
110 END
运行
?ZYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYZ


上面是我从薛老师的BASIC教程里摘录的,是关于字符串的排列。
数字的话把"A$"换成"A"应该就可以了。
 楼主| 发表于 2007-2-7 15:29:59 | 显示全部楼层
哦????
还没看懂~~~
我再研究研究哦
发表于 2007-2-7 15:48:49 | 显示全部楼层
任意个数字,总要有个结束输入的条件吧(比如输入0)
1楼的方法是 起泡(冒泡)排序,但LZ要求的是数字,不是字符串,稍微改下就OK了
重要的是40-70行
lZ可以去Baidu搜索相关资料,应该很多的
 楼主| 发表于 2007-2-7 16:12:39 | 显示全部楼层
谢谢!!!!
 楼主| 发表于 2007-2-7 14:35:29 | 显示全部楼层 |阅读模式
  怎么样在BASIC中实现:
可以输入任意个数字
然后对其从大到小排列
打印
是任意个数字!
不要求速度!
我想了N久了!帮帮我啊!1
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-4-30 22:50 , Processed in 0.009840 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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