※途中で戻りたい場合は、ブラウザの「戻る」機能を使ってください。
メルマガの読者に助けられる前章で、１から４３までの６つの数字をランダムに求めるプログラムで、結果が全て同じになってしまう問題を色々考えて悩んでいる旨をメルマガで伝えたところ、読者の方から解説つきのプログラムがメールで送られて来ました。どうやら問題解決することが出来そうです。以下、そのメールの情報を元に、理解しながら修正していきたいと思います。 では、前章で作ったプログラムのスナップショットをもう一度載せておきます。  乱数を求めるプログラムをもっとスマートにするまず初めは2行に渡って作られた、１から４３までの数字をランダムに求めるプログラムをもっと簡潔に出来ることを知りました。その問題部分を抽出してみました。  いままでのプログラムでは、３０行で０から１００までの乱数を求めて、４０行で「４３より大きければ、３０行に戻り、もう一度乱数を得る」という仕組みです。 また、これだと０も得られてしまいます。 書き換えたプログラム箇所です。  そこで、３０行をこう書き換えることで、２行にわたるプログラムを１行に簡潔にまとめることが出来ます。 解説すると、（RND（−TIME））に４２をかけて小数部分を切り捨てることで得られる乱数の範囲は、０から４２となります。 [ポイント] ０〜Ａまでの乱数を求めるには、FIX(RND(-TIME)*A) そこで、その答えに１を加えることで得られる乱数の範囲は、１から４３という結果になります。 前に書いた通り、小数点切捨てはFIX関数なので、INTからFIXに変えました（支障が無い限り、そうしていきます）。  ３０行を書き換えた後は、４０行を消去して１行にまとめることが出来ました。 二重のIF文には、ANDを使う次は６０行のIF文を直します。６０行を抽出して表示してみました。  この行の意味としては、「A(B)とAの内容が違うかつ「A(B)の内容が０である場合に、A(B)へAの内容を代入する」ということなのですが、「条件かつ条件ならば」という表現には、AND命令を使うとスマートに表現できます。 AND命令に置き換えてみました。  AND命令は「小さいプログラムから その３」で紹介されていますので、必要ならば参照してください。 FOR NEXT文をIF GOTO文へ抽出してみました。 目的の処理は、「ランダムで選んできた数字が、今まで選んだ数字と違い、配列にまだ空きがあれば、代入する。今まで選んだ数字と一緒なら、もう一度ランダムで数字を選びなおす。配列に空きが無くなれば、処理を終了。」という事になると思います。 ５０行から７０行までのFOR NEXT文ですが、この場合だと条件に合っていても、合っていなくても、繰り返してしまう問題です。 ここは、IF文でチェックしてGOTO文で分岐させれば、条件に関係した処理が出来ます。 まず、２０行目のFOR文でI番目の配列を決めていることを確認してください。 A(B)の添え字の変数ＢとIが合うまで、Ｂをカウントアップしながら内容が一緒で無いかチェックしていき、途中でA(B)の内容が一緒になったらランダムの数字を選びなおし、BとIが一緒になれば（I番目は０であり、空きということだから）代入する。 後でRENUM命令を使って、行番号を整えておきましょう。 変更前のプログラム  変更後のプログラム  そして、実行！！  あれぇぇぇ・・・？ なんでだ？？ エラーメッセージをリファレンスで調べてみると、 「配列変数の添え字が、DIM文で定義した添え字の最大値より大きい」 とありました。 変更後のプログラムをもう一度よく見てみよう。 最初に50行を実行する時の Ｉ と Ｂ の内容は、 Ｉ＝０ Ｂ＝０ で、ＩＦ文の Ｂ＜Ｉ は成り立たず、６０行のＢ＝Ｂ＋１を実行して再び５０行へ行く。 ２回目の５０行を実行する時の Ｉ と Ｂ の内容は、 Ｉ＝０ Ｂ＝１ で、IF文の Ｂ＜Ｉ は成り立たず、Ｂ＝Ｂ＋１を実行して再び５０行へ行く。 こうしてみると、 Ｂ が増加していくだけをずっと続き、最後には配列 Ａ の最大の添え字である５を超えてしまいエラーとなることがわかった。 それに、７０行以降は実行されないようになっているし・・・・。 ・・・・もう一度やり直しだ。 次章に続きます（続きすぎ？）。 |
Copyright(C) 2006. ピコピコテクノロジー All Right Reserved.