演習問題
問題１ ループを繰り返す毎に変数ａとループ変数 ｉ の値を画面に表示するＰＲＩＮＴ文を
下のプログラムに挿入し，それらの値が変化していることを確認するプログラムを作
成せよ。
１＋２＋３＋…・……＋１０を求めるプログラム
| ＤＥＦIＮＴ Ｉ ａ＝０ ＦＯＲ i＝１ ＴＯ １０ ａ＝ａ+i ＮＥＸＴ i ＥＮＤ |
※ ループ変数は，通常整数型の変数を用いる。他言語との移植を考慮する
ならば，ループ変数名は先頭の英字がｉ，ｊ，ｋ，ｌ，ｍ，ｎのいずれかで始
まる変数名とした方がよい。
問題２
においてａ＝１０，ｄ＝５，ｎ＝１００とした場合のＳを求めるプログラムをＦＯＲ〜ＮＥＸＴ文
を用いて作成せよ。
問題３
を求めるプログラムを指示に従い作成せよ。
ただし，面積を求めるには次の台形公式を使用する。
△ｘが０に近づく程，近似の精度はよくなる。
（１） △ｘ＝０．０１とし，ａ＝１．０，２．０，３．０とした場合の各々の面積を求めよ。
（２） 被積分関数を次式に示すように変更し，△ｘ，ａの条件は上に同じとした場合の面積を求めよ。
上のグラフは次のMatlabのプログラムを用いて描きました。
 |
問題４ 上の問題１のプログラムを基に１＋２＋３＋……＋ｎ （ｎ＝１０００とする）を求める際，
ｎ＝１００，２００，３００，・…，１０００の途中結果も表示するようにプログラムを修正せよ。
ただし，ＩＦ文（条件に余りを返す関数ＭＯＤを利用）を用いること。
問題５ 表に示す２回分の実験データを２次元配列変数 ｆ（ｉ，ｊ） （添字の意味：ｉ；班名１〜６，ｊ；実験データ１〜２）
にＲＥＡＤ〜ＤＡＴＡ文を用いて入力し，下記に示す要求を満たすプログラムを作成せよ。
班名 実験データ１回目 実験データ２回目
１班 ２２０ １８５
２班 ２００ ２３０
３班 １９５ ２００
４班 ２２０ ２１０
５班 １７０ １９０
６班 ２１０ ２２０
※ コンクリートの圧縮強度の単位（ｋｇｆ／ｃｍ＾２）
（１） 全実験データの最大値 ｆｍａｘ，最小値 ｆｍｉｎを求めよ。
（２） ＩＦ文を用いて全実験データの内，２１０ｋｇｆ／ｃｍ＾２末満の実験データ個数と
２１０ｋｇｆ／ｃｍ＾２以上の実験データ個数を求めよ。
（３） ２回の平均値が２１０ｋｇｆ／ｃｍ＾２以上を合格とした場合，合格となる班名を出カせよ。
問題６ 表に示す１５人分の身長と体重のデータをＲＥＡＤ〜ＤＡＴＡ文で読み取り，次の要求を満たす
プログラムを作成せよ。ただし，変数名として身長はｈ（ｉ），体重はｗ（ｉ）を用いる。
身長： １７３，１７１，１６５，１６５，１７３ 体重：６５，５５，６２，５８，７７
１７５，１７４，１６７，１６３，１６５ ５８，６８，５８，５５，６８
１６０，１６７，１７０，１８０，１７０ ５３，６５，５６，８０，７０
（１） 身長の最大値 ｈｍａｘを求めよ。
（２） 身長の平均値 ｈａｖｅｒ，体重の平均値 ｗａｖｅｒを求めよ。
（３） 下式を参考に，身長，体重の標準偏差 ｈｓｄ，ｗｓｄを求めよ。
ただし，
（４） 下式を参考に，相関係数ｒを求めよ。
（５）下式を参考に，回帰直線の傾きａ を求めよ。
ただし，ｘに身長，ｙに体重を対応させる
問題７ 一級建築士の学科試験を行った結果，１０人分のデータが次のようであった。
受験者ＮＯ． 構造 施工 計画 法規
−−−−−−−−−−−−−−−−−−−−−−
１ ６５ ５０ ７２ ４３
２ ５８ ５５ ６０ ８５
３ ８０ ６５ ７５ ６５
４ ５５ ３０ ５０ ４５
５ ７５ ６０ ６５ ７０
６ ９０ ５５ ６０ ６０
７ ４０ ４５ ５０ ７０
８ ５０ ６５ ４０ ６５
９ ８０ ５８ ３９ ５０
１０ ６０ ６５ ５７ ６５
以上のデータを基に以下の設問を満たすプログラムを順に作成し，最終的に１つの大きなプログラムを作成
せよ。
ただし，変数名は指定したものについてはそれを用い，ループ変数はｉ〜ｎを使用すること。
（１） 先ず，各学科の試験結果をＲＥＡＤ〜ＤＡＴＡ文で変数名ｔ（ｉ，ｊ）に読み込みなさい。
ただし，各受験者ＮＯ．にｉ＝１〜１０，科目名（構造〜法規）にｊ＝１〜４を夫々対応させるものとする。
（２） 各受験者の合計点および各科目の平均点を夫々求めよ。
変数名は合計点：ｔｏｔａｌ（ｉ），平均点：ａｖｅｒ（ｉ）とする。添字ｉ は１次元の配列変数であることを意味する。
（３） ＩＦ文を用いて，次の基準に従い学科試験の合格者を判定せよ。
ａ） ４科目とも６０点以上の受験者は無条件に合格とし，その受験者ＮＯ．を出力せよ。
ただし，４科目とも６０点以上か否かの判断は次の設問の準備を兼ねて６０点未満の科目数をカウントし，
その値が０の場合に全て６０点以上と見倣すようにすること。
ｂ） ４科目中１科目のみ６０点末満であるが，その点数が受験者の平均点以上であり，かつ４科目の合計点が
２４０点以上である場合には合格とする。この条件を満たす受験者ＮＯ．を出力せよ。
ヒント
６０点未満の科目数が１つのみの受験者について何番目の科目がそれに該当するのかを適当な変数
に保存し，ＡＮＤを用いたＩＦ文で判定を行う。
問題８ マトリックス［ａ］に列べクトル｛ｘ｝を掛けて｛ｙ｝を求めるプログラムをＦＯＲ〜ＮＥＸＴ文を用いて作成せよ。
なお，［ａ］および｛ｘ｝の各要素の具体的なデータは下記の通りとし，データを変更した場合でもなるべく修正の
少ないプログラムとなるよう心がけること。
次の一般例を参考に添字がどのように変わるかに着目し，配列変数の添字およびループ変数をどのように
設定すれば目的の計算が可能になるか考えよ。
上記の掛け算は，マトリックスを展開すると次のようになる。
問題９ 問題６で作成したプログラムに追加する形で，身長を横軸に体重を縦軸にとり，散布図を作成
するプログラムを作成せよ。なお，図中にはLINE文を用いて回帰直線とLOCATE文を用いて図中
の適当な位置に身長，体重の平均値と標準偏差値を表示せよ。
問題１０ 次のデータは，２クラス分の中間試験の結果の一覧である。そのデータを基に，以下の要求
を満たすプログラムを作成しなさい。
’ｐｒｏｔｅｓｔ ｄａｔａ ｏｆ １２１ ｓｔｕｄｅｎｔｓ
ＤＡＴＡ ５，２４，４２，８９，３６，１０，７，７０，１８，２０
ＤＡＴＡ １０，４５，１８，２，４６，３０，１８，１８，３５，１８
ＤＡＴＡ ２，７４，１４，１０，３９，１０，１０，５７，２２，６７
ＤＡＴＡ １８，１０７，１０，０，１０９，１０，８，８１，４６，４０
ＤＡＴＡ ６，７０，２６，４６，１３，０，２２，８８，０，７
ＤＡＴＡ １３，３０，０，３，１６，１０，８，１８，１８，２０
ＤＡＴＡ ０，７，８５，２０，１０，０，１０１，５，１１０，６６
ＤＡＴＡ ２０，１５，４５，８，１３，３４，２，１１１，２６，５０
ＤＡＴＡ ２２，１１８，１８，９，６６，７８，１２，１０，０，１０８
ＤＡＴＡ １０，１０，３０，２，９，１０，１０，８，２０，６
ＤＡＴＡ ７０，２，６３，６３，０，１２，４０，１２，６０，５４
ＤＡＴＡ ６，１０，５１，２０，２０，１０，１０，１１５，６０，１４
ＤＡＴＡ ３８
’ｗｒｔｅｓｔ ｄａｔａ ｏｆ １２１ ｓｔｕｄｅｎｔｓ
ＤＡＴＡ ２２，３１，２８，３２，２２，２７，２２，２８，３０，２４
ＤＡＴＡ ２７，２７，３０，２７，２７，３０，２２，２８，２７，２２
ＤＡＴＡ １６，２４，２４，２４，２９，２８，２５，３０，１９，２６
ＤＡＴＡ ２９，１５，２５，２５，２５，３０，９，２８，２６，２５
ＤＡＴＡ １８，２１，３０，３５，２０，２７，２８，３０，２３，２３
ＤＡＴＡ １８，２９，１７，２３，２９，３０，２４，２５，２２，２０
ＤＡＴＡ ２６，２２，２７，２２，２５，２４，３１，１８，３２，２６
ＤＡＴＡ ２５，１７，２５，２６，３１，２７，２２，３４，１８，２９
ＤＡＴＡ １９，４２，１９，２６，２５，２５，２１，２５，２４，３１
ＤＡＴＡ ２８，２４，２５，２４，３０，２４，２６，３０，２８，２９
ＤＡＴＡ ３０，２７，１９，２２，２８，２７，２６，２４，２４，２０
ＤＡＴＡ ２９，３１，２９，１２，２５，２７，３０，４３，２７，２８
ＤＡＴＡ ３０
ａ） ＲＥＡＤ〜ＤＡＴＡ文を用いて，プログラム作成試験点数をptest(i)に，記述式試験結果をｗｔｅｓｔ（ｉ）
に読み込みなさい。なお，ＤＡＴＡは打ち込み手間を節約するため用意してあります。
次いで，ｐｔｅｓｔ（ｉ）の平均値ｐａｖｅとｗｔｅｓｔ（ｉ）の平均値ｗａｖｅおよびｐｔｅｓｔ（ｉ）の標準偏差値
ｓｔｄを求めなさい。
ｂ） 横軸にプログラム作成試験の点数ptest(i)，縦軸に記述式の試験結果ｗｔｅｓｔ（ｉ）をとり，散布図
を作成せよ。なお，図中にはａ）で求めた平均値（ｐａｖｅ，ｗａｖｅ）をプロットし，図中の適当な位置
にｐａｖｅ，ｗａｖｅの値を表示しなさい。
ｃ） プログラム作成試験点数ptest(i）について，次の区間にある点数の人数を求めなさい。
０＜＝ｐｔｅｓｔ（ｉ）＜１０
１０＜＝ｐｔｅｓｔ（ｉ）＜２０
：
：
１１０＜＝ｐｔｅｓｔ（ｉ）＜１２０
上の結果を基に，横軸にｐｔｅｓｔ（ｉ）の点数，縦軸に区間の人数をとった棒グラフを作成しなさい。
ただし，ｂ）の散布図とは表示の画面を切り替え，ディスプレイの左半分を使用すること。
なお，図中にはＬＩＮＥ文で平均値ｐａｖｅを縦線で表示し，図中の適当な位置に平均値の値と
各区間の人数を表示しなさい。
ｄ） 次の正規分布を表わす関数の式を参考に，μに平均値ｐａｖｅ，σに標準偏差値ｓｔｄを代入して，
横軸にｐｔｅｓｔ（ｉ）をとり区間−７０〜１３０のグラフをｃ）で描いた図形の隣，即ちディスプレイの右半分
に表示しなさい。
なお，準備計算として縦軸の値ｆ（ｘ）がどのような範囲となるのかを確認してから，ＷＩＮＤＯＷの座標値
を決定しなさい。また，図中には平均値ｐａｖｅの縦線と平均値からそれぞれ±σ，±２σ，±３σだけ離れ
た位置を表わす適当な長さの縦線を表示しなさい。さらに平均値，標準偏差値も図中の適当な位置に
表示しなさい。
問題１１ シーケンシャルアクセスファイルの作成および読み込みを行う以下のプログラムを作成せよ。
（ａ） 問題８の［ａ］および｛ｘ｝のデータをＲＥＡＤ〜ＤＡＴＡ文で読み込み，それをシーケンシャルアクセスファイルとして
保存するプログラムを作成せよ。
（ｂ） 上記のシーケンシャルアクセスファイルからデータを読み込み｛ｙ｝＝［ａ］｛ｘ｝を求め，それを印刷するプログラムを
作成した後，さらに｛ｙ｝の値をシーケンシャルアクセスファイル（ファイル名 Ａ：ＭＡＴY．ＤＡＴ）として保存する
プログラムを作成せよ。
（ｃ） エクスプローラで保存したファイルを表示し，テキストファイルが作成されていることを確認せよ。
問題１２ ｘが１から１０まで１，２，・・・１０と変化するとき，次の関数値を求めるプログラムを以下の仕様で作成せよ。
ｙ１＝ＳＱＲ（ｘ），ｙ２＝ＥＸＰ（ｘ），ｙ３＝ＬＯＧ（ｘ）
注） ＬＯＧ（ ）は，自然対数を求める関数
仕様 ａ） ｙ１〜ｙ３の値はサブプロシージャにて計算すること。
ｂ） ｙ１〜ｙ３の結果は出力用のサブプロシージャにて打ち出すこと。
なお，サブプロシージャで必要となる変数は引数で受け渡す方式とし，出力の体裁は下記に従うこと。
ｘ ＳＱＲ（ｘ） ＥＸＰ（ｘ） ＬＯＧ（ｘ）
１
２
：
：
１０
問題１３ 次のデータは阪神大震災において，神戸海洋気象台で記録された地震波の初動直後から約３秒間の
地表のＮＳ加速度データ（単位ｇａｌ）である。これを基に次の要求を満たすプログラムを作成せよ。
なお，変数名は指示のあるものについてはそれに従うこと。
ＮＳ加速度（単位 ｇａl）
１４ ２５ ７
−１７ −２４ −２１ −１３
−２８ −２８ −１６
−１５ ７ ２２ ２２
１６ −１ −４ １６
２５ １８
１７ １７ −９
−２５ −３ ３６ ２９
−２２ −４１ −１４
４ −１３ −２６ １２
４２ ０ −６０ −７０ −１４ ２４
−２ −９ ２３ ４５
３０ −１６ −２１ ４５
８７ ５１
１６ ４３ ９２ ８３
１６ −２３ −１ ２４
１２ −５
１０ ５３ １１１ １７０
２０８ ２３２ ２６３ ２９４
３１８ ３４５
３３２ ２２３ ８３
−３３ −１５８ −３２７ −４５４
−４９７ −５０４ −５１０
−５３５ −５８６ −６２９ −５５６ −３５０ −１３８ −４ ６５
１３３ １７７
１７７ １７６ １７１ １４６
９７ ３１ −１０ １４
６２ ９６
１３３ １６４ １８９ ２１１
２２９ ２６１ ３１９ ３９１
４５０ ４７３
４６９ ４６３ ４６９ ４７３
４２４ ２９７ １２０ −５７ −２０１ −２８９
−３４３ −３９３ −４４３ −５１１ −５９３ −６７６ −７６１
−８１９ −８１１ −７０３
−５２１ −３４５ −２０８
−９７ −１９ ２２ ７０ １４９
２２４ ２７８
３２４ ３３７ ３０５ ２６１
２０７ １１８ ８ −７１ −１００ −１１８
注） ・サンプリング間隔：０．０２秒
・加速度の符号 ＋；北向き， −；南向き
（ａ） ＲＥＡＤ〜ＤＡＴＡ文で加速度記録を読み込み，シーケンシャルファイルを作成するプログラムを記述せよ。
ただし，ＤＡＴＡ文は上記に掲げた順に１５行で構成すること。
変数名−−＞加速度：ａｃｃ（ｉ）
（ｂ） 上のプログラムとは別にメインプログラムでシーケンシャルファイルから加速度記録を読み込み，次の要求を
満たすプログラムを作成せよ。
（ａ） 北向の最大加速度と南向きの最大加速度（即ち負符号の絶対値の最大値）を求め，
出カするサブプロシージャプログラムを作成せよ。
変数名−−＞北向きの最大加速度：ｎｍａｘ，南向きの最大加速度：ｓｍａｘ
（ｂ） 時間軸を横軸，加速度を縦軸にとり，加速度の波形記録を図示するサブプロシージャプログラム
を作成せよ。
問題１４ 住宅の新築計画にあたり，自己資金を除く残金は全てローンを組むことにした。１００万円を借りたときの
月々の返済額の早見表が次のように与えられているとき，以下の要求を満たすプログラムを作成せよ。
１００万円を借りたときの月々の返済額早見表（単位：円）
期間
年利 ２０年 ２１年 ２２年 ２３年 ２４年 ２５年 ２６年 ２７年 ２８年 ２９年 ３０年
５％ 6599 6417
6252 6104 5968 5845 5733 5630
5535 5448 5368
６％ 7164 6988
6830 6688 6559 6443 6336 6239
6151 6070 5995
７％ 7752 7584
7434 7299 7177 7067 6968 6878
6796 6721 6653
８％ 8302 8141 7997 7869 7755
7652 7559 7475 7399 7330
7268
（１） 上記の表をＲＥＡＤ〜ＤＡＴＡ文で読み込み，シーケンシャルファイルを作成するプログラムを作成せよ。
ただし，変数名は次に従う。
表中の金額 ：mm（i，ｊ）
（２） シーケンシャルファイルの内容を読み出すプログラムを新たに作成し，次いで以下の要求を満たす
サブプロシージャ（受け渡しは引数方式）を作成せよ。
（ａ） 新築費用，自己資金，ローン期間，年利をＩＮＰＵＴ文で入力し，月々の返済額を算定せよ。
ただし，変数名は次にしたがう。
新築費用：ｃｏｓｔ，自己資金：ｓmoney，ローン期間：ｙ，年利：r，月々の返済額：ｓ
（ｂ） 自己資金，年返済可能金額をＩＮＰＵＴ文で入力し，年利７％，返済期間を２０年，２５年，３０年とした
場合の新築物件の購入可能金額上限値を算定せよ。
ただし，変数名は次に従う。
年返済額：backm，融資金額：rentalm
問題１５ 次のプログラムを参考に，ランダムアクセスファイルを用いた会社名，住所，電話番号登録管理
プログラムを作成せよ。
| TYPE Rtype kaisya AS STRING * 25 Zip AS STRING * 12 Banti AS STRING * 16 Ku AS STRING * 11 Shi AS STRING * 8 Tel AS STRING * 12 END TYPE ' DIM Rva(10) AS Rtype CLS ndata=6 FOR i=1 TO ndata READ Rva(i).kaisya, Rva(i).Zip, Rva(i).Banti, Rva(i).Ku, Rva(i).Shi, Rva(i).Tel PRINT Rva(i).kaisya, Rva(i).Zip, Rva(i).Banti, Rva(i).Ku, Rva(i).Shi, Rva(i).Tel NEXT i OPEN "a:ADRES.DAT" FOR RANDOM AS #1 LEN=84 FOR i=1 TO ndata PUT #1, , Rva(i) NEXT i CLOSE #1 ' DATA Kume Design Office,060-0001,N1W4,Chuoh_ku,Sapporo,011-241-4788 DATA H.Development Consultant,060-0004,N4W3,Chuoh_ku,Sapporo,011-221-0771 DATA H.Nikken,060-0031,N1E2,Chuoh_ku,Sapporo,011-241-9537 DATA Ohbayashi_gumi,113-0033,Hongo 2-2-9,Bunkyo_ku,Tokyo,03-5689-1360 DATA Kajima Construction,107-0052,Akasaka 1-3-26,Minato_ku,Tokyo,03-3478-5561 DATA Shimizu Construction,105-0023,Shibaura 1-2-3,Minato_ku,Tokyo,03-5441-1111 END |
（a） 上記プログラムで作成したファイルからデータを読み込み，札幌市に所在する会社情報のみ画面に表示する
機能を有するプログラムを作成せよ。
（b） 郵便番号が060-0001の会社情報を画面に表示する機能を追加せよ。
（c） 上記の機能を発展させて所在地検索，郵便番号検索が可能となるプログラムに修正せよ。