COBOLでバブルソートで困っています

Question

実現したいこと

Cobolでバブルソートを使用して入力した値を昇順にソートできること

発生している問題

「3,2,1」と入力すると「1,3,2」となってしまう

該当のソースコード

IDENTIFICATION DIVISION.
program-id. SAMPLE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 my-date.
 03 J PIC 9(2).
 03 J2 PIC 9(2).
 03 I PIC 9(2).
 03 A PIC 9(2) OCCURS 3.
 
PROCEDURE DIVISION.
MOVE 1 TO J.

PERFORM UNTIL J > 3

ACCEPT A(J)

COMPUTE J = J + 1
END-PERFORM.

MOVE 1 TO J.
MOVE 2 TO J2.
PERFORM UNTIL J = 3
    PERFORM UNTIL J2 > 3
        IF A(J) > A(J2)
            MOVE A(J) TO I
            MOVE A(J2) TO A(J)
            MOVE I TO A(J2)
        END-IF
        COMPUTE J2 = J2 + 1
    END-PERFORM
    COMPUTE J = J + 1
END-PERFORM.
    
MOVE 1 TO J.
    PERFORM UNTIL J > 3
        DISPLAY A(J)
        COMPUTE J = J + 1
    END-PERFORM.
    
STOP RUN.

問題の発生した環境

paiza.io

Comments

[meg_]

> 前提としてSORT関数を使用しないでバブルソートで書いてください
学校の課題でしょうか？ご自身で1行もコードは書けませんか？下記ヘルプもご覧ください。
https://teratail.com/help/question-tips#questionTips1
https://teratail.com/help/question-tips#questionTips12

Answer 1

25 PERFORM ~ 35 END-PERFORM。
二周目のJ=2のとき、J2はいくつでしょうか？
J2の値がアレなので、26 PERFORM ~ 33 END-PEFORMはスルーされる。
だから結果は、A=[1,3,2]。

---

skkyy 2023/07/18 15:43
答えを知りたいだけなので教えてくださると助かります！

だけ？ はぁ…

  IDENTIFICATION DIVISION.
  program-id. SAMPLE.
  ENVIRONMENT DIVISION.
  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01 my-date.
   03 J PIC 9(2).
   03 J2 PIC 9(2).
   03 I PIC 9(2).
   03 A PIC 9(2) OCCURS 3.
   
  PROCEDURE DIVISION.
  MOVE 1 TO J.
  
  PERFORM UNTIL J > 3
  
  ACCEPT A(J)
  
  COMPUTE J = J + 1
  END-PERFORM.
  
  MOVE 1 TO J.
- MOVE 2 TO J2.
  PERFORM UNTIL J = 3
+     COMPUTE J2 = J + 1
      PERFORM UNTIL J2 > 3
          IF A(J) > A(J2)
              MOVE A(J) TO I
              MOVE A(J2) TO A(J)
              MOVE I TO A(J2)
          END-IF
          COMPUTE J2 = J2 + 1
      END-PERFORM
      COMPUTE J = J + 1
  END-PERFORM.
      
  MOVE 1 TO J.
      PERFORM UNTIL J > 3
          DISPLAY A(J)
          COMPUTE J = J + 1
      END-PERFORM.
      
  STOP RUN.

Comments

[skkyy]

回答ありがとうございます！
どのように修正すればいいですか？

[shiketa]

> どのように修正すればいいですか？
それを考えるのが楽しいんじゃないですか。その愉しみを奪う気はありません。
ありませんのでヒント。「二周目のJ=2のとき、J2はいくつでしょうか？」と。
J, J2, I, A(1), A(2), A(3)がどのように変わっていくのか、一行一行進めながら表にでも書き出してみてはいかがかと。

[skkyy]

すみません...
愉しみとかを与えてくださったのはとてもありがたいのですが、
答えを知りたいだけなので教えてくださると助かります！

Answer 2

Jをカウントアップしたとき、それに合わせてJ2も初期設定する必要があります。
Jをカウントアップした値に+1した値がJ2の初期設定になります。