cobol冒泡排序

cobol冒泡排序

悬赏分：5 - 解决时间：2009-9-10 23:40

我现在有一个数组A1 A2 A3 A4 A5分别接收了5个值,请问怎么用COBOL语言对其进行冒泡排序.
要COBOL语言的,其他的不要... 

提问者： duweijia1209 - 一级

最佳答案

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)即可