プチコン3号&BIG 非公式初心者講座 : 第15章 サンプルプログラム7 (その3)
プログラマーからひとこと
サンプルプログラム７を見ていくのも、とうとう３回目です。
全４回でまだ１回分ありますが、今回がクライマックスです。
なぜならページの長さがいちばん長いからです。
ボス戦前のダンジョンとかこんな感じですよね。
今回は１章ごとにけっこうドンドン進みます。
そのスピードにおいていかれることもあるかもしれませんが、そんな時ははじめに戻って、きっちりわかったあたりで次に進むくらいがいいかもしれません。
なんだか勉強っぽくてイヤかもしれませんが、なにしろラストダンジョンです。
ワンパク君たちが迷うところではいっしょに迷いつつ、いっしょに戦っていきましょう。
ところで、「ワンパク君」とかあたりまえのように呼んでますが、あれ、本名なの？
敵を出してみよう
ここまででプレイヤー側の動きはだいたいできあがったね。いよいよ敵の動きのプログラムに入ってみようか！
今までよりも大変そうなヨカン……。
ははは。たしかにタクサンの敵がジグザグに動き回るから、これまでよりもフクザツではあるね。
最初はカンタンに、スタートしたときのならび方から始めようか。
しかしプレイヤーキャラ１つ動かすだけでも、ケッコウ考えるコトが多いもんだぜ……。
カンタンって言っても、こういうワケじゃねェよな？
- ＬＯＣＡＴＥ ０，３
- ＰＲＩＮＴ ”Е Е Е Е Е Е Е Е Е Е”
- ＬＯＣＡＴＥ ０，５
- ＰＲＩＮＴ ”Е Е Е Е Е Е Е Е Е Е”
サスガにココまでカンタンじゃねェとは、オレにもワカるぜ。
たしかに、そうかも。サンプルをＲＵＮしてみると、敵Еは１匹ずつ順に動いてるんだよね。ショットでやられたらその敵だけが消えるわけだし……。
つまり１匹ずつ、あわせて20匹ぶんの変数がいるわけだね。……こう言えば、今までにおぼえたコトが役に立つんじゃないかな？
そうか！ 20個の変数をヨウイするんだな！
い、いや……
……じゃなくって、配列変数を使うんだよね。
そうそう、ソコだよ！
- ＤＩＭ ＥＸ［２０］：ＤＩＭ ＥＹ［２０］：ＤＩＭ ＥＤ［２０］
ゲームで使うのはこんなところかな。敵は英語で「Enemy(エネミー)」だから、変数の頭文字には「Ｅ」をつけることにするよ。
ＥＸとＥＹはやっぱり、ヨコ（Ｘ）とタテ（Ｙ）かな？
そうそう。ヨコがＸでタテがＹという変数の名付け方は、はっきりルールがあるワケじゃないけど、プログラマーの人はたいていこう書くね。おぼえておいていいんじゃないかな。
変数ＥＤの「Ｄ」は「Dynamics (ダイナミクス)」のＤなんだけど、……まあ、「動き方」くらいに考えておけばいいかな。
やけにハッキリしない言い方じゃねェか。ナニか言いたくないイミでもあんのか!?
「力学」とか「変動」とか……
おベンキョウの話だったか、キタイはずれだゼ！
ま、まあ分かりにくいのは本当かな。とにかく変数ＥＤは敵がどう動くかのフラグにするってことだね？
そういうコト。とりあえず最初は０にしておいていいかな。
ネンのタメに、ここで配列変数をどう使うのかまとめておこうかのう。
たとえば１匹めの敵は配列の番号を［０］に統一するのじゃ。こやつのいる場所を調べたければ、横方向なら配列変数ＥＸ［０］、縦方向ならＥＹ［０］じゃな。同じように２匹めの敵なら、ＥＸ［１］とＥＹ［１］で場所が決まっているワケじゃ。
それとタダの書き方のモンダイじゃが、
- ＤＩＭ ＥＸ［２０］：ＤＩＭ ＥＹ［２０］：ＤＩＭ ＥＤ［２０］
というふうにコロン（：）で分けなくても、
- ＤＩＭ ＥＸ［２０］，ＥＹ［２０］，ＥＤ［２０］
と、ひとつのＤＩＭ命令でスッキリ書くこともできるぞい。
じゃあ、その３つの配列変数を使いながら敵をナラべてみるゼ！
- ＦＯＲ Ｉ＝０ ＴＯ ９
- ＥＸ［Ｉ］＝Ｉ＊２
- ＥＹ［Ｉ］＝３
- ＥＤ［Ｉ］＝０
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］
- ＰＲＩＮＴ ”Е”；
- ＮＥＸＴ
- ＦＯＲ Ｉ＝１０ ＴＯ １９
- ＥＸ［Ｉ］＝Ｉ＊２−２０
- ＥＹ［Ｉ］＝５
- ＥＤ［Ｉ］＝０
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］
- ＰＲＩＮＴ ”Е”；
- ＮＥＸＴ
……け、けっこうメンドくせェな、コレ！
イヤイヤ、なかなかジョウデキじゃぞい。トクに20行目なんかはクロウのアトがみえるのう。
敵が２列にならんでいるから、FOR文を２回に分けて作らないといけなかったんだね。
たしかに「ＦＯＲ Ｉ＝０ ＴＯ １９」ひとつで終わらせる方法ってないもんなあ。IF文で変数Ｉが10を超えたら……いやいや、それもプログラムが長くなっちゃう……
このタメだけに似たような行を２つ書くのがなんたってメンドクセェぜ！
実は、すごく短くする方法があるんだけど……
な、ナニ!? キキズテならねえな！
短かくしてみよう
さっきのワンパク君のプログラムでも必要なコトはできてるから、わざわざ短くしなくてもいいんだけど……
イヤイヤ、さっきのプログラムを打つのはかなりメンドウだったんだぜ。短くなるならカンゲイじゃねェか？
ならば、こう書くと短くなるのう。
- ＦＯＲ Ｉ＝０ ＴＯ １９
- ＥＸ［Ｉ］＝ＦＬＯＯＲ（Ｉ ＭＯＤ １０）＊２
- ＥＹ［Ｉ］＝ＦＬＯＯＲ（Ｉ／１０）＊２＋３
- ＥＤ［Ｉ］＝０
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］
- ＰＲＩＮＴ ”Е”
- ＮＥＸＴ
ハ……ハァ!?
たしかに短いけど……よくわからない……
そうか、まだ習ってねェＦＬＯＯＲがカギだな！ これにスゲェ意味が……
ＦＬＯＯＲは「切り捨てて整数にする」命令だよ。たとえばＡ＝ＦＬＯＯＲ（１．７５）と書けば変数Ａには1.75から「.75」を切り捨てて１が入るね。
ふ、フツウだぜ！
「FLOOR(フロア)」すなわち「たいらにする」というイミじゃから、整数にするというイミに変わったのじゃな。
12行目の計算をカンタンに言いなおすと、「変数Ｉを10で割ったあまりから小数点以下を切りすてて２倍する」となるのう。
ぜんぜんカンタンじゃねー！
うーん、なるほど……たしかにＥＸ［０］＝０、ＥＸ［１］＝２、ＥＸ［２］＝４と２ずつ増えていって、ＥＸ［１０］になったとたんＥＸ［１０］＝０に戻っているね。やりたかったコト通りではあるんだけど……なんだかフシギだなあ。
13行目も、「Ｉを10で割って小数点以下を切りすてたら、２倍して３を足す」だけじゃがこれで敵の１〜10匹めまではタテ位置３行目に、11〜20匹めまではタテ位置５行目にそろうというワケじゃ。
ウ……ウウ……。ケイサンしてみたらタシカにその通りだったが……セイカツの中でまったく出てこねェ式にもホドがあるぜ！
あんまりパッと出てくる計算じゃないかもね。
でも「ＦＬＯＯＲ（Ｉ／Ｎ）ならＩが『Ｎの倍数』になるたび１増える」。
「ＦＬＯＯＲ（Ｉ ＭＯＤ Ｎ）ならＩが『Ｎの倍数』になるたびゼロまでおり返しながら１増えていく」。
原理まで考えなくても、こう丸アンキしておくとプログラムで使えるバメンはけっこう多いよ。
たとえば時計を考えてみい。１時間は60分で、０分〜59分をくり返すものじゃが、この「分」はＦＬＯＯＲ（Ｉ ＭＯＤ ６０）で書きあらわせるのう。「時間」はＦＬＯＯＲ（Ｉ／６０）と書けばいいワケじゃ。
かなりカタいたとえになってしまったが、サンプルプログラムのように、敵をセイレツさせるようなコトにも応用できるんじゃぞい。
プログラマーの生活のチエってところかな。
そういうコト。そうそう、ここでは「ＦＬＯＯＲ（Ｉ ＭＯＤ Ｎ）」なんて書いたけど、本当は「割り算のあまり」に小数が出てくるハズはないから、「Ｉ ＭＯＤ Ｎ」と書くだけでいいんだよ。
ワシは……ワシは、見た目をそろえておきたかったのじゃああああ
敵を動かそう
敵をならべた後は、イヨイヨ動かすワケだが……
今までとちがって１方向や２方向じゃないのが、ナヤむところだね。
迷ったら、まずセイリしてみよう！
| 0 | 右に動く | X=49になるまでX+1 |
|---|---|---|
| 1 | 下におりる | 1回だけY+1 |
| 2 | 左に動く | X=0になるまでX-1 |
| 3 | 下におりる | 1回だけY+1 |
キホン的には、このくり返しだよね。
そう言われれば、そう……なのか？
ショットで撃たれたり、下までおりて上にもどるのが抜けてるけど……
そこはもっとアトから考えよう！ まずこの表にある動きをクリアーしないとそこまでたどりつかないしね。
そのワリキリ、キライじゃねえな！ じゃあとにかくサブルーチン「ALIEN(エイリアン)」をメインルーチンから呼び出すことにするぜ！
- ＧＯＳＵＢ ＠ＡＬＩＥＮ
で、アトは……１匹ずつ動かすコトだけ考えるゼ！
- ’−−− しんりゃくしゃ
- ＠ＡＬＩＥＮ
- ＦＯＲ Ｉ＝０ ＴＯ １９
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
動かすトキのキホンだから、” ”で消すだけは消しといたゼ。 こっからサキはナガくなりそうなんで＠ＥＭＯＶＥにＧＯＳＵＢさせといたが、モンダイはどの方向に動かすか……だな。
なかなかワルくないよ。飛んだ先でまた別のラベルに飛ぶけど、こうすると分かりやすいんじゃないかな。
- ＠ＥＭＯＶＥ
- ＯＮ ＥＤ［Ｉ］ ＧＯＴＯ ＠ＲＩ，＠ＤＷ，＠ＬＦ，＠ＤＷ
| ED[I]=0 | 右に動く | X=49になるまでX+1 |
|---|---|---|
| ED[I]=1 | 下におりる | 1回だけY+1 |
| ED[I]=2 | 左に動く | X=0になるまでX-1 |
| ED[I]=3 | 下におりる | 1回だけY+1 |
この表のとおりだね。フラグに使ってる変数ＥＤ[Ｉ]の数しだいで、ラベル＠ＲＩ、＠ＤＷ、＠ＬＦ、＠ＤＷのどれかに飛ぶってやり方さ。
ああそうか、ラベルはそれぞれ「右(RIght)」「下(DoWn)」「左(LeFt)」になってるんだ。
とりあえず、右に動かすコトだけ考えるゼ！
- ＠ＲＩ
- ＥＸ［Ｉ］＝ＥＸ［Ｉ］＋１
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］
- ＰＲＩＮＴ ”Е”
- ＲＥＴＵＲＮ
コレで……まあ、右にだけはウゴくだろうな。
ずいぶんドンドン行くなあ。
でも、のこりの方向も同じように動かせそうだね。
- ＠ＤＷ
- ＥＹ［Ｉ］＝ＥＹ［Ｉ］＋１
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］
- ＰＲＩＮＴ ”Е”
- ＲＥＴＵＲＮ
やってるコトがカブる行が多いから、ゼンブをまとめるとこうなるかな。
- ＠ＲＩ
- ＥＸ［Ｉ］＝ＥＸ［Ｉ］＋１
- ＧＯＴＯ ＠ＥＰＵＴ
- ＠ＤＷ
- ＥＹ［Ｉ］＝ＥＹ［Ｉ］＋１
- ＧＯＴＯ ＠ＥＰＵＴ
- ＠ＬＦ
- ＥＸ［Ｉ］＝ＥＸ［Ｉ］−１
- ＧＯＴＯ ＠ＥＰＵＴ
- ＠ＥＰＵＴ
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］
- ＰＲＩＮＴ ”Е”
- ＲＥＴＵＲＮ
ラベル名の「PUT(プット)」は日本語では「置く」というイミになるかな。敵キャラを画面に置くルーチンってことだね。
ココまではよし。……というか、まだ右に行くコトしかデキてねェな。フラグがＥＤ[Ｉ]＝０のまんまだからな。
いまＲＵＮしても、右ハジまで来たら表示がおかしくなるよ。
マカセとけ！ たとえば＠ＲＩなら、右ハジに来たときだけフラグを変えてやりゃいいんだな？
- ＠ＲＩ
- ＥＸ［Ｉ］＝ＥＸ［Ｉ］＋１
- ＩＦ ＥＸ［Ｉ］＜４９ ＴＨＥＮ ＠ＥＰＵＴ
- ＥＤ［Ｉ］＝１
- ＧＯＴＯ ＠ＥＰＵＴ
てコトは、＠ＬＦでも同じようにできるハズだゼ！
- ＠ＬＦ
- ＥＸ［Ｉ］＝ＥＸ［Ｉ］−１
- ＩＦ ＥＸ［Ｉ］＞０ ＴＨＥＮ ＠ＥＰＵＴ
- ＥＤ［Ｉ］＝３
- ＧＯＴＯ ＠ＥＰＵＴ
ふむふむ。
| ED[I]=0 | 右に動く | X=49になるまで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 |
フラグＥＤ[Ｉ]が１や３になると、次はラベル＠ＤＷに行くことになるね。
＠ＤＷでは下におりるのは１回だけだから、すぐフラグを変えることになるね。
- ＠ＤＷ
- ＥＹ［Ｉ］＝ＥＹ［Ｉ］＋１
- ＩＦ ＥＤ［Ｉ］＝＝１ ＴＨＥＮ ＥＤ［Ｉ］＝２
- ＩＦ ＥＤ［Ｉ］＝＝３ ＴＨＥＮ ＥＤ［Ｉ］＝０
- ＧＯＴＯ ＠ＥＰＵＴ
こうやってIF文を使うことになるのかな？
ン？ ……ああそうか、さっきまで右に動いていたとき（ＥＤ[Ｉ]＝＝１）と、さっきまで左に動いていたとき（ＥＤ[Ｉ]＝＝３）で、次に立てるフラグがカワッてくんのか。
せっかくだから、今まででおぼえたコトを使って、もっとシンプルにしてみようか。
- ＠ＤＷ
- ＥＹ［Ｉ］＝ＥＹ［Ｉ］＋１
- ＥＤ［Ｉ］＝（ＥＤ［Ｉ］＋１） ＡＮＤ ３
- ＧＯＴＯ ＠ＥＰＵＴ
……ナニ？
あ、ビット演算かあ……。
ケッ！ オリコウさんドモはいつもこうだ！ ウーム、２のトキは２進数で１０で、３は２進数で１１だから……ブツブツ……
えーと、ようするに86行ではＥＤ[Ｉ]のナカミが１だけふえるけど、４になったときだけは０にもどされるってコトだよね？
ワリとカンタンなんだけどなあ。
デキるヤツの考えのオシツケはマッピラだぜ！
ヒドい言われようだよ。まあ、ビット演算の話はもっと後からくわしくおぼえることにしようか。
そうそう、画面の下まで行ったらまた上から出てくる動きも足しておこうね。
- ＩＦ ＥＹ［Ｉ］＞２０ ＴＨＥＮ ＥＹ［Ｉ］＝３
ナルホドな。コレでとりあえず、敵の動きはひととおりデキたか……。
ずいぶんトントンビョウシじゃねェか。ＲＵＮしてみるか！
movie_sample7-2_false.mp4.mp4
……なんか、ちがう……
ウオォー！ ナンだこの動き、ナンかチガうぞコレ、っつかキモチワリー！ なんかキモチワリー！
ふぉっふぉっふぉ。ようやく気づいたようじゃのう。めざしていた正しい動きはこっちじゃよ。
そうだコレだ。敵は下におりるトキは、１匹ずつじゃなくマトメて下におりるんだ。チクショウ、どこでマチガエたんだ!?
ここまでにミスがあったワケじゃないよ。まだそういう動きをプログラムしてないっていうだけさ。
足りないところをつけ足してみよう
ちょっとアタマをヒネるところだよ。いいかい？
今までは「１匹ずつ、右ハジ・左ハジに来たら下に行く」ことにしていたね。
うん、そのハズ。……そうだよね？
ムシロ、そのドコがワルいのかがワカらねーぜ！
ところが、ボクらがやろうとしてたのは「どれか１匹が右ハジ・左ハジに来たら、次のターンでは敵全部がその場から下に行く」動きなんだよ。
……！
つまりアレか、今までやってたのは行列を作って歩く「ムカデ歩き」の動きで、本当にやりたいのは行進の「右向け、右！」でゼンインがいつでも同じ方向をむく動きってコトか？
わりとヨウチじゃが、悪くないたとえじゃぞい。ココまでわかれば、アトはできるんではないかの？
待て待て待て、やるべきコトはだいたいワカったが、けっこうコンランするぜ！
急にハッソウを変えるところだからね。順にかたづけていこうか。
まず、方向を変えるきっかけは「どれか１匹が右ハジ・左ハジに来たら」だよね。ここから考えてみようよ。
それは、ツマリ……＠ＲＩや＠ＬＦの中の、IF文にひっかからなかったトキじゃねェか！
- ＠ＲＩ
- ＥＸ［Ｉ］＝ＥＸ［Ｉ］＋１
- ＩＦ ＥＸ［Ｉ］＜４９ ＴＨＥＮ ＠ＥＰＵＴ
- ＥＤ［Ｉ］＝１
- ＧＯＴＯ ＠ＥＰＵＴ
この81行目のあたりだな！
そうだね。ここでＥＤ[Ｉ]のフラグを変えてるけど、これだと[Ｉ]に入った１匹ずつ、右ハジにつくまでフラグが変わらないね。
ソレじゃマズいんだよな……そのカワリに、ゼンインのフラグを変える方法……？
もう１つ、大きなフラグを作ったらいいんじゃないかな！
- ＥＤＷ＝ＴＲＵＥ
81行目を新しい変数ＥＤＷのフラグを立てるように書きかえたよ。
このフラグが立ってる時は、どこにいる敵でもフラグＥＤ[Ｉ]を下におりるように変えたらどうかな？
フラグＥＤ[Ｉ]を変えるフラグがＥＤＷか……ドンドンややこしくなってくるぜェ……。
ここがサイゴのカベだよ、がんばろう！
画面のハジに来たことはＥＤＷで分かるようになったから、「次のターンで敵ぜんぶがその場から下に行く」動きをプログラムすればいいんだよね。
さっきのビット演算ＥＤ[Ｉ]＝（ＥＤ[Ｉ]＋１） ＡＮＤ ３を使えばそれでいいかな。
ムムム……。次のターンってことは、だいぶ前にモドるがこのあたりか。
- ’−−− しんりゃくしゃ
- ＠ＡＬＩＥＮ
- ＦＯＲ Ｉ＝０ ＴＯ １９
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
ココのFOR〜NEXTで敵を動かしてたハズだぜ！
いちど敵のターンが終わってからＥＤ[Ｉ]のフラグを変えるわけだから……アレ？ フラグを変えていい場所がないよ!?
ナニ言ってんだ……オ、オォ!?
なんてこった、タシカにそうだぜ！ 70行目のアトでフラグを変えてもシッパイだし、72行目のアトじゃFOR〜NEXTループが終わってるからＥＤ[Ｉ]って書いてもナンにもならねェぞ！
ソコがモンダイだね。フラグＥＤＷが立つのは敵のターンのトチュウだから、まず敵のターンが終わるまで待たなきゃいけない。でも敵のターンが終わったFOR〜NEXTの外だとＥＤ[Ｉ]を変えるコトができない。
ハマリじゃねェか！ どうしようもねえ！
うーん、FOR〜NEXTが終わったあとに、もう１回こういうFOR〜NEXTを置くのはどう？
- ＦＯＲ Ｉ＝０ ＴＯ １９
- ＩＦ ＥＤＷ ＴＨＥＮ ＥＤ［Ｉ］＝（ＥＤ［Ｉ］＋１） ＡＮＤ ３
- ＮＥＸＴ
- ＥＤＷ＝ＦＡＬＳＥ
ＥＤ[Ｉ]を変えるためだけのFOR〜NEXTなんだけど……
やるじゃねェか。コレでバッチリに見えるぜ？
なかなかワルくないぞい。しかし、似たようなFOR〜NEXTを２回ツカうのはカイゼンのヨチありじゃ。
?
このテイドの長さなら気にならんじゃろうが、FOR〜NEXT文は増えれば増えるほど動作に時間がかかってしまうモノなのじゃ。ミライあるショクンには、これでマンゾクせずにFOR〜NEXTの少ないプログラムをメザしてもらいたいのう。
ムズカしいんだなあ。
そうなるとマスマスどうすりゃイイのかワカらねえじゃねーか！
ここは……もう１つフラグを使うことにしようか。
| ED[I] | 敵１匹ずつ[I]の動きを決めるフラグ |
|---|---|
| EDW | 次のターンで敵ぜんぶが下におりるフラグ |
| MD | 今のターンで敵１匹ずつ[I]下におりるフラグ |
この表のとおり、モンダイの動きをコントロールするための変数ＭＤを使ってみるよ。
フラグＭＤが１匹ずつ動かすのはイイのか……？ ああ、１匹ずつと言っても、FOR〜NEXTのターンまるごとＭＤフラグで動かしてるから、ケッキョク敵ゼンブまとめて動いてるのか……
マジでヤヤコシイな、ついてこれてるのか自分でもワカらねーぜ！
プログラムとしては、こういうことになるね。よく見直してみよう。
- ’−−− しんりゃくしゃ
- ＠ＡＬＩＥＮ
- ＭＤ＝ＦＡＬＳＥ
- ＩＦ ＥＤＷ ＴＨＥＮ ＭＤ＝ＥＤＷ：ＥＤＷ＝ＦＡＬＳＥ
- ’−−−
- ＦＯＲ Ｉ＝０ ＴＯ １９
- ＬＯＣＡＴＥ ＥＸ［Ｉ］，ＥＹ［Ｉ］：ＰＲＩＮＴ” ”
- ＩＦ ＭＤ＝＝ＦＡＬＳＥ ＴＨＥＮ ＠ＥＭＶ
- ’−−−
- ＥＤ［Ｉ］＝（ＥＤ［Ｉ］＋１） ＡＮＤ ３
- ’−−−
- ＠ＥＭＶ
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
ＥＤＷフラグのことはFOR〜NEXTの外でかたづけて、ジッサイにＥＤ[Ｉ]を変えるのはＭＤフラグにマカせてあるのさ。
70行目でＥＤＷフラグのナカミをＭＤフラグに引きつがせて、ＥＤＷフラグじたいは初期化してるんだね。
ココまでのプログラムを全部書くと、こんな感じかな。
| プログラムリスト |
ナンドでも言うが、ヤヤコシイぜ！
ひとつずつモンダイをカイケツしていくうちに、いつしかこうなってしまったワケじゃが、だれにでも見やすいプログラムかといえばギモンかもしれん。
全てがアタマに入ったところで、あらためて見やすいプログラムに書きなおすのもダイゴミじゃぞ。今すぐやるべきコトではないかもしれんが……
この講座がゼンブ終わったあとで、みんなやってみてね！
マル投げのフンイキがプンプンにおうぜ！
今回のまとめ
- 配列宣言をいちどにすませる
- ＤＩＭの後に，で区切って配列宣言を並べることができます。
- ＤＩＭ Ａ［１０］，Ｂ［１０］，Ｃ［１０］
- 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,……と入っていくわけです。- ＦＯＲ Ｉ＝０ ＴＯ １００
- Ａ［Ｉ］＝Ｉ ＭＯＤ ５
- ＮＥＸＴ
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.536 秒 | このページの最終更新 : 2022/09/20 (火) 12:48:50 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30