cobol冒泡排序
悬赏分:5 -
解决时间:2009-9-10 23:40
我现在有一个数组A1 A2 A3 A4 A5分别接收了5个值,请问怎么用COBOL语言对其进行冒泡排序. 要COBOL语言的,其他的不要...
最佳答案
01 SJ-AREA. 03 I PIC 9(1). 03 J PIC 9(1). 01 WORK-AREA. 03 TEMP PIC 9(4). PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5 PERFORM VARYING J FROM I+1 BY 1 UNTIL J > 5 IF A(J) < A(I) MOVE A(I) TO TEMP MOVE A(J) TO A(I) MOVE TEMP TO A(J) ELSE CONTINUE END-PERFORM END-PERFORM. 大致写了一下,应该就是这样 上边的TEMP是用于元素互换的 这段程序是将大的拍后面小的排前面 如果要讲大的拍前面 只需将 IF A(J) < A(I)----->IF A(J) > A(I)即可