４．プロシージャ

　　プログラム中で同じ作業を何度も繰り返す場合，その作業をプロシージャで記述しそれを参照すると，プログラムが
　短く簡潔で分かりやすくなる。プロシージャにはサブプロシージャ（サブルーチンプログラムに相当）と関数プロシージャ
　（関数副プログラム，ユーザー定義関数に相当）の２種類がある。
　　以下ではその使用方法について説明する前準備として，Quick Ｂａｓｉcのプログラム構造およびその他の予備知識
　について述べる。

Quick Ｂａｓｉcのプログラム構造
　　　　・大規模なプログラムは，メインモジュールと複数のサブモジュールで構成される。メインモジュールとはプログ
　　　　　ラムの中で最初に制御が渡される部分をいう。ただし，講義で扱うプログラムはその大きさが小さいので，メイ
　　　　　ンモジュールのみで構成され，サブモジュールはない。
　　　　・上記の各モジュールは，複数のプロシージャとモジュールレベルコード（プロシージャを除く部分でメインプログ
　　　　　ラムに相当）から構成される。
　　　　　メインモジュールにはモジュールレベルコードを必ず含まなければならないが，サブモジュールではその必要
　　　　　はない。
　　　　なお，詳細は，Quick Ｂａｓｉc　Handｂｏｏｋ Ｐ２９７〜Ｐ３０８を参照のこと。

プロシージャの基本構造
　　　　サブプロシージャ，関数プロシージャのプログラムの先頭および文末のステートメントは基本的に下記の通りで，
　　　　それらの中間に仕事の内容に応じたステートメントを記述する。

　　　　　なお，詳細はQuick Ｂａｓｉc　Handｂｏｏｋ Ｐ４１〜Ｐ９４を参照のこと。

プロシージャの作成方法
　　　　プロシージャをQuick Ｂａｓｉcで作成するには２つの方法がある。
　　　　　　・Ｅｄｉｔ−Ｎｅｗ　ＳＵＢ　あるいは　Ｅｄｉｔ−Ｎｅｗ　ＦＵＮＣＴＩＯＮ　を選択する。
　　　　上の操作をすると，自動的に先頭と末尾のステートメントのみが記述されたプロシージャ編集画面に切り替わる。

プロシージャとモジュールレベルコードの編集画面の切り替え
　　　　各プロシージャの編集画面とモジュールレベルコードの編集画面は異なる。このため，編集画面を切り替える。
　　　　　　・Ｆ２キーを押す
　　　　上の操作を行い，編集したいプロシージャあるいはモジュールレベルコードに白黒反転表示を合わせ，Ｅｎｔｅｒ
　　　キーを押す。
　　　プログラムを保存する場合は，モジュールレベルコードを保存すれば，それに関連するプロシージャも自動的に
　　　いっしょに保存される。同様に一度プログラムを保存すればプログラムを読み込む際にモジュールレベルコードを
　　　読み込むと，関連するプロシージャも自動的に読み込まれる。

（１）サブプロシージャ
　　　多元連立一次方程式をＧａｕｓｓの消去法で解くプログラムを例にサブプロシージャの使用方法を説明する。
　　　Ｇａｕｓｓの消去法では，前進消去の計算で［ａ］マトリックスの対角要素より左下三角部分（対角要素は含まない）
　　　を０とするような式の変形を行う。次いで後退代入計算を行い，Ｘｎから順にＸ１までの値を求める。
　　　　　　　　　　　
　　　次のプログラムは，モジュールレベルコードで必要なデータ［ａ］および｛ｙ｝の値を読み込み，サブプロシージャで｛ｘ｝を
　　　求めた後，その答をモジュールレベルコードで打ち出す。


　　　　　　　　　　　　　　　　　　　　　　　参考プログラムリスト（引数による変数の受け渡し例）

プログラムの解説
　１）　ＤＥＣＬＡＲＥ文
　　　　　　ＤＥＣＬＡＲＥ　ＳＵＢ　サブプロシージャ名　（［引数リスト］）
　　　　・Ｑｕｉｃｋ　Ｂａｓｉｃでプログラムを作成すると，プログラムを保存する際に自動的にＤＥＣＬＡＲＥ文が挿入される。
　　　　　この宣言は該当モジュール全体で有効。
　　　　・ＤＥＣＬＡＲＥ文を指定すると，コンパイル時にプロシージャを呼び出すときの引数の個数とデータ型がチェック
　　　　　される。
　　　　・ＤＥＣＬＡＲＥ文はコンパイルしてオブジェクトモジュールを作成する場合には必ず必要である。しかし，インター
　　　　　プリター型で使用する場合には省略可能。
　　　　・別のモジュールで定義されているプロシージャを呼び出すときにはＤＥＣＬＡＲＥ文が必要。
　　　　　（講義では別のモジュールが必要となるような大きなプログラムは作らない。）
　　　　注意
　　　　　　・サブプロシージャ名は，４０文字以内，ただしＦＮで始まってはいけない。名前は変数名の規則に従う。
　　　　　　・ＤＥＣＬＡＲＥ文で，引数リストを省略する場合でも外側の（　）は省略できない。

　２）　ＣＡＬＬ文〜サブプロシージャの呼び出し

　　　　　・ＤＥＣＬＡＲＥ文でサブプロシージャ名を宣言しているときはＣＡＬＬを省略し，サブプロシージャ名から記述しても
　　　　　　よい。この場合は，引数を囲む外側の（　）を付けてはいけない。
　　　　　ＤＥＣＬＡＲＥ文が省略されているときは必ずＣＡＬＬから記述する。
　　　　　結論〜ＤＥＣＬＡＲＥ文の有無に拘わらず，ＣＡＬＬから記述する方が無難。
　　　　・プログラムの実行順序〜ＣＡＬＬ文のところで実行はサブプロシージャに移行する。ＥＮＤ　ＳＵＢまで実行を終え
　　　　　た後モジュールレベルコードに戻る。そしてＣＡＬＬ文の次のステートメントに実行が移る。
　　　　・引数〜モジュールレベルコードとサブプロシージャ間で受け渡される単純変数名，配列変数名などの内，
　　　　　　　　　モジュールレベルコード側のものを引数と呼ぶ。反対にサブプロシージャ側のものをQuick Basicでは
　　　　　　　　　パラメータと呼ぶ。
　　　　　変数の受け渡し方法としては引数による他，
　　　　　　　ＤｌＭ　ＳＨＡＲＥＤ文，ＣＯＭＭＯＮ　ＳＨＡＲＥＤ文，ＲＥＤｌＭ　ＳＨＡＲＥＤ文，ＳＨＡＲＥＤ文がある。
　　　　　引数とこれらの方法を混用してもよい。詳細については，後述の参考例を参照されたい。
　　　　注意
　　　　　　・引数とパラメータ間の受け渡し規則
　　　　　　　　　・引数とパラメータの個数は同じでなければならない。
　　　　　　　　　・対応する引数とパラメータのデータ型は同じでなければならない。
　　　　　　　　　・対応する引数とパラメータの名前は同じである必要はない。
　　　　　　　　　・引数として定数を指定できるが，パラメータに定数を指定できない。
　　　　　　・ＣＡＬＬ文で，引数の受け渡しがなされない場合
　　　　　　　　　・２つのプログラム間でたとえ同じ変数名であってもそれらは互いに無関係な独立な変数，即ちロ−カル
　　　　　　　　　　変数として扱われる。
　　　　　　・ＣＡＬＬ文で，受け渡しがされた場合
　　　　　　　　　・モジュール間で共有して参照できるグローバル変数として扱われる。従来のＢａｓｉｃにあるＧＯＳＵＢ文で
　　　　　　　　　　特定のサブルーチンプログラムに飛び，ＲＥＴＵＲＮ文でメインプログラムに戻る形式のプログラムにおい
　　　　　　　　　　ては，グローバル変数の扱いとなっている。

　３）　ＳＵＢ文　および　ＤＥＦＩＮＴ文

　　　　　　・通常はサブプロシージャの先頭はＳＵＢ文で始まる。ただし，参考プログラムではＤＥＦＩＮＴの宣言文がＳＵＢ文
　　　　　　　の前にきている。
　　　　　　　理由：引数リスト中のｎを整数型として使用しているためである。モジュールレベルコードでＤＥＣＬＡＲＥ文に先
　　　　　　　　　　　立ちＤＥＦＩＮＴの宣言でｎを整数型と定義しているが，サブプロシージャでＤＥＦＩＮＴの宣言を省略すると，
　　　　　　　　　　　”データの不一致である”というエラーメッセージが表示される。このためにＳＵＢ文に先立ちＤＥＦＩＮＴの
　　　　　　　　　　　宣言を行う。
　　　　なお，ＤＥＦＩＮＴで宣言した変数ｎと変数ｎ％は異なる変数（識別子は変数名の一部）として解釈されることに注意。

　４）　ＯＰＴＩＯＮ　ＢＡＳＥ　１
　　　　　　・配列変数の添字の下限値が１となるように指定している。この文が省略された場合には,下限値は０である。

　５）　ＰＲＩＮＴ　ＵＳＩＮＧ文
　　　　　　・ＰＲＩＮＴ　ＵＳＩＮＧ文を用いると，打ち出し書式を自由に指定することが可能となる。

　６）　参考プログラム中の破線の囲み
　　　　　　・引数による受け渡しをしない場合に変更となるステートメントブロックで，詳細は”ＳＨＡＲＥＤによる変数の
　　　　　　　共有”を参照のこと。

　　
　問題　ＳＨＡＲＥＤ文，ＣＯＭＭＯＮ　ＳＨＡＲＥＤ文，ＤｌＭ　ＳＨＡＲＥＤ文，ＲＥＤｌＭ　ＳＨＡＲＥＤ文の使用方法を
　　　　　ＱＢアドバイザーで確認しなさい。

　間題　ＰＲＩＮＴ　ＵＳＩＮＧ文についても上記同様その解説を確認しなさい。

　ＳＨＡＲＥＤによる変数の共有
　　　　ＳＨＡＲＥＤ文〜プロシージャに記述し，そのプロシージャとモジュールレべルコードの間だけで変数は共有される。
　　　　　　　　　　　　　　したがって，他のプロシージャがこれらの変数を共有することはできない。
　　　　ＣＯＭＭＯＮ　ＳＨＡＲＥＤ文，ＤｌＭ　ＳＨＡＲＥＤ文，ＲＥＤｌＭ　ＳＨＡＲＥＤ文〜モジュールレベルコードに記述し，
　　　　　　　　　　　　　　モジュールレべルコードとそのモジュール内の全てのプロシージャとの間で変数は共有される。
　　　　　　　なお，先の参考プログラムを”ＳＨＡＲＥＤによる変数の共有”を用いて修正する場合には，参考プログラムの
　　　　　　　破線で囲んだ部位を次のように差し替えればよい。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ＳＨＡＲＥＤ文）

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ＣＯＭＭＯＮ　ＳＨＡＲＥＤ文）

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ＤｌＭ　ＳＨＡＲＥＤ文）

　（２）関数プロシージャ
　　　　　サブプロシージャと関数プロシージャの違いは，サブプロシージャはその呼び出しがＣＡＬＬ文などを用いて
　　　　　１つの文として扱われるのに対して，関数プロシージャは命令の一要素として使われ，プロシージャで計算
　　　　　された値を返す。

　　　　次の参考プログラムはβを０．１から０．５まで０．１刻みで次式
　　　　　　　ＣＯＳ（０）＋ＣＯＳ（β）＋ＣＯＳ（２β）＋・・・・＋ＣＯＳ（（ｎ‐１）β）
　　　　　　　＝ＣＯＳ（（ｎ−１）β／２）＊ＳＩＮ（ｎβ／２）／ＳＩＮ（β／２）
　　　　が成立することを確認するプログラムである。このプログラムを用いて関数プロシージャの使用方法を以下に
　　　　説明する。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

　プログラムの解説
　　１）　モジュールレべルコードでＦＵＮＣＴＩＯＮ名があると，関数プロシージャに実行が移り，計算された値が
　　　　　ＦＵＮＣＴＩＯＮ名に保存され，返されてくる。従って，ＦＵＮＣＴＩＯＮ名にも整数型，実数型（単精度，倍
　　　　　精度）などの型の区別がある。あたかもひとつの変数名のような記述のされ方をする。ＦＵＮＣＴＩＯＮ名
　　　　　の後ろの（）は引数で受け渡す場合の記述方法である。
　　２）　ＦＵＮＣＴＩＯＮの後ろに続くｃｏｓｂがＦＵＮＣＴＩＯＮ名。
　　３）　上の関数プロシージャは，引数で受け渡す場合である。
　　４）　関数プロシージャにおいては，ＦＵＮＣＴＩＯＮ名は代入文の左辺に必ず出て来るが，右辺の式中には記述
　　　　　できない。
　　　　　　なお，破線の囲みは，引数による受け渡し以外の方法の場合に変更となる部分。

　ＳＨＡＲＥＤによる変数の共有
　　　　上記の参考プログラムを”ＳＨＡＲＥＤによる変数の共有”を用いて修正する場合には参考プログラムの破線の
　　　　囲みを次のように記述すればよい。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ＳＨＡＲＥＤ文）

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ＣＯＭＭＯＮ　ＳＨＡＲＥＤ文）

目次へ戻る