回 帖 发 新 帖 刷新版面

主题:难题

输入一个正整数n(n不等于10),求1到n的各种排序,按从小到大顺序排列。如n=8,则各种排序为:
          1 2 3 4 5 6 7 8
          1 2 3 4 5 6 8 7
          1 2 3 4 5 7 6 8
          1 2 3 4 5 7 8 6
          1 2 3 4 5 8 6 7
          1 2 3 4 5 8 7 6
            · · · · · ·
            · · · · · ·
            · · · · · ·
          8 7 6 5 4 3 2 1
给各种排序编号,第一种编0号,第二种编1号,第三种编2号,依此类推。
输入一个编号,输出相应的排序。如:
输入0,输出12345678;
输入1,输出12345687。
输入格式:n=8
     x=0
输出格式:12345678
     Hai yao zhao ma ? 输入Yes
     x=? 输入1
     12345687
     Hai yao zhao ma ? 输入No

回复列表 (共8个回复)

沙发

CLS
INPUT n
DIM a(n), b(n * 10, n)
FOR i = 1 TO n
a(n) = i
NEXT i
k = -1
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN SWAP a(i), a(j)
k = k + 1
FOR l = 1 TO n
b(k, l) = a(l)
NEXT l, j, i
DO
PRINT "hai yao zhao ma ?"
INPUT a$
IF a$ = "no" THEN END
INPUT x
FOR l = 1 TO n
PRINT b(x, l)
NEXT l
LOOP

板凳

不对呀!

3 楼

咋不对

4 楼

得不到正确结果

5 楼

?

6 楼

CLS
INPUT n
DIM a(n), b(n * 10, n)
FOR i = 1 TO n
a(i) = i
NEXT i
k = 0
FOR i = n TO 1 STEP -1
FOR j = n TO i - 1 STEP -1
SWAP a(i), a(j)
k = k + 1
FOR l = 1 TO n
b(k, l) = a(l)
NEXT l, j, i
DO
PRINT "hai yao zhao ma ?"
INPUT a$
IF a$ = "no" THEN END
INPUT x
FOR l = 1 TO n
PRINT b(x, l)
NEXT l
LOOP


7 楼

这个可以吧

8 楼

还是不对呀!

我来回复

您尚未登录,请登录后再回复。点此登录或注册