Qbasic数据排序问题程序.docVIP

1、本程序对随机产生的100个0到50之间的随机整数用一个数组存放后进行排序，然后再将其中重复出现的数进行删除，只保留一个，使得剩下的数中任何两个都不相同且连续存储在原数组中。Rem zb001.txt CLS RANDOMIZE TIMER maxn = 20 DIM a(maxn) FOR i = 1 TO maxn a(i) = INT(RND * 51) ‘产生100个数 PRINT a(i); ‘显示原数列,以便对比 NEXT i PRINT PRINT FOR i = 1 TO maxn FOR j = i TO maxn IF a(i) a(j) THEN temp = a(i): a(i) = a(j): a(j) = temp ‘选择排序, NEXT j PRINT a(i); ‘显示排好序数列,以便对比 NEXT i PRINT PRINT FOR i = 2 TO maxn IF ABS(a(i - 1)) = a(i) THEN a(i) = -a(i) ‘初值从2开始,防止数组越界.并把相同的数转成负数,为后面删除做 PRINT a(i - 1); ‘准备。 注意：不能转成0,因数组中本身也可能有0,