B.S.I.Works　　

［回数が決まっていない繰り返し処理］

　不定回の繰り返し処理のやり方はおわかりいただけたでしょうか。回数が決まってないとはいえ、データの件数が無限ということはそうそうあることではありません。テストの平均点を求めるプログラムなら受験者の点数すべて入力し終わったらループは終了で、平均の計算に移ります。では、何人受験したかわからない学力テストの平均点を求めるプログラムではどうしたらよいでしょう。この場合、よく使われる方法は、「あり得ないデータ」が入ってきたところでループから抜けるというものです。この章ではさらに「条件によって処理内容を変える」という方法を学びます。コンピュータの最もコンピュータらしい部分で、これができるゆえに、筆者が小学生だった昭和40年頃は、コンピュータは「人工頭脳」と呼ばれたりしたものでした。今でも中国語では「電脳」といい、日本でも電脳少女など、ホビーの世界ではこの言い方が使われてますね。
　歳とると昔話が多くなってダメですね。話を元に戻します。たとえば

１）テストの点数は０点～100点の範囲である
２）点数に999が入力されたらデータ入力のループを抜ける
３）児童の出席番号（または受験番号）は１、２、３、・・・、Ｎとなっていて欠番はないものとする。

という前提で、不定回数の繰り返し処理によるテストの平均を求めるアルゴリズムを考えてみます。基本的な流れは次のようになります。

図10_1.受験者人数が一定でない学力テストの平均点を求める

図10-4.条件によって処理内容が選択される

　こんな焼肉屋さんがあったら、火・水曜日はいつもここで夕食ですなぁ(^ ^;
3)IF～END制御文も、FOR～NEXT制御文、WHILE～WEND制御文同様、ネスティングができます。

     1:SCORE=0
     2:PRINT "歴史クイズ"
     3:INPUT "日本最初の元号は 1.大和 2.大化 3.文化 ",ANS
     4:IF ANS=2 THEN
     5:    SCORE=SCORE+10
     6:    INPUT "徳川第八代将軍は 1.吉宗 2.家光 3.綱吉 ",ANS
     7:    IF ANS=1 THEN
     8:        SCORE=SCORE+10
     9:        INPUT "フランス革命の始まりとされているのは 1.ナポレオン台頭 2.ポーランド分割 3.バスティーユ監獄衝撃",ANS
    10:       IF ANS=3 THEN
    11:          SCORE=SCORE+10
    12:       ELSE
    13:          PRINT "正解は3.バスティーユ監獄襲撃です"
    14:       END IF
    15:   ELSE
    16:       PRINT "正解は1.吉宗です"
    17:   END IF
    18:ELSE
    19:    PRINT "正解は2.大化です"
    20:END IF
    21:PRINT "SCORE=";SCORE
    22:END

　　　　　図10-5.正解したら次へ進めるクイズのプログラム

　図10-5は１つでも正解できないと脱落するという（鬼畜な？）クイズゲームです。正解しないと次の問題に進めないというのはIF～ENDIFのネスティングで実現してます。１問目が正解なら５行目以下が実行され、不正解なら19行目へ飛んでプログラム終了です。しかし６～７行目に２問めと解答の判定があります。２問めも正解なら８行目以下が実行され、不正解なら16行目へ飛びます。ここで１問目は正解しているので18～20行目は無視して21行目へ飛び、プログラム終了です。同様に９～10行目に３問めと解答の判定があります。正解なら11行目を、不正解なら13行目を実行してプログラム終了です。

【Tiny BASICの文法(4)】マルチステートメント
　Tiny Basicでは１行に１ステートメントを書くのが普通ですが : （半角のコロン）を使って１行に２つ以上のステートメントを書くことができます（マルチステートメント）。たとえば
       T=0
       INPUT "Nの値は";N
       FOR I=1 TO N
       T=T+I
       NEXT I
       PRINT "1～";N;"の自然数の合計は";T
       END

のプログラムは次のように書いてもTiny Basicの文法としては間違いではありません。

T=0:INPUT "Nの値は";N:FOR I=1 TO N:T=T+I:NEXT I:PRINT "1～";N;"の自然数の合計は";T:END

　ただ、これは読みにくいことこの上ないですね。マルチステートメントはこのようにむやみに使うとプログラムがわかりにくくなる原因になります。昔のBASICはIF制御文はブロック化ができなかったので、このマルチステートメントは絶対必要だったのですが、今のTiny Basicでは必要ないものとなりました。マルチステートメントは使わないようにしましょう。

【昔はよかったなぁ】

　今回は「昔はよかった」ではなく「昔はひどかったなぁ」というお話です。
　図10-3のプログラムを昔のBASICで書くと図10-5のようになります。


図10-5.条件により処理内容が変わるプログラムを昔のBASICで書くと
　昔のBASICは END IF がありませんでした。つまりIFブロックは使えませんでした。入力内容により処理内容を変えたいなら行番号30のようにELSEIF（昔のBASICではELSE IF）以下を１ステートメントにしなければなりませんでした。
　また条件が成立した（反対に成立しなかった）時の処理が複数あるとき、それをすべて１ステートメントで書かなくてはならなかったので、図10-3のプログラムの10～13行目の部分を昔のBASICで書くと、
　　　IF TENSU<>999 THEN GOKEI=GOKEI+TENSU : NINZU=NINZU+1
となります。後でプログラムを見なおした時、自分で作ったプログラムなのに何が何だかわからないということもよくありました。今のTiny BasicはIF制御文もEND IFを使ってFOR制御文、WHILE制御文のようにブロック化し、わかりやすいプログラムが書けるようになりました。

【この章のまとめ】

条件によって処理内容が変わる処理を選択処理という。

Tiny BASICでは選択処理に向いている制御文はIF ～ END IF制御文である。基本的な書き方は

　　IF 条件式 THEN
　　　　条件式が成立したときの処理内容
　　END IF

である。さらに条件を細かく分けたいときは
　　IF 条件式１ THEN
　　　　条件式１が成立したときの処理内容
　　ELSEIF 条件式２ THEN
　　　　条件式１は成立しないが、条件式２が成立したときの処理内容
　　END IF

【演習６】ユーザー認証のプログラムを作ってみましょう。登録ユーザーは２人で、登録した名前で認証するものとします（ここでは変数で入れておくことにしておきます）。ユーザー名を入力し、登録ユーザー名のどちらかと一致すれば「〇〇（登録ユーザー名）さん、こんにちは」どちらとも一致しなければ「認証できませんでした」と表示するようにすること。このプログラムはいろいろな方法があるのですが、習熟のため、IF制御文を使うようにしましょう。

【ここまでのまとめ】

　ここまでで、プログラムの基本的な流れ「順次処理」「繰り返し処理」「選択処理」についてひととおりやってきました。コンピュータのプログラムはゲームのプログラムから銀行のシステム、人命を預かる新幹線の列車集中制御（CTC）のプログラムまで基本はこの３つの流れの組み合わせでできています。ここまでの内容がわかったら、ご自分のアイデアでプログラムを作ってみてください。そういう経験をたくさん積んでゆけば、プログラミング的思考とは何かがおのずとわかってくることでしょう。