COBOLのCOUNTER

質問

COBOL初心者です。
COBOL97を使用しています。
人数を入力して、入力した人数の得点を入力、
入力した得点の平均、合計、最大、最小を表示するプログラムを作成しています。
PERFORM文とCOUNTERの指定方法がよくわかりません。
COUNTERは数字でなければならないのでしょうか？
どのようにプログラムを書いてよいかわかりません・・・・
どなたかお助け下さい。
お願いします。

01 VAL.
02 VAL PIC 9(4).
01 MAX-VAL PIC 9(4) VALUE ZERO.
01 MIN-VAL PIC 9(4).
01 TOTAL-VAL PIC 9(4).
01 AVERAGE-VAL PIC 9(4).
01 COUNTER PIC 9(1).
01 PEOPLE PIC 9(15).
01 MAX-Disp PIC Z(3)9.
01 TOTAL-Disp PIC Z(3)9.
01 AVERAGE-Disp PIC Z(3)9.
01 MIN-Disp PIC Z(3)9.
01 得点 PIC 9(4).
PROCEDURE DIVISION.
DISPLAY "人数を入力してください".
ACCEPT PEOPLE.
DISPLAY PEOPLE "人です".
DISPLAY "テストの得点を入力してください".
PERFORM TEST BEFORE
VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > PEOPLE

回答No.2

stsu · ベストアンサー

コーディングの途中ですね。
完成させることは簡単ですが、ヒントだけに留めます。

PERFORM TEST BEFORE
VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > PEOPLE

　COUNTERの値を使いｎ件目の得点の入力促進メッセージ表示
　ｎ件目の得点の入力
　入力された得点を合計値に加算
　最大値、最小値との比較をそれぞれ行い入れ替える

END-PERFORM

ループを抜けた後で平均値の計算、結果の編集・表示を行う。

注）
DISPLAY "テストの得点を入力してください".の位置は変えたほうが良い。
合計値および最小値の初期値が定義されていないので、初期値として
定義するか、ループ前に代入するロジックが必要。

多分、この程度で完成できるかと思います。

お礼

お礼が遅くなってしまい、申し訳ありません。
とてもわかりやすいヒントありがとうございました！
大変参考になりました！

頑張って作ってみます！！！

回答No.1

chukenkenkou

何を質問しているのかが、分かりにくいのですが？

前の質問（QNo.3179530）との関係が分かりません。
前の質問が解決した上で、この質問をしていますか？

>COUNTERは数字でなければならないのでしょうか？

当然です。
ただし、COBOLは外部10進も数値として扱えます。

変数=PEOPLEは、9(15)ですが、ACCEPTでは数値を15桁で入力しないと、うまく入らないと思います。
（少なくとも、私が使用していたCOBOLコンパイラはそうでした）

5を入力する場合は、次のような感じです。
○→000000000000005
×→5

一方、変数=COUNTERは、9(1)と1桁になっていますが？
前の質問（QNo.3179530）で指摘を受け、修正したのではなかったのですか？

お礼

お礼が遅くなってしまい、申し訳ありません。
前回質問したプログラムとは異なるものです。

COUNTERの説明、よくわかりました。
私が使っているのは、スクール用の簡単なソフトみたいです。
でもほととんどＣＯＢＯＬについて何もしらない人間ですので、
一苦労です・・・・
ありがとうございました。