質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.53%
ソート

複数のデータを、順序性に従って並べ替えること。 データ処理を行う際に頻繁に用いられ、多くのアルゴリズムが存在します。速度、容量、複雑さなどに違いがあり、高速性に特化したものにクイックソートがあります。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します

COBOL

COBOL(COmmon Business Oriented Langage)は、実務処理用に開発されたプログラミング言語です。

Q&A

1回答

643閲覧

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

skkyy

総合スコア0

ソート

複数のデータを、順序性に従って並べ替えること。 データ処理を行う際に頻繁に用いられ、多くのアルゴリズムが存在します。速度、容量、複雑さなどに違いがあり、高速性に特化したものにクイックソートがあります。

ループ

ループとは、プログラミングにおいて、条件に合致している間、複数回繰り返し実行される箇所や、その制御構造を指します

COBOL

COBOL(COmmon Business Oriented Langage)は、実務処理用に開発されたプログラミング言語です。

0グッド

0クリップ

投稿2023/07/17 15:47

編集2023/07/24 21:29

実現したいこと

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

発生している問題

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

該当のソースコード

COBOL

1 2IDENTIFICATION DIVISION. 3program-id. SAMPLE. 4ENVIRONMENT DIVISION. 5DATA DIVISION. 6WORKING-STORAGE SECTION. 701 my-date. 8 03 J PIC 9(2). 9 03 J2 PIC 9(2). 10 03 I PIC 9(2). 11 03 A PIC 9(2) OCCURS 3. 12 13PROCEDURE DIVISION. 14MOVE 1 TO J. 15 16PERFORM UNTIL J > 3 17 18ACCEPT A(J) 19 20COMPUTE J = J + 1 21END-PERFORM. 22 23MOVE 1 TO J. 24MOVE 2 TO J2. 25PERFORM UNTIL J = 3 26 PERFORM UNTIL J2 > 3 27 IF A(J) > A(J2) 28 MOVE A(J) TO I 29 MOVE A(J2) TO A(J) 30 MOVE I TO A(J2) 31 END-IF 32 COMPUTE J2 = J2 + 1 33 END-PERFORM 34 COMPUTE J = J + 1 35END-PERFORM. 36 37MOVE 1 TO J. 38 PERFORM UNTIL J > 3 39 DISPLAY A(J) 40 COMPUTE J = J + 1 41 END-PERFORM. 42 43STOP RUN.

問題の発生した環境

paiza.io

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

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


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

だけ? はぁ…

diff

1 IDENTIFICATION DIVISION. 2 program-id. SAMPLE. 3 ENVIRONMENT DIVISION. 4 DATA DIVISION. 5 WORKING-STORAGE SECTION. 6 01 my-date. 7 03 J PIC 9(2). 8 03 J2 PIC 9(2). 9 03 I PIC 9(2). 10 03 A PIC 9(2) OCCURS 3. 11 12 PROCEDURE DIVISION. 13 MOVE 1 TO J. 14 15 PERFORM UNTIL J > 3 16 17 ACCEPT A(J) 18 19 COMPUTE J = J + 1 20 END-PERFORM. 21 22 MOVE 1 TO J. 23- MOVE 2 TO J2. 24 PERFORM UNTIL J = 3 25+ COMPUTE J2 = J + 1 26 PERFORM UNTIL J2 > 3 27 IF A(J) > A(J2) 28 MOVE A(J) TO I 29 MOVE A(J2) TO A(J) 30 MOVE I TO A(J2) 31 END-IF 32 COMPUTE J2 = J2 + 1 33 END-PERFORM 34 COMPUTE J = J + 1 35 END-PERFORM. 36 37 MOVE 1 TO J. 38 PERFORM UNTIL J > 3 39 DISPLAY A(J) 40 COMPUTE J = J + 1 41 END-PERFORM. 42 43 STOP RUN.

投稿2023/07/18 00:41

編集2023/07/24 12:29
shiketa

総合スコア3971

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

skkyy

2023/07/18 00:52

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

2023/07/18 02:45

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

2023/07/18 06:43

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.53%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問