【基本情報技術者試験平成17年春期午後】問題と解答

[TOP] [午前分野別] [午後分野別] [キーワード索引] [令和元年秋午前] [令和元年秋午後]

平成17年春期基本情報技術者午後問07

問07　　 COBOL

次の COBOL プログラムの説明及びプログラムを読んで，設問１，２に答えよ。

〔プログラムの説明〕

あるイベントの来場者アンケートを集計し，年代別職業別参加人数表を出力するプログラムである。

(1)　アンケートファイルのレコード様式は，次のとおりである。

年齢
　　1 けた

　　職業
　　1 けた

興味
　　1 けた

その他の答え
　　97 けた

①　年齢は，年代別にコード化されており，次のいずれかが記録されている。

1：10 ～ 19 歳， 2：20 ～ 29 歳， 3：30 ～ 39 歳，
4：その他（9 歳以下又は 40 歳以上）

②　職業は，学生，自営業，会社員などに分類してコード化されており，次のいずれかが記録されている。

1：学生， 2：自営業， 3：会社員， 4：その他

③　興味は，来場の主目的が，体験，セミナ，展示などのどれであるかをコード化したものであり，次のいずれかが記録されている。

1：体験， 2：セミナ， 3：展示， 4：その他

(2)　来場者アンケートを集計して，次の年代別職業別参加人数表を出力する。

①　各参加人数は，来場者アンケートを集計した結果で，総参加人数は最大６けたである。

②　年代別，職業別に参加人数を印字し，さらに年代別の合計を印字する。

③　参加人数及び合計人数以外の文字は，あらかじめ印字されている。

(3)　アンケートファイルのレコードの各項目にエラーはない。

〔プログラム〕

DATA DIVISION.
FILE SECTION.
FD  ENQUETE-F.
01  ENQUETE-R.
    03  E-NENREI     PIC 9(1).
    03  E-SHOKUGYO   PIC 9(1).
    03  E-KYOMI      PIC 9(1).
    03               PIC X(97).
FD  PRINT-F.
01  PRINT-R PIC X(100).
WORKING-STORAGE SECTION.
01  HYO.
    03  A            OCCURS 4 INDEXED BY X.
       05  B         OCCURS 4 INDEXED BY Y PIC 9(6).
01  END-SW           PIC X(3) VALUE SPACE.
01  KUHAKU           PIC X(100) VALUE SPACE.
01  MEISAI.
    03               PIC X(10) VALUE SPACE.
    03               OCCURS 5 INDEXED BY Z.
       05            PIC X(4) VALUE SPACE.
       05  NINZUU    PIC ZZZ,ZZ9.
01  GOKEI            PIC 9(6) VALUE ZERO.
PROCEDURE DIVISION.
HAJIME.
    OPEN INPUT ENQUETE-F OUTPUT PRINT-F.
    INITIALIZE HYO.
    PERFORM UNTIL END-SW = "END"
       READ ENQUETE-F 
          AT END MOVE "END" TO END-SW
          NOT AT END 


       END-READ
    END-PERFORM.
    WRITE PRINT-R FROM KUHAKU AFTER PAGE.
    WRITE PRINT-R FROM KUHAKU AFTER  .
    PERFORM VARYING X FROM 1 BY 1 UNTIL X > 4
       PERFORM VARYING Y FROM 1 BY 1 UNTIL Y > 4
         
          MOVE B(X Y) TO NINZUU(Z)
         
       END-PERFORM
       MOVE GOKEI TO NINZUU(5)
       WRITE PRINT-R FROM MEISAI AFTER 2
       MOVE ZERO TO GOKEI
    END-PERFORM.
    CL OS E ENQUETE-F PRINT-F.
    STOP RUN.