1 / 28

実　習　１

実　習　１. データの集計・件数のカウント. 日　付 （ HIZUKE) 9(8). Ａゲートの入場者数 （ AGATE) 9(6). B ゲートの入場者数 （ BGATE) 9(6). 実習１. データの集計・件数のカウント. 　第１図のようなある遊園地の１ヶ月の入場者データを記録した入場者ファイルを 読み、処理条件にしたがい第２図のように印字するプログラムを完成させなさい。. 入力形式. 処理条件. 入力ファイル名： NYU － F 入力レコード名： NYU － R. （１）遊園地にはＡゲートとＢゲートの 　　２つの入り口がある。

berit
Download Presentation

実　習　１

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 実　習　１ データの集計・件数のカウント

  2. 日　付 （HIZUKE) 9(8) Ａゲートの入場者数 （AGATE) 9(6) Bゲートの入場者数 （BGATE) 9(6) 実習１ データの集計・件数のカウント 　第１図のようなある遊園地の１ヶ月の入場者データを記録した入場者ファイルを 読み、処理条件にしたがい第２図のように印字するプログラムを完成させなさい。 入力形式 処理条件 入力ファイル名：NYU－F 入力レコード名：NYU－R （１）遊園地にはＡゲートとＢゲートの 　　２つの入り口がある。 （２）ＡゲートとＢゲートの入場者数を 　　加え、入場者合計を求める。 （３）データが終わりになったら、入場 　　数の総合計と１日当たりの入場者数 　　の平均を求める。 （第１図） 出力形式 出力ファイル名：LIST－F 出力レコード名：LIST－R 　　　ﾋﾂﾞｹ　　　　Aｹﾞｰﾄ　　 　　Bｹﾞｰﾄ　　　 　ｺﾞｳｹｲ 99999999ZZZ，ZZ9ZZZ，ZZ9 Z，ZZZ，ZZ9 99999999ZZZ，ZZ9ZZZ，ZZ9 Z，ZZZ，ZZ9 　　　　　　　　　　　　　　　　　　　 　ｺﾞｳｹｲ　　ZZ，ZZZ，ZZ9 　　　　　　　　　　　　　　　　　　　 ﾍｲｷﾝ Z，ZZZ，ZZ9 ～ ～ ～ ～ （第２図）

  3. 入力データの形式 ファイル名： 実習1data.txt

  4. 入力形式・出力形式・処理条件から記憶領域を定義する入力形式・出力形式・処理条件から記憶領域を定義する

  5. M-HIZUKE 99999999 M-AGATE ZZZ,ZZ9 M-BGATE ZZZ,ZZ9 M-NYU Z,ZZZ,ZZ9 ｺﾞｳｹｲ G-GOKEI ZZ,ZZZ,ZZ9 ﾍｲｷﾝ H-HEIKIN Z,ZZZ,ZZ9 記憶領域の定義 記憶装置 FD:NYU-F01:NYU-R 入力領域 HIZUKE 99999999 AGATE 999999 BGATE 999999 XX 01:MEISAI-R 01:NYU 作業領域 999999 01:GOKEI 01:MIDASI 99999999 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 01:KENSU 01:GOKEI-R 99 01:HEIKIN 9999999 01:HEIKIN-R 01:E-FLG XXX FD:LIST-F01:LIST-R 出力領域 X(72)

  6. 記憶領域の定義からデータ部の記述をする

  7. データ部の記述① DATA DIVISION. FILE SECTION. FD NYU-F. 01 NYU-R. 02 HIZUKE PIC 9(8). 02 AGATE PIC 9(6). 02 BGATE PIC 9(6). 02 PIC X(2). FD LIST-F. 01 LIST-R PIC X(72). 入 力 領 域 出力 領域

  8. データ部の記述② WORKING-STORAGE SECTION. 01 E-FLG PIC X(3). 01 NYU PIC 9(7). 01 GOKEI PIC 9(8). 01 HEIKIN PIC 9(7). 01 KENSU PIC 9(2). 独立項目の記述 作 業 領 域

  9. データ部の記述③ 01 MIDASI. 02 PIC X(9) VALUE SPACE. 02 PIC X(4) VALUE "ﾋﾂﾞｹ". 02 PIC X(6) VALUE SPACE. 02 PIC X(5) VALUE "Aｹﾞｰﾄ". 02 PIC X(7) VALUE SPACE. 02 PIC X(5) VALUE "Bｹﾞｰﾄ". 02 PIC X(7) VALUE SPACE. 02 PIC X(5) VALUE "ｺﾞｳｹｲ". 01 MEISAI-R. 02 PIC X(5) VALUE SPACE. 02 M-HIZUKE PIC 9(8). 02 PIC X(5) VALUE SPACE. 02 M-AGATE PIC ZZZ,ZZ9. 02 PIC X(5) VALUE SPACE. 02 M-BGATE PIC ZZZ,ZZ9. 02 PIC X(5) VALUE SPACE. 02 M-NYU PIC Z,ZZZ,ZZ9. 見出行の記述 作 　業　 領　 域 明細行の記述

  10. データ部の記述④ 合計行の記述 01 GOKEI-R. 02 PIC X(35) VALUE SPACE. 02 PIC X(6) VALUE "ｺﾞｳｹｲ ". 02 G-GOKEI PIC ZZ,ZZZ,ZZ9. 01 HEIKIN-R. 02 PIC X(35) VALUE SPACE. 02 PIC X(7) VALUE "ﾍｲｷﾝ ". 02 H-HEIKIN PIC Z,ZZZ,ZZ9. 作 業 領 域 平均行の記述

  11. 処理手順を考える

  12. 入力ファイル・出力ファイルを開く • COBOLのプログラムでは、最初の処理は入力用、出力用のファイルを開くことである。 • ファイルを開くとは、ファイルを使用できる状態にすることである。

  13. HIZUKE AGATE BGATE M-HIZUKE M-AGATE M-BGATE M-NYU ｺﾞｳｹｲ G-GOKEI ﾍｲｷﾝ H-HEIKIN 入力装置 ①　初期値を設定する 記憶装置 演算装置 NYU-R 入力領域 MEISAI-R NYU 作業領域 GOKEI MIDASI 初期値 ０ 0 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 初期値 ０ 0 HEIKIN HEIKIN-R E-FLG 初期値”OFF” OFF LIST-R 出力領域 出力装置

  14. HIZUKE AGATE BGATE M-HIZUKE M-AGATE M-BGATE M-NYU ｺﾞｳｹｲ G-GOKEI ﾍｲｷﾝ H-HEIKIN 入力装置 ②　見出行を印字する 記憶装置 演算装置 NYU-R 入力領域 MEISAI-R NYU 作業領域 GOKEI MIDASI 0 　　　　ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ

  15. 繰り返し処理 入力データを読み終えるまで（E-FLG ＝ “ON”となるまで)以下の手続きを繰り返す。 ③入力データを読む。 ④入場者数の合計を求める。 ⑤各項目を明細行に転記する。 ⑥明細行を印字する。 ⑦入場者数の合計を総合計に加える。 ⑧データの件数をカウントする。

  16. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU ｺﾞｳｹｲ G-GOKEI ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ③　入力データを読む 記憶装置 演算装置 NYU-R 入力領域 MEISAI-R NYU 作業領域 GOKEI MIDASI 0 　ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ

  17. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ④　入場者数の合計を求める 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 100000 120000 MEISAI-R NYU 作業領域 220000 GOKEI MIDASI 0 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ

  18. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑤　各項目を明細行に転記する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 100000 120000 MEISAI-R NYU 作業領域 220000 GOKEI MIDASI 0 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ

  19. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑥　明細行を印字する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 100000 120000 MEISAI-R NYU 作業領域 220000 GOKEI MIDASI 0 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000

  20. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑦　入場者数の合計を総合計に加える 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 100000 120000 MEISAI-R NYU 作業領域 220000 GOKEI GOKEI　＋　NYU MIDASI 0 220000 0 220000 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU GOKEI-R 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000

  21. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑧　データの件数をカウントする 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 100000 120000 MEISAI-R NYU 作業領域 220000 GOKEI GOKEI　＋　NYU MIDASI 220000 0 220000 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU KENSU　＋　1 GOKEI-R 1 0 0 HEIKIN HEIKIN-R E-FLG OFF LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000

  22. 入力データ終了後の処理 以下の手続きがある。 ⑨入場者数の総合計を合計行に転記する。 ⑩合計行を印字する。 ⑪入場者数の総平均を計算する。 ⑫入場者数の総平均を平均行に転記する。 ⑬平均行を印字する。

  23. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑨　入場者数の総合計を合計行に転記する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 300756 370075 MEISAI-R NYU 作業領域 670831 GOKEI GOKEI　＋　NYU MIDASI 7138272 6467441 670831 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU KENSU　＋　1 GOKEI-R 21 20 7,138,272 HEIKIN HEIKIN-R E-FLG ON LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000

  24. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑩　合計行を印字する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 300756 370075 MEISAI-R NYU 作業領域 670831 GOKEI GOKEI　＋　NYU MIDASI 7138272 6467441 670831 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU KENSU　＋　1 GOKEI-R 21 20 7,138,272 HEIKIN HEIKIN-R E-FLG ON LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000 ｺﾞｳｹｲ 7,138,272

  25. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑪　入場者数の総平均を計算する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 300756 370075 MEISAI-R NYU 作業領域 670831 GOKEI GOKEI　＋　NYU MIDASI 7138272 6467441 670831 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU KENSU　＋　1 GOKEI-R 21 20 7,138,272 HEIKIN GOKEI/ KENSU HEIKIN-R 339917 21 7138272 E-FLG ON LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000 ｺﾞｳｹｲ 7,138,272

  26. HIZUKE AGATE BGATE 20040725 100000 120000 M-HIZUKE M-AGATE M-BGATE M-NYU 220,000 20040725 100,000 120,000 ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑫　入場者数の総平均を平均行に転記する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 300756 370075 MEISAI-R NYU 作業領域 670831 GOKEI GOKEI　＋　NYU MIDASI 7138272 6467441 670831 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU KENSU　＋　1 GOKEI-R 21 20 7,138,272 HEIKIN GOKEI/ KENSU HEIKIN-R 339917 21 7138272 E-FLG 339,917 ON LIST-R 出力領域 出力装置 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 20040725 100,000 120,000 220,000 ｺﾞｳｹｲ 7,138,272

  27. HIZUKE AGATE BGATE M-HIZUKE M-AGATE M-BGATE M-NYU ｺﾞｳｹｲ G-GOKEI 　ﾍｲｷﾝ H-HEIKIN 入力装置 入力データ ⑬　平均行を印字する 記憶装置 演算装置 NYU-R 入力領域 AGATE　＋　ＢＧＡＴＥ 20040725 100000 120000 300756 370075 MEISAI-R NYU 作業領域 670831 220,000 20040725 100,000 120,000 GOKEI GOKEI　＋　NYU MIDASI 7138272 6467441 670831 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ KENSU KENSU　＋　1 GOKEI-R 21 20 7,138,272 HEIKIN GOKEI/ KENSU HEIKIN-R 339917 21 7138272 E-FLG 339,917 ON LIST-R 出力領域 ﾋﾂﾞｹ　　　　　　Aｹﾞｰﾄ　　　　　　Bｹﾞｰﾄ　　　　　 ｺﾞｳｹｲ 出力装置 20040725 100,000 120,000 220,000 ｺﾞｳｹｲ 7,138,272 ﾍｲｷﾝ 339,917

  28. 入力ファイル・出力ファイルを閉じる • COBOLのプログラムでは、最後の処理は入力用、出力用のファイルを閉じることである。

More Related