プチコンmkII 初心者講座

サンプルプログラム７ (その３)

プログラマーからひとこと

サンプルプログラム７を見ていくのも、とうとう３回目です。
全４回でまだ１回分ありますが、今回がクライマックスです。
なぜならページの長さがいちばん長いからです。
ボス戦前のダンジョンとかこんな感じですよね。

今回は１章ごとにけっこうドンドン進みます。
そのスピードにおいていかれることもあるかもしれませんが、そんな時ははじめに戻って、きっちりわかったあたりで次に進むくらいがいいかもしれません。
なんだか勉強っぽくてイヤかもしれませんが、なにしろラストダンジョンです。
ワンパク君たちが迷うところではいっしょに迷いつつ、いっしょに戦っていきましょう。
ところで、「ワンパク君」とかあたりまえのように呼んでますが、あれ、本名なの？

敵を出してみよう

インテリ「ここまででプレイヤー側の動きはだいたいできあがったね。いよいよ敵の動きのプログラムに入ってみようか！」

神崎「今までよりも大変そうなヨカン……。」

インテリ「ははは。たしかにタクサンの敵がジグザグに動き回るから、これまでよりもフクザツではあるね。
最初はカンタンに、スタートしたときのならび方から始めようか。」

ワンパク「カンタンって言っても、こういうワケじゃねェよな？

0010#. ＬＯＣＡＴＥ　０，３
0011#. ＰＲＩＮＴ　”Е　Е　Е　Е　Е　Е　Е　Е　Е　Е”
0012#. ＬＯＣＡＴＥ　０，５
0013#. ＰＲＩＮＴ　”Е　Е　Е　Е　Е　Е　Е　Е　Е　Е”

サスガにココまでカンタンじゃねェとは、オレにもワカるぜ。
」

神崎「たしかに、そうかも。サンプルをＲＵＮしてみると、敵Еは１匹ずつ順に動いてるんだよね。ショットでやられたらその敵だけが消えるわけだし……。」

インテリ「つまり１匹ずつ、あわせて20匹ぶんの変数がいるわけだね。……こう言えば、今までにおぼえたコトが役に立つんじゃないかな？」

ワンパク「そうか！　20個の変数をヨウイするんだな！」

インテリ「い、いや……」

神崎「……じゃなくって、配列変数を使うんだよね。」

インテリ「そうそう、ソコだよ！

0008#. ＤＩＭ　ＥＸ（２０）：ＤＩＭ　ＥＹ（２０）：ＤＩＭ　ＥＤ（２０）

ゲームで使うのはこんなところかな。敵は英語で「Enemy（エネミー）」だから、変数の頭文字には「Ｅ」をつけることにするよ。
」

神崎「ＥＸとＥＹはやっぱり、ヨコ（Ｘ）とタテ（Ｙ）かな？」

インテリ「そうそう。ヨコがＸでタテがＹという変数の名付け方は、はっきりルールがあるワケじゃないけど、プログラマーの人はたいていこう書くね。おぼえておいていいんじゃないかな。
変数ＥＤの「Ｄ」は「Dynamics（ダイナミクス）」のＤなんだけど、……まあ、「動き方」くらいに考えておけばいいかな。」

ワンパク「やけにハッキリしない言い方じゃねェか。ナニか言いたくないイミでもあんのか!?」

インテリ「「力学」とか「変動」とか……」

ワンパク「おベンキョウの話だったか、キタイはずれだゼ！」

神崎「ま、まあ分かりにくいのは本当かな。とにかく変数ＥＤは敵がどう動くかのフラグにするってことだね？」

インテリ「そういうコト。とりあえず最初は０にしておいていいかな。」

ハカセ「ネンのタメに、ここで配列変数をどう使うのかまとめておこうかのう。
たとえば１匹めの敵は配列の番号を（０）に統一するのじゃ。こやつのいる場所を調べたければ、横方向なら配列変数ＥＸ（０）、縦方向ならＥＹ（０）じゃな。同じように２匹めの敵なら、ＥＸ（１）とＥＹ（１）で場所が決まっているワケじゃ。
それとタダの書き方のモンダイじゃが、

0008#. ＤＩＭ　ＥＸ（２０）：ＤＩＭ　ＥＹ（２０）：ＤＩＭ　ＥＤ（２０）

というふうにコロン（：）で分けなくても、

0008#. ＤＩＭ　ＥＸ（２０），ＥＹ（２０），ＥＤ（２０）

と、ひとつのＤＩＭ命令でスッキリ書くこともできるぞい。
」

ワンパク「じゃあ、その３つの配列変数を使いながら敵をナラべてみるゼ！

0011#. ＦＯＲ　Ｉ＝０　ＴＯ　９
0012#. 　ＥＸ（Ｉ）＝Ｉ＊２
0013#. 　ＥＹ（Ｉ）＝３
0013#. 　ＥＤ（Ｉ）＝０
0014#. 　ＬＯＣＡＴＥ　Ｘ（Ｉ），Ｙ（Ｉ）
0015#. 　ＰＲＩＮＴ　”Е”；
0016#. ＮＥＸＴ
0017#. ＦＯＲ　Ｉ＝１０　ＴＯ　１９
0018#. 　ＥＸ（Ｉ）＝Ｉ＊２－２０
0019#. 　ＥＹ（Ｉ）＝５
0020#. 　ＥＤ（Ｉ）＝０
0021#. 　ＬＯＣＡＴＥ　Ｘ（Ｉ），Ｙ（Ｉ）
0022#. 　ＰＲＩＮＴ　”Е”；
0023#. ＮＥＸＴ

……け、けっこうメンドくせェな、コレ！
」

ハカセ「イヤイヤ、なかなかジョウデキじゃぞい。トクに18行目なんかはクロウのアトがみえるのう。」

神崎「敵が２列にならんでいるから、FOR文を２回に分けて作らないといけなかったんだね。
たしかに「ＦＯＲ　Ｉ＝０　ＴＯ　１９」ひとつで終わらせる方法ってないもんなあ。IF文で変数Ｉが10を超えたら……いやいや、それもプログラムが長くなっちゃう……」

ワンパク「このタメだけに似たような行を２つ書くのがなんたってメンドクセェぜ！」

インテリ「実は、すごく短くする方法があるんだけど……」

ワンパク「な、ナニ!?　キキズテならねえな！」

短かくしてみよう

インテリ「さっきのワンパク君のプログラムでも必要なコトはできてるから、わざわざ短くしなくてもいいんだけど……」

ワンパク「イヤイヤ、さっきのプログラムを打つのはかなりメンドウだったんだぜ。短くなるならカンゲイじゃねェか？」

ハカセ「ならば、こう書くとかなり短くなるのう。

0011#. ＦＯＲ　Ｉ＝０　ＴＯ　１９
0012#. 　ＥＸ（Ｉ）＝ＦＬＯＯＲ（Ｉ％１０）＊２
0013#. 　ＥＹ（Ｉ）＝ＦＬＯＯＲ（Ｉ／１０）＊２＋３
0014#. 　ＥＤ（Ｉ）＝０
0015#. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
0016#. 　ＰＲＩＮＴ　”Е”
0017#. ＮＥＸＴ

」

ワンパク「ハ……ハァ!?」

神崎「たしかに短いけど……よくわからない……」

ワンパク「そうか、まだ習ってねェＦＬＯＯＲがカギだな！　これにスゲェ意味が……」

インテリ「ＦＬＯＯＲは「切り捨てて整数にする」命令だよ。たとえばＡ＝ＦＬＯＯＲ（１．７５）と書けば変数Ａには1.75から「.75」を切り捨てて１が入るね。」

ワンパク「ふ、フツウだぜ！」

ハカセ「「FLOOR（フロア）」すなわち「たいらにする」というイミじゃから、整数にするというイミに変わったのじゃな。
12行目の計算をカンタンに言いなおすと、「変数Ｉを10で割ったあまりから小数点以下を切りすてて２倍する」となるのう。」

ワンパク「ぜんぜんカンタンじゃねー！」

神崎「うーん、なるほど……たしかにＥＸ（０）＝０、ＥＸ（１）＝２、ＥＸ（２）＝４と２ずつ増えていって、ＥＸ（１０）になったとたんＥＸ（１０）＝０に戻っているね。やりたかったコト通りではあるんだけど……なんだかフシギだなあ。」

ハカセ「13行目も、「Ｉを10で割って小数点以下を切りすてたら、２倍して３を足す」だけじゃがこれで敵の１～10匹めまではタテ位置３行目に、11～20匹めまではタテ位置５行目にそろうというワケじゃ。」

ワンパク「ウ……ウウ……。ケイサンしてみたらタシカにその通りだったが……セイカツの中でまったく出てこねェ式にもホドがあるぜ！」

インテリ「あんまりパッと出てくる計算じゃないかもね。
でも「ＦＬＯＯＲ（Ｉ／Ｎ）ならＩが『Ｎの倍数』になるたび１増える」。
「ＦＬＯＯＲ（Ｉ％Ｎ）ならＩが『Ｎの倍数』になるたびゼロまでおり返しながら１増えていく」。
原理まで考えなくても、こう丸アンキしておくとプログラムで使えるバメンはけっこう多いよ。」

ハカセ「たとえば時計を考えてみい。１時間は60分で、０分～59分をくり返すものじゃが、この「分」はＦＬＯＯＲ（Ｉ％６０）で書きあらわせるのう。「時間」はＦＬＯＯＲ（Ｉ／６０）と書けばいいワケじゃ。
かなりカタいたとえになってしまったが、サンプルプログラムのように、敵をセイレツさせるようなコトにも応用できるんじゃぞい。」

神崎「プログラマーの生活のチエってところかな。」

インテリ「そういうコト。そうそう、ここでは「ＦＬＯＯＲ（Ｉ％Ｎ）」なんて書いたけど、本当は「割り算のあまり」に少数が出てくるハズはないから、「Ｉ％Ｎ」と書くだけでいいんだよ。」

ハカセ「ワシは……ワシは、見た目をそろえておきたかったのじゃああああ」

敵を動かそう

ワンパク「敵をならべた後は、イヨイヨ動かすワケだが……」

神崎「今までとちがって１方向や２方向じゃないのが、ナヤむところだね。」

インテリ「迷ったら、まずセイリしてみよう！

0	右に動く	X=31になるまでX+1
1	下におりる	1回だけY+1
2	左に動く	X=0になるまでX-1
3	下におりる	1回だけY+1

キホン的には、このくり返しだよね。
」

ワンパク「そう言われれば、そう……なのか？」

神崎「ショットで撃たれたり、下までおりて上にもどるのが抜けてるけど……」

インテリ「そこはもっとアトから考えよう！　まずこの表にある動きをクリアーしないとそこまでたどりつかないしね。」

ワンパク「そのワリキリ、キライじゃねえな！
じゃあとにかくサブルーチン「ALIEN（エイリアン）」をメインルーチンから呼び出すことにするぜ！

0023#. 　ＧＯＳＵＢ　＠ＡＬＩＥＮ

で、アトは……１匹ずつ動かすコトだけ考えるゼ！

0080#. ’－－－　シンリャクシャ
0081#. ＠ＡＬＩＥＮ
0082#. ＦＯＲ　Ｉ＝０　ＴＯ　１９
0083#. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ”　”
0084#. 　ＧＯＳＵＢ　＠ＥＭＯＶＥ
0085#. ＮＥＸＴ
0086#. ＲＥＴＵＲＮ

動かすトキのキホンだから、”　”で消すだけは消しといたゼ。
こっからサキはナガくなりそうなんで＠ＥＭＯＶＥにＧＯＳＵＢさせといたが、モンダイはどの方向に動かすか……だな。
」

インテリ「なかなかワルくないよ。飛んだ先でまた別のラベルに飛ぶけど、こうすると分かりやすいんじゃないかな。

0088#. ＠ＥＭＯＶＥ
0089#. ＯＮ　ＥＤ（Ｉ）　ＧＯＴＯ　＠ＲＩ，＠ＤＷ，＠ＬＦ，＠ＤＷ

ED(I)=0	右に動く	X=31になるまでX+1
ED(I)=1	下におりる	1回だけY+1
ED(I)=2	左に動く	X=0になるまでX-1
ED(I)=3	下におりる	1回だけY+1

この表のとおりだね。フラグに使ってる変数ＥＤ（Ｉ）の数しだいで、ラベル＠ＲＩ、＠ＤＷ、＠ＬＦ、＠ＤＷのどれかに飛ぶってやり方さ。
」

神崎「ああそうか、ラベルはそれぞれ「右（RIght）」「下（DoWn）」「左（LeFt）」になってるんだ。」

ワンパク「とりあえず、右に動かすコトだけ考えるゼ！

0091#. ＠ＲＩ
0092#. ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋１
0098#. ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
0099#. ＰＲＩＮＴ　”Е”
0100#. ＲＥＴＵＲＮ

コレで……まあ、右にだけはウゴくだろうな。
」

神崎「ずいぶんドンドン行くなあ。
でも、のこりの方向も同じように動かせそうだね。

0102#. ＠ＤＷ
0103#. ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋１
0104#. ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
0105#. ＰＲＩＮＴ　”Е”
0106#. ＲＥＴＵＲＮ

」

インテリ「やってるコトがカブる行が多いから、ゼンブをまとめるとこうなるかな。

0091#. ＠ＲＩ
0092#. ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋１
0093#. ＧＯＴＯ　＠ＥＰＵＴ
0094#.
0095#. ＠ＤＷ
0096#. ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋１
0097#. ＧＯＴＯ　＠ＥＰＵＴ
0098#.
0099#. ＠ＬＦ
0100#. ＥＸ（Ｉ）＝ＥＸ（Ｉ）－１
0101#. ＧＯＴＯ　＠ＥＰＵＴ
0102#.
0103#. ＠ＥＰＵＴ
0104#. ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
0105#. ＰＲＩＮＴ　”Е”
0106#. ＲＥＴＵＲＮ

ラベル名の「PUT（プット）」は日本語では「置く」というイミになるかな。敵キャラ（Ｅ）を画面に置くルーチンってことだね。
」

ワンパク「ココまではよし。……というか、まだ右に行くコトしかデキてねェな。フラグがＥＤ（Ｉ）＝０のまんまだからな。」

神崎「いまＲＵＮしても、右ハジまで来たら表示がおかしくなるよ。」

ワンパク「マカセとけ！　たとえば＠ＲＩなら、右ハジに来たときだけフラグを変えてやりゃいいんだな？

0091#. ＠ＲＩ
0092#. ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋１
0093#. ＩＦ　ＥＸ（Ｉ）＜３１　ＴＨＥＮ　＠ＥＰＵＴ
0094#. ＥＤ（Ｉ）＝１
0095#. ＧＯＴＯ　＠ＥＰＵＴ

てコトは、＠ＬＦでも同じようにできるハズだゼ！

0101#. ＠ＬＦ
0102#. ＥＸ（Ｉ）＝ＥＸ（Ｉ）－１
0103#. ＩＦ　ＥＸ（Ｉ）＞０　ＴＨＥＮ　＠ＥＰＵＴ
0104#. ＥＤ（Ｉ）＝３
0105#. ＧＯＴＯ　＠ＥＰＵＴ

」

インテリ「ふむふむ。

ED(I)=0	右に動く	X=31になるまでX+1	@RI
ED(I)=1	下におりる	1回だけY+1	@DW
ED(I)=2	左に動く	X=0になるまでX-1	@LF
ED(I)=3	下におりる	1回だけY+1	@DW

フラグＥＤ（Ｉ）が１や３になると、次はラベル＠ＤＷに行くことになるね。
」

神崎「＠ＤＷでは下におりるのは１回だけだから、すぐフラグを変えることになるね。

0097#. ＠ＤＷ
0098#. ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋１
0099#. ＩＦ　ＥＤ（Ｉ）＝＝１　ＴＨＥＮ　ＥＤ（Ｉ）＝２
0100#. ＩＦ　ＥＤ（Ｉ）＝＝３　ＴＨＥＮ　ＥＤ（Ｉ）＝０
0101#. ＧＯＴＯ　＠ＥＰＵＴ

こうやってIF文を使うことになるのかな？
」

ワンパク「ン？　……ああそうか、さっきまで右に動いていたとき（ＥＤ（Ｉ）＝＝１）と、さっきまで左に動いていたとき（ＥＤ（Ｉ）＝＝３）で、次に立てるフラグがカワッてくんのか。」

インテリ「せっかくだから、今まででおぼえたコトを使って、もっとシンプルにしてみようか。

0097#. ＠ＤＷ
0098#. ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋１
0099#. ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
0100#. ＧＯＴＯ　＠ＥＰＵＴ

」

ワンパク「……ナニ？」

神崎「あ、ビット演算かあ……。」

ワンパク「ケッ！　オリコウさんドモはいつもこうだ！　ウーム、２のトキは２進数で１０で、３は２進数で１１だから……ブツブツ……」

神崎「えーと、ようするに99行ではＥＤ（Ｉ）のナカミが１だけふえるけど、４になったときだけは０にもどされるってコトだよね？」

インテリ「ワリとカンタンなんだけどなあ。」

ワンパク「デキるヤツの考えのオシツケはマッピラだぜ！」

インテリ「ヒドい言われようだよ。まあ、ビット演算の話はもっと後からくわしくおぼえることにしようか。
そうそう、画面の下まで行ったらまた上から出てくる動きも足しておこうね。

0099#. ＩＦ　ＥＹ（Ｉ）＞２０　ＴＨＥＮ　ＥＹ（Ｉ）＝３

」

ワンパク「ナルホドな。コレでとりあえず、敵の動きはひととおりデキたか……。
ずいぶんトントンビョウシじゃねェか。ＲＵＮしてみるか！」

神崎「……なんか、ちがう……」

ワンパク「ウオォー！　ナンだこの動き、ナンかチガうぞコレ、っつかキモチワリー！　なんかキモチワリー！」

ハカセ「ふぉっふぉっふぉ。ようやく気づいたようじゃのう。めざしていた正しい動きはこっちじゃよ。」

ワンパク「そうだコレだ。敵は下におりるトキは、１匹ずつじゃなくマトメて下におりるんだ。チクショウ、どこでマチガエたんだ!?」

インテリ「ここまでにミスがあったワケじゃないよ。まだそういう動きをプログラムしてないっていうだけさ。」

足りないところをつけ足してみよう

インテリ「ちょっとアタマをヒネるところだよ。いいかい？
今までは「１匹ずつ、右ハジ・左ハジに来たら下に行く」ことにしていたね。」

神崎「うん、そのハズ。……そうだよね？」

ワンパク「ムシロ、そのドコがワルいのかがワカらねーぜ！」

インテリ「ところが、ボクらがやろうとしてたのは「どれか１匹が右ハジ・左ハジに来たら、次のターンでは敵全部がその場から下に行く」動きなんだよ。」

神崎「……！」

ワンパク「つまりアレか、今までやってたのは行列を作って歩く「ムカデ歩き」の動きで、本当にやりたいのは行進の「右向け、右！」でゼンインがいつでも同じ方向をむく動きってコトか？」

ハカセ「わりとヨウチじゃが、悪くないたとえじゃぞい。ココまでわかれば、アトはできるんではないかの？」

ワンパク「待て待て待て、やるべきコトはだいたいワカったが、けっこうコンランするぜ！」

インテリ「急にハッソウを変えるところだからね。順にかたづけていこうか。」

神崎「まず、方向を変えるきっかけは「どれか１匹が右ハジ・左ハジに来たら」だよね。ここから考えてみようよ。」

ワンパク「それは、ツマリ……＠ＲＩや＠ＬＦの中の、IF文にひっかからなかったトキじゃねェか！

この94行目のあたりだな！
」

インテリ「そうだね。ここでＥＤ（Ｉ）のフラグを変えてるけど、これだと（Ｉ）に入った１匹ずつ、右ハジにつくまでフラグが変わらないね。」

ワンパク「ソレじゃマズいんだよな……そのカワリに、ゼンインのフラグを変える方法……？」

神崎「もう１つ、大きなフラグを作ったらいいんじゃないかな！

0094#. ＥＤＷ＝ＴＲＵＥ

94行目を新しい変数ＥＤＷのフラグを立てるように書きかえたよ。
このフラグが立ってる時は、どこにいる敵でもフラグＥＤ（Ｉ）を下におりるように変えたらどうかな？
」

ワンパク「フラグＥＤ（Ｉ）を変えるフラグがＥＤＷか……ドンドンややこしくなってくるぜェ……。」

インテリ「ここがサイゴのカベだよ、がんばろう！」

神崎「画面のハジに来たことはＥＤＷで分かるようになったから、「次のターンで敵ぜんぶがその場から下に行く」動きをプログラムすればいいんだよね。
さっきのビット演算ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３を使えばそれでいいかな。」

ワンパク「ムムム……。次のターンってことは、だいぶ前にモドるがこのあたりか。

ココのFOR～NEXTで敵を動かしてたハズだぜ！
」

神崎「いちど敵のターンが終わってからＥＤ（Ｉ）のフラグを変えるわけだから……アレ？　フラグを変えていい場所がないよ!?」

ワンパク「ナニ言ってんだ……オ、オォ!?
なんてこった、タシカにそうだぜ！　83行目のアトでフラグを変えてもシッパイだし、85行目のアトじゃFOR～NEXTループが終わってるからＥＤ（Ｉ）って書いてもナンにもならねェぞ！」

インテリ「ソコがモンダイだね。フラグＥＤＷが立つのは敵のターンのトチュウだから、まず敵のターンが終わるまで待たなきゃいけない。でも敵のターンが終わったFOR～NEXTの外だとＥＤ（Ｉ）を変えるコトができない。」

ワンパク「ハマリじゃねェか！　どうしようもねえ！」

神崎「うーん、FOR～NEXTが終わったあとに、もう１回こういうFOR～NEXTを置くのはどう？

0087#. ＦＯＲ　Ｉ＝０　ＴＯ　１９
0088#. 　ＩＦ　ＥＤＷ　ＴＨＥＮ　ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
0089#. ＮＥＸＴ
0090#. ＥＤＷ＝ＦＡＬＳＥ

ＥＤ（Ｉ）を変えるためだけのFOR～NEXTなんだけど……
」

ワンパク「やるじゃねェか。コレでバッチリに見えるぜ？」

ハカセ「なかなかワルくないぞい。しかし、似たようなFOR～NEXTを２回ツカうのはカイゼンのヨチありじゃ。」

神崎「？」

ハカセ「このテイドの長さなら気にならんじゃろうが、FOR～NEXT文は増えれば増えるほど動作に時間がかかってしまうモノなのじゃ。ミライあるショクンには、これでマンゾクせずにFOR～NEXTの少ないプログラムをメザしてもらいたいのう。」

神崎「ムズカしいんだなあ。」

ワンパク「そうなるとマスマスどうすりゃイイのかワカらねえじゃねーか！」

インテリ「ここは……もう１つフラグを使うことにしようか。

ED(I)	敵１匹ずつ(I)の動きを決めるフラグ
EDW	次のターンで敵ぜんぶが下におりるフラグ
MD	今のターンで敵１匹ずつ(I)下におりるフラグ

この表のとおり、モンダイの動きをコントロールするための変数ＭＤを使ってみるよ。
」

ワンパク「フラグＭＤが１匹ずつ動かすのはイイのか……？　ああ、１匹ずつと言っても、FOR～NEXTのターンまるごとＭＤフラグで動かしてるから、ケッキョク敵ゼンブまとめて動いてるのか……
マジでヤヤコシイな、ついてこれてるのか自分でもワカらねーぜ！」

インテリ「プログラムとしては、こういうことになるね。よく見直してみよう。

0080#. ’－－－　シンリャクシャ
0081#. ＠ＡＬＩＥＮ
0082#. ＭＤ＝ＦＡＬＳＥ
0083#. ＩＦ　ＥＤＷ　ＴＨＥＮ　ＭＤ＝ＥＤＷ：ＥＤＷ＝ＦＡＬＳＥ
0084#. ’－－－
0085#. ＦＯＲ　Ｉ＝０　ＴＯ　１９
0086#. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ”　”
0087#. 　ＩＦ　ＭＤ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＥＭＶ
0088#. 　’－－－　
0089#. 　ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
0090#. 　’－－－
0091#. 　＠ＥＭＶ
0092#. 　ＧＯＳＵＢ　＠ＥＭＯＶＥ
0093#. ＮＥＸＴ
0094#. ＲＥＴＵＲＮ

ＥＤＷフラグのことはFOR～NEXTの外でかたづけて、ジッサイにＥＤ（Ｉ）を変えるのはＭＤフラグにマカせてあるのさ。
」

神崎「83行目でＥＤＷフラグのナカミをＭＤフラグに引きつがせて、ＥＤＷフラグじたいは初期化してるんだね。」

インテリ「ココまでのプログラムを全部書くと、こんな感じかな。」

＝プログラムリストを表示（※表示ボタンがあるのはWeb版に限られます。別ページのリストをごらんください）

ワンパク「ナンドでも言うが、ヤヤコシイぜ！」

ハカセ「ひとつずつモンダイをカイケツしていくうちに、いつしかこうなってしまったワケじゃが、だれにでも見やすいプログラムかといえばギモンかもしれん。
全てがアタマに入ったところで、あらためて見やすいプログラムに書きなおすのもダイゴミじゃぞ。今すぐやるべきコトではないかもしれんが……」

インテリ「この講座がゼンブ終わったあとで、みんなやってみてね！」

ワンパク「マル投げのフンイキがプンプンにおうぜ！」

配列宣言をいちどにすませる: ＤＩＭ　Ａ（１０），Ｂ（１０），Ｃ（１０）
ＤＩＭの後に，で区切って配列宣言を並べることができます。
FLOOR命令: （変数）＝ＦＬＯＯＲ（数）
数から小数点以下を切り捨てて整数にします。; ＦＯＲ　Ｉ＝０　ＴＯ　１００
　Ａ（Ｉ）＝ＦＬＯＯＲ（Ｉ／５）
ＮＥＸＴ
こう書くと、変数Ａ（Ｉ）に入る数は、変数Ｉが「５の倍数」になるたび１増えます。
Ａ（０）から順に、0,0,0,0,0,1,1,1,1,1,2,2,2,2,2,……と入っていくわけです。; ＦＯＲ　Ｉ＝０　ＴＯ　１００
　Ａ（Ｉ）＝Ｉ％５
ＮＥＸＴ
こう書けば、変数Ａ（Ｉ）に入る数は１ずつ増えていき、それが「５の倍数」になるたび０に戻ります。
Ａ（０）から順に、0,1,2,3,4,0,1,2,3,4,0,1,2,3,4,……と入っていくわけです。

→次のページへ

プチコンmkII 初心者講座

はじめてのBASIC

プログラマーからひとこと

遠い遠いむかし、はるかかなたの銀河系で……

コラム：キー入力 (1)

コラム：キー入力 (2)

今回のまとめ

変数のはなし

プログラマーからひとこと

最初におぼえる変数

今回のまとめ

サンプルプログラム１

プログラマーからひとこと

LOAD命令

コラム：編集モードのベンリ機能

REM命令

VISIBLE命令、コロン、COLOR命令

セミコロン

たし算

LOCATE命令

セミコロンと変数

END命令、SAVE命令

コラム：実行モードのベンリ機能

今回のまとめ

ラベルとＧＯＴＯのはなし

プログラマーからひとこと

ラベルとGOTO命令

SELECTボタンとSTARTボタン

今回のまとめ

サンプルプログラム２

プログラマーからひとこと

計算記号

省略形

INPUT命令

IF～THEN命令

ON～GOTO命令

例外処理

BEEP命令

ループ

今回のまとめ

くりかえし命令と配列変数

プログラマーからひとこと

FOR～NEXT命令

配列変数

DIM命令、CLEAR命令

DATA命令・READ命令

今回のまとめ

サンプルプログラム３（前）

プログラマーからひとこと

SYSBEEP変数

インデント

BEEP命令のピッチ

BTRIG()命令

メインループ

比較演算子

今回のまとめ

サンプルプログラム３（後）

プログラマーからひとこと

ビット演算子

連続入力を止めるために

INKEY$()命令

FOR～NEXT文からの脱出とスタック溜まり

BEEP命令で再生

ループ脱出とEND命令

今回のまとめ

RND()命令

プログラマーからひとこと

でたらめな数

今回のまとめ

サンプルプログラム４

プログラマーからひとこと

数当てゲームを遊んでみよう

BGMPLAY命令、BGMSTOP命令

条件式のANDとOR

３つのサブルーチン

もうひとくふう

今回のまとめ

ビット演算

プログラマーからひとこと

２進数