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