主题：编程题
幽灵密码
[专家分：3510] 发布于 2010-05-25 14:11:00
1、数学黑洞6174
已知：一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。即：7641-1467=6174。将永远出不来。
求证：所有四位数数字（全相同的除外），均能得到6174。输出掉进黑洞的步数。
2、输入10个学生的姓名，编一程序将它们按字母的顺序排列。
3、输入一个十进制数，将其转换成二进制数。
4、将字符串中的大写字母转换成小写字母，并反相输出。
如输入'abcABC234!$',输出为'$!432cbacba'
5、从屏幕上输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。
回复列表 （共35个回复）
沙发
liudan319 [专家分：3780] 发布于 2010-05-26 08:32:00
世界人民无语了……
板凳
A(N) [专家分：20] 发布于 2010-05-30 13:11:00
4.cls:print "$!"+"CBA"+"cba";" ":end
3 楼
A(N) [专家分：20] 发布于 2010-05-30 13:13:00
呵呵！我只是开个玩笑！
你的这些题目挺怪的！
从哪弄的！佩服佩服！
4 楼
小心哦哦 [专家分：140] 发布于 2010-06-09 17:09:00
2.cls
dim a($10)
for i=1 to 10
inut a$(i)
next i
do
f=0
for i=1 to 9
if a$(i)>a$(i+1) then
swap a$(i),a$(i+1)
f=1
end if
next i
loop until f=0
for i=1 to 10
print a$(i);
next i
end
5 楼
小心哦哦 [专家分：140] 发布于 2010-06-12 17:53:00
4
cls
input a$
l=len(a$):dim a(l)
for i=1 to l
a#(i)=mid$(a$,i,1)
next i
for i=1 to l
if a$(i)<( ) and a$(i)>( ) then a$(i)=srt$(asc(a$(i)))
next i
for i=l to 1 step -1
print a$(i)
next i
end
6 楼
小心哦哦 [专家分：140] 发布于 2010-06-12 17:55:00
上一个打括号的自己填，我没 什么ACLll 的编码排序
7 楼
幽灵密码 [专家分：3510] 发布于 2010-06-12 19:14:00
呵呵.不用你那么麻烦的
8 楼
小心哦哦 [专家分：140] 发布于 2010-06-16 22:28:00
最后一题
CLS
INPUT A$:L=LEN(A$):DIM A(L)
FOR I=1 TO l
a(i)=VAL(MID$(A$,I,1)
NEXT I
DO
F=0
FOR I=1 TO L-1
IF A$(I)<A$(I+1) THEN SWAP A(I),A(I+1):F=1
NEXT I
LOOP UNTIL F=0
FOR I=1 TO L
PRINT LTRIM$(STR$(A(I)));
NEXT I:PRINT
FOR I=L TO 1 STEP -1
PRINT LTRIM$(STR$(A(I)));
NEXT I
END
9 楼
幽灵密码 [专家分：3510] 发布于 2010-07-10 12:08:00
邱宇璐，最后一题不能这样，万一带有“0”怎么办？那最小的数不就不能是四位数了吗
10 楼
谱卡法师 [专家分：20] 发布于 2010-07-19 18:07:00
切，智商251都解不出来。。。
我来回复
您所在位置：