プチコン3号&BIG 非公式初心者講座 : 第5章 サンプルプログラム2
プログラマーからひとこと
このサンプルでは、いよいよ条件分岐について学びます。
あ、ついカッコつけてむずかしい言い方をしてしまいました。
このサンプルでは、いよいよIF~THEN文について学びます。二度と条件分岐なんて言いません。
IF~THEN文は、もうこれさえマスターしたらBASICはほとんど乗り越えたようなものです。
ちょっと言いすぎた気もしますが、それくらい大事な命令です。
それから、ずいぶんもったいぶりましたが、変数がなんの役に立つのかもこのサンプルであきらかになります。
なかなか大事なサンプルプログラムですね。
そのわりにまったく役に立つけはいのないプログラムですが。
役に立つように見えないプログラムでも、そのリストから学べることは意外にあるものです。
この講座もまた、そういうものです。
たぶん。
計算記号
やあショクン、いかしたサンプルプログラムを持ってきたぞい。
上の方では役にたたねえプログラムとか書いてあるけどな、まあやってみるぜ！
- ＬＯＡＤ”ＳＹＳ／ＥＸ２ＣＡＬＣ”
- ＲＵＮ
これを読んでいるPCなどの前のみんなも、サンプルをＲＵＮしてためしてみよう！
なんてこった、ビックリするほどおもしろくねえ！
ずいぶんストレートじゃな……
カンタンに言えば、計算機のプログラムになるのかな？ 数字(1)と数字(2)を入力して、それを足すか引くか……ひととおりの計算ができるんだね。
＋−×÷のいわゆる「四則演算」と、割り算の「あまり」を出すことができるね。
これならスマホに入ってる電卓でいいんじゃねェかってのはおいといて……
ワンパク君、ワシはそんなつめたいキミを見たくはなかったぞ……
「＋」と「−」以外の計算に使う記号がヘンなんだよな。なんで「×」の計算するのに記号が「＊」なんだ？
プログラムの世界では、たいてい×記号のかわりに＊記号を使うね。
何十年も前のコンピュータには×記号がなかったので、しかたなく＊記号で代用したと言われておるな。今でもそのままというのはヘンな気もするが、まあタンジュンな言いかえじゃよ。
じゃあ「÷」の計算に「／」を使ってるのは？
「／」だね。まず割り算が、分数で表わせるのは知ってるだろう。
へ？
４÷２は、分数で書くと
。これをヨコに倒すように書くと……
なるほど、「４／２」になるわけだ！
お、オウ……。
ワンパク君……それは小学校中学年でもわかるはずじゃぞ。
オ、オレをそんな目で見るんじゃねェー！ じゃあ割り算のあまりを出すのが「％」ってのはなんなんだコノヤロー！ パーセントってのはそういうモンじゃねェだろ！
むむむ。これは例によってコンピューター界のお約束としか言えんのう。なぜか「７％３」と書くと「７を３で割ったあまりを出す」という意味になるのじゃ。ワシもくわしくは知らんが、タンジュンに「％」の記号があまっていたから、なんて話もあってキョウミぶかいところじゃ。
なりたちはどうでもいいし、もっとも、プチコン3号では「％」の記号は、あまりを出す計算には使えないから、いったん忘れよう。
インテリ君もけっこうバッサリくるのう……
省略形
サンプルプログラムの最初のほうはもうわかるね。
- ’┌────────────────┐
- ’│ ＥＸＡＭＰＬＥ２ │
- ’│ けいさん ＣＯＭＰＵＴＥＲ │
- ’└────────────────┘
- ＸＳＣＲＥＥＮ ０
- ＤＩＳＰＬＡＹ ０
- ＶＩＳＩＢＬＥ １，１，１．１
- ＣＬＳ
- ＧＣＬＳ
- ＰＲＩＮＴ ”┌────────────────────┐”
- ＰＲＩＮＴ ”│けいさん ＣＯＭＰＵＴＥＲ（ニコチャン）│”
- ＰＲＩＮＴ ”└────────────────────┘”
- ＰＲＩＮＴ ”Ж：こんにちは ニコチャン です”
- ＰＲＩＮＴ ”ぼくの しつもんに こたえてね”
カンタンすぎてアクビが出るぜ！ 要するに画面を消してメッセージを出してるだけだな！
ＤＩＳＰＬＡＹやＧＣＬＳって、はじめて見る命令だけど……？
これも画面を消したり、上画面を使うよって指示したりしてるのじゃが……ここではそんなにダイジなものではないから、今は気にしなくていいぞい。
- ’−−−
- ＠ＬＯＯＰ
- ＰＲＩＮＴ
- ＣＯＬＯＲ ９
16~19行も今まで出てきた命令だね。18行目でただＰＲＩＮＴとだけ書いてあるのが気になるけど……。
これは１行あけてるのさ。ＰＲＩＮＴ命令の後には自動的に次の行にいくからね。ちょっとした省略かな。
まあＰＲＩＮＴ””なんてイチイチ書くのもメンドくせェしな。
省略できるところはスグ省略する、というのは良くも悪くもプログラマーというもののクセじゃろうな。プログラムが見やすくなることもあれば、ナニしとるのかわからなくなることもある。ショクンには「見やすい省略」のほうをココロガケてほしいのう。
ＲＥＭが’になるのも一種の省略形だね。実はＰＲＩＮＴも「？」と書いて省略できるんだよ。
あっ、本当だ。？”ＡＡＡ”と書いただけでＡＡＡって表示されたよ！
これもなんでPRINTが「？」になるんだって、聞いてもしかたねェんだろうな……。
I NPUT命令
20行目ではじめて見る命令が出てくるね。
- ＩＮＰＵＴ ”Ж：１つめのすうじは”；ＮＯ１
INPUTという名前と、プログラムを実行した結果から、なんとなく使い方はわかるんじゃないかな？
「入力する」という意味だし、キーボードから入力してもらうトキに使うんだよね。
……ＩＮＰＵＴのアトに「”」でかこった文字を表示して、で、セミコロンもまあわかるゼ。そのアトにくる「ＮＯ１」ってナンだ？
これは変数だね。名前はなんでもよかったんだけど、１つ目の数字だからＮＯ１というところかな。ＩＮＰＵＴ命令では、こうやって最後にセミコロンでつないで変数をきめておくんだ。
ワカんねえのはソコだぜ！ ココで変数が出るのはなぜだ？
ＩＮＰＵＴ命令で使う変数には、キー入力された文字が入ることになっているよ。
この20行目でいえば、プレイヤーが打った「１つ目の数字」が変数ＮＯ１に入るんだね。
フムフム……次のＩＮＰＵＴも似たようなモンで、26~27行目でその変数をＰＲＩＮＴしてるワケだな……。
- ＰＲＩＮＴ ”（１）”；ＮＯ１；” と ”；
- ＰＲＩＮＴ ”（２）”；ＮＯ２；” ですね”
さようワンパク君、変数のダイジさがワカッてきたのではないかな？
ん？ 変数なんてメンドクセェから、チョクセツ数字で書きゃいいじゃねえかって話か？ そりゃコレだって数字で……オ？
……わ、わからねエぞ！ なんてこった！ どんな数字が入力されるのか、オレには読めねえ！
その通りじゃ。ジッサイにプレイヤーがキーを打つまで、プログラマーにはそのナカミはわからぬ。そこで変数というバケツを用意しておいて、とにかく中に何か数字が入っていると想像してプログラムするのじゃよ。
そういうコトだったのか！ たしかに……コイツは変数じゃねえとハナシにもならねえ……。
ＩＮＰＵＴ命令にかぎらず、プレイヤーに入力をまかせる時や、プログラムの進行によって変化する時なんかは、変数を「ナカミは予想できないけど、中に何か入っているモノ」として使うね。
これが変数……オレの中でナニか大きなムーブメントがおきた気がするゼ！ これが初期衝動ってヤツか！
それはどうか知らんが、ワカッてくれてワシもうれしいぞ。寝ないでサンプルプログラムを書いたカイがあったわい。
（本当に何の仕事をしている人なんだろう……）
IF~THEN命令
36行目も、同じようにＩＮＰＵＴ命令だね。
- ＩＮＰＵＴ”Ж：きごうは（＋−／％＊）”；Ｋ＄
おぼえてたかな？ 変数で数字以外の字を入れるときは、後ろに＄がついた「文字変数」を使うんだったよね。
ここで入力してもらった記号を文字変数Ｋ＄に入れるわけだね。
そのＫ＄がカンケイしてるのはわかるが……39行から先はどういうイミだ？
- ＭＡＲＫ＝０
- ＩＦ Ｋ＄＝＝”＋” ＴＨＥＮ ＭＡＲＫ＝１
- ＩＦ Ｋ＄＝＝”−” ＴＨＥＮ ＭＡＲＫ＝２
- ＩＦ Ｋ＄＝＝”／” ＴＨＥＮ ＭＡＲＫ＝３
- ＩＦ Ｋ＄＝＝”％” ＴＨＥＮ ＭＡＲＫ＝４
- ＩＦ Ｋ＄＝＝”＊” ＴＨＥＮ ＭＡＲＫ＝５
- ＯＮ ＭＡＲＫ ＧＯＴＯ ＠ＳＫＩＰ，＠ＰＬＵＳ，＠ＭＩＮＵＳ，＠ＤＩＶ，＠ＭＯＤ，＠ＭＵＬ
39行目はいちおうフツウに変数かな。変数ＭＡＲＫに０を入れて……
40行目からは新しい命令だね。こういうのは「IF (イフ)~THEN (ゼン) 文」と呼ばれていて、日本語にすると「もしも~なら~」というところかな。
「もしもＫ＄＝＝”＋”ならＭＡＲＫ＝１」ってコトか。ＭＡＲＫ＝１はワカるぜ。フツーの変数だからな。だがＫ＄＝＝”＋”ってナンだ？ 「＝＝」ってオカシイだろコンチクショー！
これまたプログラムの世界だけのヤクソクごとじゃな。まあイコールが１コの「＝」は変数のために使ってしまったので、別の記号として２コつないだ「＝＝」を使った、というのがそもそものなりたちと言われておる。
つまり、もともと「＝＝」はイコール記号だった……？
ジッサイに、ワシの若いころBASICではこういう時はＩＦ Ｋ＄＝”＋” ＴＨＥＮと書いたものじゃよ。「＝＝」は新しめのヒョウゲンじゃな。
イロイロ聞きずてならねェな！ ＝＝が……変数に入れるイコールじゃなくて、オレたちのよく知ってる方のイコール記号だってことは、……ああヤヤコシイぜ……。
ツマリ、「Ｋ＄＝＝”＋”」てのは「Ｋ＄と”＋”は同じもの」ってイミかよ？
ミゴトにたどりついたじゃないか、ワンパク君！ 「もしもＫ＄のナカミが”＋”なら、ＭＡＲＫ＝１」というのが40行目のイミなんだよ。
うまくユウドウされた気もするが、ワルい気はしねェな。
このＩＦ~ＴＨＥＮ文、プログラムではダイジじゃぞい。どのキーが押されたか、敵にタマが当たったかどうか、アイテムを持っているか。すべてＩＦ~ＴＨＥＮで調べると言ってもいいじゃろう！
イキオイで言いすぎてる気もするが、ポイントなのは本当っぽいな！ それで、このアトはどうなるんだ？
ON~GOTO命令
- ＭＡＲＫ＝０
- ＩＦ Ｋ＄＝＝”＋” ＴＨＥＮ ＭＡＲＫ＝１
- ＩＦ Ｋ＄＝＝”−” ＴＨＥＮ ＭＡＲＫ＝２
- ＩＦ Ｋ＄＝＝”／” ＴＨＥＮ ＭＡＲＫ＝３
- ＩＦ Ｋ＄＝＝”％” ＴＨＥＮ ＭＡＲＫ＝４
- ＩＦ Ｋ＄＝＝”＊” ＴＨＥＮ ＭＡＲＫ＝５
- ＯＮ ＭＡＲＫ ＧＯＴＯ ＠ＳＫＩＰ，＠ＰＬＵＳ，＠ＭＩＮＵＳ，＠ＤＩＶ，＠ＭＯＤ，＠ＭＵＬ
39~44行まではもうわかってるね。
変数Ｋ＄に入った文字によって、変数ＭＡＲＫの数字を変えているんだね。
ワカんねーのは45行だぜ！ またしても新しいメイレイかよ！
よく見ると、それほど新しくもないんじゃないかな？ 最初のＯＮはともかく、ＭＡＲＫは変数の名前だし、ＧＯＴＯ ＠~の形はよくおぼえてるよね。
にしても「ON」って言われてもよォ。電源でもオンにすんのか？
このON~GOTO文では、「~しだいで~に行け」という意味になるかな。45行目で言いかえると、「変数ＭＡＲＫしだいで、＠ＳＫＩＰ、＠ＰＬＵＳ、~、＠ＭＵＬへ行け」となるね。
変数しだいで……。もしかして、39~44行でＭＡＲＫの数を順に並べたのと関係ある!?
そう、ON~GOTO文では変数が０のとき、１のとき、２のとき……と順にGOTOの行き先を決めているんだ。
45行目では変数ＭＡＲＫが０ならラベル＠ＳＫＩＰへ、１なら＠ＰＬＵＳへ……と順に飛ばしているんだね。IF~THEN文とも少し似てるんじゃないかな？
フーム……このタメだけに変数を０から順にふるってのはまだるっこしくて気にくわねェが……
そうだね。本当はこのプログラムでわざわざON~GOTOを使う必要はないんだ。
（イ、インテリ君！ そんな痛いトコロを……！）
でもON~GOTOにはもっとプログラムの知識がふえていくと、ベンリな使い道が出てくるからね。今のうちにおぼえておいてソンはないさ。
（ム……この男、テキかミカタか……ユダンならぬヤツじゃぞい……）
例外処理
ゴホン、ON~GOTO文でそれぞれの飛び先でやるコトはだいたいソウゾウできるじゃろう。
イチバンわかりづれェのは、ＭＡＲＫがゼロだったトキだな。
まずＭＡＲＫがゼロになるのはどういう時か？ そこを考えればわかりやすいね。
ええと、40行~44行のどれにも当たらなかった時だけ、39行で決めたゼロのままで45行のON~GOTO文にたどりつくんだね。
- ＭＡＲＫ＝０
- ＩＦ Ｋ＄＝＝”＋” ＴＨＥＮ ＭＡＲＫ＝１
- ＩＦ Ｋ＄＝＝”−” ＴＨＥＮ ＭＡＲＫ＝２
- ＩＦ Ｋ＄＝＝”／” ＴＨＥＮ ＭＡＲＫ＝３
- ＩＦ Ｋ＄＝＝”％” ＴＨＥＮ ＭＡＲＫ＝４
- ＩＦ Ｋ＄＝＝”＊” ＴＨＥＮ ＭＡＲＫ＝５
- ＯＮ ＭＡＲＫ ＧＯＴＯ ＠ＳＫＩＰ，＠ＰＬＵＳ，＠ＭＩＮＵＳ，＠ＤＩＶ，＠ＭＯＤ，＠ＭＵＬ
それは言いかえると、Ｋ＄が＋−／％＊のどれでもなかったということだね。
ん？ Ｋ＄には「Ж：きごうは（＋−／％＊）？」と聞かれて入力した字が入ってるハズだろ……なのにどれでもないってコトは……
そうか！ 打ちまちがいってコトだね！ そのときだけＭＡＲＫがゼロになって、＠ＳＫＩＰまで飛ばされるんだ。
たとえばＡと打たれたら打ちまちがいだね。ホカにもＢやＣ、ＡＡ、ＢＢＢ、と「＋−／％＊」以外に打ち間違いのパターンはいくらでもあって、いちいちIF~THEN文でチェックしきれないよね。
だから39行で最初にＭＡＲＫ＝０と決めてしまって、40~44行では正しい記号が打たれたときだけＭＡＲＫが変わるように作ってあるんだね。
そしてＭＡＲＫがゼロのまま変わらなければ、正しい記号が打たれていないとハッキリ言いきれるわけだ。
そういうこと。プログラム用語では「例外処理」というんだ。
ムズかしいコトバはいいけどよォ、そうなるとこのプログラムで最初に数字を聞いたトキの例外処理はどうなってんだ？ 数字以外を入れることだってあるよな！
たとえば20行だね。ＩＮＰＵＴ文で変数が文字変数じゃないから、数字以外が入力されるとエラーが自動で出るよ。
- ？Ｒｅｄｏ ｆｒｏｍ ｓｔａｒｔ
チッ、また英語かよ！ BASICの自動にマカせるってのがそもそも気にくわねェが……
ワンパク君、イガイにこだわるタイプじゃのう。まあサンプルがあんまり長くなってもナンじゃし、ここはひとつオンビンにな？
BEEP命令
- ＠ＳＫＩＰ
- ＢＥＥＰ ４
- ＰＲＩＮＴ”しらないきごうです．．．ゴメン”
- ＰＲＩＮＴ
- ＧＯＴＯ ＠ＭＡＲＫ
そしてこれが例外処理で飛んできた＠ＳＫＩＰだね。
エラーメッセージをＰＲＩＮＴして、＠ＭＡＲＫに飛んで入力をやり直すのはもうわかるね。49行のＢＥＥＰ ４が新しい命令かな。
たしかに見たことのねェ命令だが、オレにはだいたいワカッたぜ！ コレは音を出す命令だな！
（ワンパク君が英語に反応できた!?）
ジッサイにプログラム動かして、例外処理に飛ぶよう「Ｗ」って入力してやったからな！
（そういうコトか……）
プログラムの動きから、命令のイミを見つけ出す……それもジョウタツのひとつの方法じゃな。そればかりだとこの講座がいらなくなってしまうので、ひかえめにオネガイしたいところじゃが。
BEEP命令は、文字どおり「ビーッという音を鳴らす」命令だね。ＢＥＥＰの後の数字は、ゼロから133まであってそれぞれ違ったサウンドが鳴るようになっているよ。
パンクスピリットがヨビサマされるゼ！ ４以外の番号はどんな音なんだ？
- ＢＥＥＰ ０
- ＯＫ
- ＢＥＥＰ １
- ＯＫ
- ＢＥＥＰ ２
- ＯＫ
ワンパク君のスイッチが入ってしまったようじゃが、画面の下にある 
SMILE(スマイル)ボタンを押すと、スマイルツールという便利なものが起動して、サウンドの一覧が表示されるのじゃ。タッチペンひとつで音の確認ができるから、そちらも見て欲しいのう。
ループ
あとはカンタンだね。ON~GOTOで記号どおりに飛んで、記号どおりに計算するだけさ。たとえばこんな感じにね。
- ＠ＰＬＵＳ
- ＰＲＩＮＴ ＮＯ１；”＋”；ＮＯ２；”＝”；ＮＯ１＋ＮＯ２
- ＧＯＴＯ ＠ＬＯＯＰ
55行はいくつも変数と文字があって見づらいけど、たし算の結果を書いているんだね。
ＰＲＩＮＴの中でも計算ってできるんだな。オレはてっきり
- ＮＯ３＝ＮＯ１＋ＮＯ２
- ＰＲＩＮＴ ＮＯ１；”＋”；ＮＯ２；”＝”；ＮＯ３
みたいに書かないとヤバいのかって思ってたぜ。
イガイに変数は自由に書けるものさ。ワンパク君の書きかたでもマチガイじゃないけど、スッキリしているのはこっちと言えるかな。
そのあとは、＠ＬＯＯＰにＧＯＴＯで戻るんだね。
そういえばこのプログラム、計算が終わったらまたやり直すんだな。コレ、無限ループになるんじゃねェか？
STARTボタンで止めることをゼンテイに作ってあるからのう。そういうプログラムはかつてのBASICではごくフツウにあることじゃったのじゃよ。あえて終了コマンドを用意しておくのもシンシ的でいいことではあるんじゃが。
MOD 演算子
- ＠ＭＯＤ
- ＰＲＩＮＴ ＮＯ１；”％”；ＮＯ２；”＝”；ＮＯ１ ＭＯＤ ＮＯ２
- ＧＯＴＯ ＠ＬＯＯＰ
そういえば、ここ、あまりの計算のはずだけど、ＭＯＤって書いてあるんだね。これは新しい命令？
さっきは「％」だって言ってたのに、ハナシがチガくねェか？
よく気づいたのう。「ＭＯＤ」は命令ではなくて、「＋」や「−」と同じ計算記号の一種じゃ。3号よりも前のプチコンでは、ＡをＢで割ったあまりを計算するのにＡ％Ｂと書いてた時代があったんじゃが、プチコン3号では、Ａ ＭＯＤ Ｂで計算するんじゃよ。
サンプルプログラムで、入力も表示も「％」になっているのは、前に出たプチコンでのサンプルプログラムを使い回したまま、計算の部分だけを修正したからなんだよ。
（インテリ君……！ 確かにその通りなんじゃが、今日のキミはとってもシビアなのじゃ……！）
今回のまとめ
- 計算記号
- プログラムでは「＋」「−」「＊（×）」「／（÷）」、そしてＡをＢで割ったあまりを「Ａ ＭＯＤ Ｂ」と書いて求める「ＭＯＤ」が使えます。
- 省略形
- たとえば「ＰＲＩＮＴ””」と書くところは「ＰＲＩＮＴ」と書くだけですませられます。
「ＰＲＩＮＴ」も「？」で代用できます。 - INPUT命令
- ＩＮＰＵＴ ”（メッセージ）”；（変数）
キーボードから入力を待って、入力された字を変数に入れます。 - IF~THEN命令
- ＩＦ （条件文。Ａ＄＝＝”Ａ”など） ＴＨＥＮ （命令）
条件文（この場合、変数Ａ＄の内容が”Ａ”であること）が正しければ、命令を実行します。 - ON~GOTO命令
- ＯＮ （変数） ＧＯＴＯ ＠（ラベル），＠（ラベル）……
変数が０のとき最初のラベルに、１のとき次のラベルに……と、変数の内容によって飛び先を切りかえます。 - 例外処理
- 意味はいろいろありますが、ここではINPUT命令での入力がプログラムで必要なものと違った場合に使いました。
このサンプルではIF文をすりぬけたものを全部「例外」として処理しています。 - BEEP命令
- ＢＥＥＰ （数字）
０~133までの種類のサウンドが鳴ります。 - スマイルツール
- 画面の SMILEボタンを押すと起動します。
サウンドの確認をはじめ、いろいろな機能があります。
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.465 秒 | このページの最終更新 : 2022/09/20 (火) 12:49:19 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30