B.S.I.Works　　

　　RANDOMIZE
　　FOR I=0 TO 10
　　　R=RND
　　　PRINT R
　　NEXT I

　これで数回実行してみましょう。今度は発生する数の順番はバラバラになったはずです。では、これで１から10までの整数をランダムに発生させる方法を考えてみましょう。RNDで発生する数は0以上1未満ですから

　　RANDOMIZE
　　R=RND*10+1

で 1 から 10 までの数がランダムで得られます。さらに

　　RANDOMIZE
　　R=INT(RND*10)+1

とすると、発生した数の小数点以下が切り捨てられ１から10までの整数がランダムで得られます。INTはInteger（整数の意味）の省略形でINT(数値)で（　）内の数値の小数点以下を切り捨てて整数化する関数です。次のプログラムで試してみてください。結果は図13_2のようになります。

　　RANDOMIZE
　　FOR I=1 TO 10
　　　R=INT(RND*10+1)
　　　PRINT R
　　NEXT I
　　END

図13_2.１から10の整数をランダムに発生させる

図13_3.１から100の整数をランダムに発生させる

　プログラムスタート部分の１行目のCLSはCLear Screenの省略形で実行画面をすべて消去する命令です。表示が消去されるだけで記憶されているプログラムやデータが消去されるわけではありません（黒板消しのようなものです）。
　２行目は今、説明した乱数の初期化です。３～５行目はプログラムと遊び方の説明です。
　７行目がコンピュータが隠す数を発生させるところですが、ここでは１から100までの数を発生させることにします。
　プログラム全体の流れとしては、最初にコンピュータが数を隠した後、正解が出るまで答えの入力を繰り返し実行されるようになっています。そしてプレイヤーが答えた数が1～100以外の数以外のときは入力がやり直しになるようになっています。それは11、38行目のWWHILE～WENDと15行、20行目のWHILE～WENDのネスティングで実現しています。この手法は実務プログラムではオペレータの入力ミスを防ぐ対策としてよく使われるものです。覚えておいて損はありません。
　19、29行目のIF～END IFは正解不正解の判定です。正解ならこのプログラムを終了するように、不正解なら回答した数が大き過ぎか小さ過ぎかを表示するようにしています。

図13_5.数当てゲームの実行画面

【いろいろなエラー】

　ここまでいろいろなプログラムを作ってきた皆さんは、いろいろなエラーを出してきたと思います。エラー（error）とは「誤り」とか「失敗」という意味です。何回もエラーを出して「俺にはプログラミングの才能なんてないんだ」と落ち込んでいる人はいませんか。気にする必要はありません。勉強中はむしろどんどんエラーを出してください(*)。筆者の経験で言えば、エラーを出してそれを修正してゆく中で学べるものはたくさんあります。

(*)Perl、PHP、Ｃ言語、アセンブリ言語などハードウェア、サーバーを直接操作するプログラミング言語の場合、パソコンをローカル環境（ネットワークから切り離したスタンド・アローンな状態）にして勉強してください。

　プログラミングで発生するエラーは大別すると次の３つになります。

①文法エラー（Syntax error）

　文法エラーというより構文エラー（書き方の誤り）です。たとえば次のプログラムを実行しようとすると、図14-6のような状態でコンピュータは止まってしまいます。

     1:GOKEI=0
     2:NINZU=0
     3:BANGO$=""
     4:WHILE BANGO$<>"//"
     5:READ BANGO$,NAMAE$
     6: IF BANGO$<>"//" THEN
     7:      PRIMT BANGO$;" ";NAMAE$;" ";
     8:      INPUT "得点＝"・,TEN
     9:      GOKEI=GOKEI+TEN
   10:      NINZU=NINZU+1
   11: END IF
   12:WEND
   13:NINZU=NINZU-1
   14:HEIKIN=GOKEI/NIN
   15:PRINT USING "受験者 ##人";NINZU
   16:PRINT USING "平均点###.#";HEIKIN
   17:END
   18:DATA "001","相沢　恭平"
   19:DATA "002","小川　順子"
 （中略）
   54:DATA "037","渡部　浩司"
   55:DATA "//",""


図13-6.文法エラー

プログラムの７行目を見ると、PRINTと書くべきところがPRIMTになっています。Tiny Basicにこんな命令はないので（変数とみなされてしまうため）、その後に続く内容と矛盾が生じてしまい、コンピュータが？？？状態になってしまったわけです。

②実行エラー（execute error/running error）

　文法（書き方）の誤りはなくても、プログラム実行中に発生するエラーがあります。次の例は処理不可能なデータに当たってしまったコンピュータが「こんなのやってらんねぇ」となってしまった例です。
　上のプログラムを修正して次のようになりました。これを実行してみたところ図13-7のようになりました。
     1:GOKEI=0
     2:NINZU=0
     3:BANGO$=""
     4:WHILE BANGO$<>"//"
     5:READ BANGO$,NAMAE$
     6: IF BANGO$<>"//" THEN
     7:      PRINT BANGO$;" ";NAMAE$;" ";
     8:      INPUT "点数 ",TEN
     9:      GOKEI=GOKEI+TEN
   10:      NINZU=NINZU+1
   11: END IF
   12:WEND
   13:NINZU=NINZU-1
   14:HEIKIN=GOKEI/NIN
   15:PRINT USING "受験者 ##人";NINZU
   16:PRINT USING "平均点###.#";HEIKIN
   17:END
   18:DATA "001","相沢　恭平"
   19:DATA "002","小川　順子"
 （中略）
   54:DATA "037","渡部　浩司"
   55:DATA "//",""


図13-7.実行エラー

　プログラム14行目は得点の合計を受験者数で割って平均点を計算するところですが、除数になる変数名がNINZUであるべきところNINになっています。この場合、プログラムの書き方としては誤っていないので文法エラーにはならずプログラムは実行開始されます。しかし変数NINの値は 0 なので14行目で処理不可能となり止まってしまいました（除数が０の割り算は不可能なのは算数でもコンピュータでも同じです）。

➂論理エラー（logical error）

　プログラムの文法上の誤りも入ってくるデータにも誤りはないのに、処理内容の誤りにより正しい処理結果が得られないエラーです。簡単な例で説明します。
　次の例はキーボードから単価と売上個数を入力し売上金額を計算するプログラムなのですが、単価100円、個数5と入力したところ金額が500円となるところが105円になってしまいました。

1:INPUT "単価＝",TANKA
2:INPUT "個数＝",KOSU
3:KINGAKU=TANKA+KOSU
4:PRINT "金額＝";KINGAKU
5:END


図13-8.論理エラー

　誤り箇所はプログラム３行目です。
　　　　KINGAKU=TANKA*KOSU
　とするべきところが
            KINGAKU=TANKA+KOSU
になっています。この場合、プログラムの書き方に誤りはなく、データも変数TANKAの値が500、変数KOSUの値が5なので、KINGAKU=TANKA+KOSUの計算は問題なくできます。なのでプログラムは途中で止まらず最後まで実行されます。しかし得られた結果は求めているものではない、ということになります。
　このように論理エラーは途中でコンピュータが止まってしまうことがないので発見と修正が最もやっかいなエラーといえます。ゆえにこのような誤りのことを、みつけにくいという意味でバグ（bug、ダニのような小さな虫）、バグをみつけて修正することをデバッグといいます。

　コンピュータはたとえて言えば「忠実だけど融通がきかない部下」です。
「課長、この指示はこれでいいんですか？」
「おぅ、ありがとう。ここは間違い、こうしてくれ」
とはなりません。指示書が間違っていようが渡されたデータに誤りがあろうが、そのとおりに実行しようとします。たとえその結果、会社が倒産（システムがダウン）するとしてもです。コンピュータの計算（処理結果）が正確なのは正しいプログラムとデータが与えられていれば、の話です。

【この章のまとめ】

ゲームの主役は乱数である。

RNDは乱数を発生する関数である。

RANDOMIZEは乱数系列を初期化する。

プログラミング上のエラーには文法エラー実行エラー、論理エラーがある。

プログラムのミスをバグ、バグをみつけて修正することをデバッグという。