サンプルプログラム２

計算記号

やあショクン、いかしたサンプルプログラムを持ってきたぞい。

上の方では役にたたねえプログラムとか書いてあるけどな、まあやってみるぜ！

これを読んでいるPCなどの前のみんなも、サンプルをＲＵＮしてためしてみよう！

なんてこった、ビックリするほどおもしろくねえ！

ずいぶんストレートじゃな……

カンタンに言えば、計算機のプログラムになるのかな？　数字(1)と数字(2)を入力して、それを足すか引くか……ひととおりの計算ができるんだね。

＋（たす）－（ひく）×（かける）÷（わる）のいわゆる「四則演算」と、割り算の「あまり」を出すことができるね。

これならケータイに入ってる電卓でいいんじゃねェかってのはおいといて……

ワンパク君、ワシはそんなつめたいキミを見たくはなかったぞ……

「＋」と「－」以外の計算に使う記号がヘンなんだよな。なんで「×」が「＊」なんだ？

プログラムの世界では、たいてい×記号のかわりに＊（アスタリスク）記号を使うね。

何十年も前のコンピュータには×記号がなかったので、しかたなく＊記号で代用したと言われておるな。今でもそのままというのはヘンな気もするが、まあタンジュンな言いかえじゃよ。

じゃあ「÷」がちがうのは？

「／（スラッシュ）」だね。まず割り算が、分数で表わせるのは知ってるだろう。

へ？

４÷２は、分数で書くと。これをヨコに倒すように書くと……

なるほど、「４／２」になるわけだ！

お、オウ……。

ワンパク君……それは小学校中学年でもわかるはずじゃぞ。

オ、オレをそんな目で見るんじゃねェー！　じゃあ割り算のあまりを出すのが「％」ってのはなんなんだコノヤロー！　パーセントってのはそういうモンじゃねェだろ！

むむむ。これは例によってコンピューター界のお約束としか言えんのう。なぜか「７％３」と書くと「７を３で割ったあまり」ということになるのじゃよ。ワシもくわしくは知らんが、タンジュンに「％」の記号があまっていたから、なんて話もあってキョウミぶかいところじゃ。

なりたちはどうでもいいけど、BASICの計算でもこの記号は使うからおぼえておいてソンはないんじゃないかな。

インテリ君もけっこうバッサリくるのう……

省略形

サンプルプログラムの最初のほうはもうわかるね。

カンタンすぎてアクビが出るぜ！　要するに画面を消してメッセージを出してるだけだな！

12～15行も今まで出てきた命令だね。14行目でただＰＲＩＮＴとだけ書いてあるのが気になるけど……。

これは１行あけてるのさ。ＰＲＩＮＴ命令の後には自動的に次の行にいくからね。ちょっとした省略かな。

まあＰＲＩＮＴ””なんてイチイチ書くのもメンドくせェしな。

省略できるところはスグ省略する、というのは良くも悪くもプログラマーというもののクセじゃろうな。プログラムが見やすくなることもあれば、ナニしとるのかわからなくなることもある。ショクンには「見やすい省略」のほうをココロガケてほしいのう。

ＲＥＭが’になるのも一種の省略形だね。実はＰＲＩＮＴも？と書いて省略できるんだよ。

あっ、本当だ。？”ＡＡＡ”と書いただけでＡＡＡって表示されたよ！

これもなんでPRINTが「？」になるんだって、聞いてもしかたねェんだろうな……。

INPUT命令

16行目ではじめて見る命令が出てくるね。

0016#. ＩＮＰＵＴ”Ж：１ツメノ　スウシ゛ハ”；ＮＯ１

INPUT（インプット）という名前と、プログラムを実行した結果から、なんとなく使い方はわかるんじゃないかな？

「入力する」という意味だし、キーボードから入力してもらうトキに使うんだよね。

……ＩＮＰＵＴのアトに「”」でかこった文字を表示して、で、セミコロンもまあわかるゼ。そのアトにくる「ＮＯ１」ってナンだ？

これは変数だね。名前はなんでもよかったんだけど、１つ目の数字だからＮＯ１というところかな。ＩＮＰＵＴ命令では、こうやって最後にセミコロンでつないで変数をきめておくんだ。

ワカんねえのはソコだぜ！　ココで変数が出るのはなぜだ？

ＩＮＰＵＴ命令で使う変数には、キー入力された文字が入ることになっているよ。

この16行目でいえば、プレイヤーが打った「１つ目の数字」が変数ＮＯ１に入るんだね。

フムフム……次のＩＮＰＵＴも似たようなモンで、22～23行目でその変数をＰＲＩＮＴしてるワケだな……。

0022#. ＰＲＩＮＴ”Ж：（１）”；ＮＯ１；”ト”；
0023#. ＰＲＩＮＴ”（２）”；ＮＯ２；”テ゛スネ”

さようワンパク君、変数のダイジさがワカッてきたのではないかな？

ん？　変数じゃなくチョクセツ数字で書きゃいいじゃねえかって話か？　そりゃコレだってチョクセツ……オ？
……わ、わからねエぞ！　なんてこった！　どんな数字が入力されるのか、オレには読めねえ！

その通りじゃ。ジッサイにプレイヤーがキーを打つまで、プログラマーにはそのナカミはわからぬ。そこで変数というバケツを用意しておいて、とにかく中に何か数字が入っていると想像してプログラムするのじゃよ。

そういうコトだったのか！　たしかに……コイツは変数じゃねえとハナシにもならねえ……。

ＩＮＰＵＴ命令にかぎらず、プレイヤーに入力をまかせる時や、プログラムの進行によって変化する時なんかは、変数を「ナカミは予想できないけど、中にナニか入っているモノ」として使うね。

これが変数……オレの中でナニか大きなムーブメントがおきた気がするゼ！　これが初期衝動ってヤツか！

それはどうか知らんが、ワカッてくれてワシもうれしいぞ。寝ないでサンプルプログラムを書いたカイがあったわい。

（本当に何の仕事をしている人なんだろう……）

IF～THEN命令

31行目も、同じようにＩＮＰＵＴ命令だね。

0031#. ＩＮＰＵＴ”Ж：キコ゛ウハ（＋－／％＊）”；Ｋ＄

おぼえてたかな？　変数で数字以外の字を入れるときは、後ろに＄がついた「文字変数」を使うんだったよね。

ここで入力してもらった記号を文字変数Ｋ＄に入れるわけだね。

そのＫ＄がカンケイしてるのはわかるが……34行から先はどういうイミだ？

34行目はいちおうフツウに変数かな。変数ＭＡＲＫに０を入れて……

35行目からは新しい命令だね。こういうのは「IF（イフ）～THEN（ゼン）文」と呼ばれていて、日本語にすると「もしも～なら～」というところかな。

「もしもＫ＄＝＝”＋”ならＭＡＲＫ＝１」ってコトか。ＭＡＲＫ＝１はワカるぜ。フツーの変数だからな。だがＫ＄＝＝”＋”ってナンだ？　「＝＝」ってオカシイだろコンチクショー！

これまたプログラムの世界だけのヤクソクごとじゃな。まあイコールが１コの「＝」は変数のために使ってしまったので、別の記号として２コつないだ「＝＝」を使った、というのがそもそものなりたちと言われておる。

つまり、もともと「＝＝」はイコール記号だった……？

ジッサイに、ワシの若いころBASICではこういう時はＩＦ　Ｋ＄＝”＋”　ＴＨＥＮと書いたものじゃよ。「＝＝」は新しめのヒョウゲンじゃな。

イロイロ聞きずてならねェな！　＝＝が……ああヤヤコシイぜ……変数に入れるイコールじゃなくて、オレたちのよく知ってる方のイコール記号だってことは、じゃあ「Ｋ＄＝＝”＋”」てのは「Ｋ＄と”＋”は同じもの」ってイミかよ？

ミゴトにたどりついたじゃないか、ワンパク君！　「もしもＫ＄のナカミが”＋”なら、ＭＡＲＫ＝１」というのが35行目のイミなんだよ。

うまくユウドウされた気もするが、ワルい気はしねェな。

このＩＦ～ＴＨＥＮ文、プログラムではダイジじゃぞい。どのキーが押されたか、敵にタマが当たったかどうか、アイテムを持っているか。すべてＩＦ～ＴＨＥＮで調べると言ってもいいじゃろう！

イキオイで言いすぎてる気もするが、ポイントなのは本当っぽいな！　それで、このアトはどうなるんだ？

ON～GOTO命令

34～39行まではもうわかってるね。

変数Ｋ＄に入った文字によって、変数ＭＡＲＫの数字を変えているんだね。

ワカんねーのは40行だぜ！　またしても新しいメイレイかよ！

よく見ると、それほど新しくもないんじゃないかな？　最初のＯＮはともかく、ＭＡＲＫは変数の名前だし、ＧＯＴＯ　＠～の形はよくおぼえてるよね。

にしても「ON（オン）」って言われてもよォ。電源でもオンにすんのか？

このON～GOTO文では、「～しだいで～に行け」という意味になるかな。40行目で言いかえると、「変数ＭＡＲＫしだいで、＠ＳＫＩＰ、＠ＰＬＵＳ、～、＠ＭＵＬへ行け」となるね。

変数しだいで……。もしかして、34～39行でＭＡＲＫの数を順に並べたのと関係ある!?

そう、ON～GOTO文では変数が０のとき、１のとき、２のとき……と順にGOTOの行き先を決めているんだ。
40行目では変数ＭＡＲＫが０ならラベル＠ＳＫＩＰへ、１なら＠ＰＬＵＳへ……と順に飛ばしているんだね。IF～THEN文とも少し似てるんじゃないかな？

フーム……このタメだけに変数を０から順にふるってのはまだるっこしくて気にくわねェが……

そうだね。本当はこのプログラムでわざわざON～GOTOを使う必要はないんだ。

（イ、インテリ君！　なぜそれを……！）

でもON～GOTOにはもっとプログラムの知識がふえていくと、ベンリな使い道が出てくるからね。今のうちにおぼえておいてソンはないさ。

（ム……この男、テキかミカタか……ユダンならぬヤツじゃぞい……）

例外処理

ゴホン、ON～GOTO文でそれぞれの飛び先でやるコトはだいたいソウゾウできるじゃろう。

イチバンわかりづれェのは、ＭＡＲＫがゼロだったトキだな。

まずＭＡＲＫがゼロになるのはどういう時か？　そこを考えればわかりやすいね。

ええと、35行～39行のどれにも当たらなかった時だけ、34行で決めたゼロのままで40行のON～GOTO文にたどりつくんだね。

それは言いかえると、Ｋ＄が＋－／％＊のどれでもなかったということだね。

ん？　Ｋ＄には「Ж：キコ゛ウハ（＋－／％＊）？」と聞かれて入力した字が入ってるハズだろ……なのにどれでもないってコトは……

そうか！　打ちまちがいってコトだね！　そのときだけＭＡＲＫがゼロになって、＠ＳＫＩＰまで飛ばされるんだ。

たとえばＡと打たれた時は打ちまちがいになるけど、ホカにもＢやＣ、ＡＡ、ＢＢＢ、と「＋－／％＊」以外に入力されるパターンはいくらでもあって、いちいちIF～THEN文でチェックしきれないよね。
だから34行で最初にＭＡＲＫ＝０と決めてしまって、35～39行では正しい記号が打たれたときだけＭＡＲＫが変わるように作ってあるんだね。

そしてＭＡＲＫがゼロのまま変わらなければ、正しい記号が打たれていないとハッキリ言いきれるわけだ。

そういうこと。プログラム用語では「例外処理」というんだ。

ムズかしいコトバはいいけどよォ、そうなるとこのプログラムで最初に数字を聞いたトキの例外処理はどうなってんだ？　数字以外を入れることだってあるよな！

たとえば16行だね。ＩＮＰＵＴ文で変数が文字変数じゃないから、数字以外が入力されるとエラーが自動で出るよ。

チッ、また英語かよ！　BASICの自動にマカせるってのがそもそも気にくわねェが……

ワンパク君、イガイにこだわるタイプじゃのう。まあサンプルがあんまり長くなってもナンじゃし、ここはひとつオンビンにな？

BEEP命令

そしてこれが例外処理で飛んできた＠ＳＫＩＰだね。

エラーメッセージをＰＲＩＮＴして、＠ＭＡＲＫに飛んで入力をやり直すのはもうわかるね。43行のＢＥＥＰ　４が新しい命令かな。

たしかに見たことのねェ命令だが、オレにはだいたいワカッたぜ！　コレは音を出す命令だな！

（ワンパク君が英語に反応できた!?）

ジッサイにプログラム動かして、例外処理に飛ぶよう「Ｗ」って入力してやったからな！

（そういうコトか……）

プログラムの動きから、命令のイミを見つけ出す……それもジョウタツのひとつの方法じゃな。そればかりだとこの講座がいらなくなってしまうので、ひかえめにオネガイしたいところじゃが。

BEEP（ビープ）命令は、文字どおり「ビーッという音を鳴らす」命令だね。ＢＥＥＰの後の数字は、ゼロから69まであってそれぞれ違ったサウンドが鳴るようになっているよ。

パンクスピリットがヨビサマされるゼ！　４以外の番号はどんな音なんだ？

ワンパク君のスイッチが入ってしまったようじゃが、説明書の「9 プチコン基本仕様(2/2)-サウンド機能」のいちばん下に70種類の音の名前はイチオウ書いてあるから、そちらも見てほしいのう。

ループ

あとはカンタンだね。ON～GOTOで記号どおりに飛んで、記号どおりに計算するだけさ。たとえばこんな感じにね。

49行はいくつも変数と文字があって見づらいけど、たし算の結果を書いているんだね。

ＰＲＩＮＴの中でも計算ってできるんだな。オレはてっきり

0049#. ＮＯ３＝ＮＯ１＋ＮＯ２
0050#. ＰＲＩＮＴ　ＮＯ１；”＋”；ＮＯ２；”＝”；ＮＯ３

みたいに書かないとヤバいのかって思ってたぜ。

イガイに変数は自由に書けるものさ。ワンパク君の書きかたでもマチガイじゃないけど、スッキリしているのはこっちと言えるかな。

そのあとは、＠ＬＯＯＰにＧＯＴＯで戻るんだね。

そういえばこのプログラム、計算が終わったらまたやり直すんだな。コレ、無限ループになるんじゃねェか？

SELECTボタンで止めることをゼンテイに作ってあるからのう。そういうプログラムはかつてのBASICではごくフツウにあることじゃったのじゃよ。あえて終了コマンドを用意しておくのもシンシ的でいいことではあるんじゃが。

今回のまとめ

計算記号

プログラムでは「＋」「－」「＊（×）」「／（÷）」、そしてＡをＢで割ったあまりを「Ａ％Ｂ」と書いて出す「％」が使えます。

省略形

たとえば「ＰＲＩＮＴ””」と書くところは「ＰＲＩＮＴ」と書くだけですませられます。
「ＰＲＩＮＴ」も「？」で代用できます。

INPUT命令

ＩＮＰＵＴ　”（メッセージ）”；（変数）
キーボードから入力を待って、入力された字を変数に入れます。

IF～THEN命令

ＩＦ　（条件文。Ａ＄＝＝”Ａ”など）　ＴＨＥＮ　（命令）
条件文（この場合、変数Ａ＄の内容がＡであること）が正しければ、命令を実行します。

ON～GOTO命令

ＯＮ　（変数）　ＧＯＴＯ　＠（ラベル），＠（ラベル）……
変数が０のとき最初のラベルに、１のとき次のラベルに……と、変数の内容によって飛び先を切りかえます。

例外処理

意味はいろいろありますが、ここではユーザーの入力がプログラムで必要なものと違った場合に使いました。
このサンプルではIF文をすりぬけたものを全部「例外」として処理しています。

BEEP命令

ＢＥＥＰ　（数字）
０～69までのサウンドが鳴ります。