Qbasic数据排序问题程序[文].pdfVIP

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,后面不便处理 . NEXT i PRINT a(i - 1) 显示变负数列‘ ,以便对比 PRINT tail = 0 current = 1 DO WHILE current = maxn ‘如果后一个数为负， tail 就移到这个位置，把后面非负的数移到 tail 位置 DO WHILE a(current) 0 ‘后，再判断 current = current + 1 IF current maxn THEN EXIT DO LOOP IF current = maxn THEN tail = tail + 1 PRINT t; tail; c; current; IF current = maxn THEN a(tail) = a(current) ELSE a(tail) = a(current - 1) current = current + 1 LOOP PRINT PRINT PRINT t; tail; c; current PRINT IF a(tail) 0 THEN tail = tail - 1: a(tail) = 0 DO WHILE a(tail) = 0 AND a(tail - 1) = 0 把后面多余的‘ 0 清掉去 tail = tail - 1 LOOP PRINT PRINT tail; PRINT FOR i = 1 TO tail 打印余下的没重复的数‘ PRINT a(i); NEXT i END 2 随机产生 m 个 50~~200 （包括 50，200 ）之间的数， （1）把 M 个数按从大到小的顺序排列。 （2 ）找出其中的素数并显示。 （3 ）把重复的数字清除掉，并把数字按从大到小的顺序连续存放在原数组中，并显示没重复数字的从大到小 的数（排）列。 解 （1） INPUT input m:, m DIM a(m + 1) RANDOMIZE TIMER FOR i = 1 TO m a(i) = INT(RND * 11 + 50) PRINT USING #####; a(i); NEXT i k = 1