プチコンmkII 初心者講座くりかえし命令と配列変数
プログラマーからひとこと
この章では、FOR～NEXT文について学びます。FOR～NEXT文は、それがあるだけでプログラムリストを読むのがぐっと難しくなるというおそろしい命令です。
プログラムした人は意味があって使っているしその意味もわかっているのですが、そのリストを読むほうはたまったものじゃありません。
それでも使うのはなぜかといえば、とてもベンリだからです。
これがあるだけでプログラムの手間はものすごく少なくなります。
あんがい悪くないですね。プラマイでいえばプラスじゃないでしょうか。
さらにこの章では、DIM命令、いわゆる配列変数についても学びます。
配列変数というものはパッと頭で理解するのがなかなかむずかしく、プログラムをおぼえはじめた人はみんなひっかかるポイントです。
正直わたしも何度か「こんなものなけりゃいいのに」と思いました。
「なんの役にたつんだ？」とも思いました。
「なくていいじゃん」とも思いました。
でも、そういうものが意外とけっこう役にたつということは、ここまでこの講座を読んできた人なら知っているはずです。
くやしいことにこれが本当に役にたつのです。
この章では、できるだけじっくりと配列変数のことをおぼえていきます。
あんまりじっくりすぎて途中でめんどくさくなるかもしれませんが、カベをのりこえるためだと思ってじっくり読んでみてください。
FOR～NEXT命令
インテリ「「くりかえし命令」と言ってどんな命令を想像するかな？」
ワンパク「ＧＯＴＯで作る無限ループなんか、「くりかえし」になるんじゃねえか？
0001#. ＠ＭＵＧＥＮ
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＧＯＴＯ ＠ＭＵＧＥＮ
」0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＧＯＴＯ ＠ＭＵＧＥＮ
インテリ「たしかに何度もくりかえしているね。じゃあ、無限ループじゃなく10回くり返したら途中でループをやめる、とするとどうすればいいかな？」
ワンパク「ムリじゃねえの？」
神崎「ず、ずいぶんアキラメが早いね。ええと、変数を使って、ループのたびに変数の中身を変えて、IF～THEN文で変数によって別のラベルまで……」
ワンパク「ウォオー！ 話を聞いてるだけでめんどクセエうえに、言ってるイミもよくわかんねえぜ！」
インテリ「なかなか難しいよね。そこで役に立つのがFOR ～NEXT 命令なんだ。
まずこのプログラムを見てごらん。」
まずこのプログラムを見てごらん。」
0001#. ＦＯＲ Ａ＝１ ＴＯ １０
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
ワンパク「ほとんどゼンブ新しい命令じゃねえか！ とりあえずＲＵＮしてみるか。」
神崎「ちゃんとクリカエシを10回書いたところで終わったね。」
ワンパク「３行のプログラムにしちゃナカナカやるじゃねえか。どうやらクワシク話をきかなきゃならねェようだな！」
インテリ「英語で「FOR 」は「～から」、「TO 」は「～まで」という意味になるね。
ＦＯＲ Ａ＝１ ＴＯ １０は「Ａ＝１から１０まで」と読んでもいいだろう。
そして「NEXT 」は「次にいく」というところかな。「次のくりかえしを始める」って考えればこれはわかるよね。」
ＦＯＲ Ａ＝１ ＴＯ １０は「Ａ＝１から１０まで」と読んでもいいだろう。
そして「
ワンパク「ＮＥＸＴの方はだいたいワカッたぜ。しかしＦＯＲの方、「Ａ＝１から１０まで」ってのはイミわからねェな。フツウ「１から１０まで」じゃねえのか？」
神崎「あれ？ たしかBASICでイコール記号を使うのは変数のときだけだから……？」
インテリ「よくおぼえていたね。そう、このＡは変数なんだ。」
ワンパク「なんでココで変数が出てくんだ……？
話が見えてこねェぞ！ ワカるようにセツメイしやがれ！」
話が見えてこねェぞ！ ワカるようにセツメイしやがれ！」
インテリ「ジッサイにプログラムで見てもらうのが早いかな？ ちょっと書きかえてみよう。」
0001#. ＦＯＲ Ａ＝１ ＴＯ １０
0002#. ＰＲＩＮＴ”クリカエシ”；Ａ
0003#. ＮＥＸＴ
0002#. ＰＲＩＮＴ”クリカエシ”；Ａ
0003#. ＮＥＸＴ
インテリ「これをＲＵＮするとこうなるね。」
神崎「１から10まで、くりかえすたびに変数Ａがふえている、のかな？」
インテリ「そう考えてマチガイじゃないね。これがＦＯＲ～ＴＯのむずかしいトコロなんだけど、「Ａ＝１から始めて、変数Ａが１０になるまで、変数Ａを１ふやしながらくりかえす」というのがＦＯＲ Ａ＝１ ＴＯ １０の正しいイミなんだ。」
ワンパク「ズイブンいろいろなコトがはぶいて書いてあんだな、ＦＯＲ～ＴＯ文にはよォ！ わかりづれェ！」
インテリ「そのまま書いても長い命令になって、打ちづらいだろうしね。これくらいがちょうどいいんじゃないかな。」
ワンパク「おっと待てよ、オレのギモンがカイケツしてないままだったぜ！ なんで変数がかならず出てくんだ？ はじめの方で使ったこのプログラムだけは、変数いらねえじゃねえか！
0001#. ＦＯＲ Ａ＝１ ＴＯ １０
0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
」0002#. ＰＲＩＮＴ”クリカエシ”
0003#. ＮＥＸＴ
インテリ「それはもっともかもしれないね。FOR～NEXT文では変数を使うことの方がずっと多いから……としか言えないかな。じっさい、変数を使わないループなら変数のことはムシすればいいんだし、別にモンダイはないだろう？」
ワンパク「ウムム……タシカに。」
神崎「うっかり別のところで変数Ａを使ってると、ＦＯＲ命令で変数のナカミが変わっちゃうから、それだけは気をつけないとね。」
ワンパク「なんだかマルメこまれた気がしねェでもないが……」
インテリ「次はこのFOR～NEXT文と相性のいい、DIM命令について説明するよ！」
配列変数
プチコン３号ユーザーにおしらせ：ここはプチコンmkIIとプチコン３号でだいぶかわります。３号では配列変数（この先で説明します）はカッコ（）が［］になると考えると、ざっくりわかりやすいでしょう。それと、説明の中に出てくるCLEAR命令はプチコン３号にはありません。入力する時はCLEARを外しておいてください。
インテリ「まずサイショに、「配列変数 」について知っておこうか。」
ワンパク「イヤなヨカンだな……。漢字が４コ以上つづいたコトバはムズカシいモンと決まってるぜ！」
インテリ「まあまあ。いままでにおぼえた変数とたいした違いはないんだよ。」
神崎「ホントに？」
インテリ「使いかたがトクシュだからとまどうかもしれないけど、変数と同じように使うものだってコトさえ忘れなければ、けっこうカンタンなはずさ。
まず、いつもの変数を考えてみようか。
」
まず、いつもの変数を考えてみようか。
0001#. ＡＰＰＬＥ＝５６
0002#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ；”コ”
おぼえてるかな？ サンプルプログラム１でこんな使いかたをしたよね。0002#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ；”コ”
」
ワンパク「オボエてなくたって、リストを読めばイミはわかるぜ。えーと、"ＲＵＮ"！
」
リンコ゛５６コ
ＯＫ
そうそう、変数ＡＰＰＬＥのナカミ５６をＰＲＩＮＴするんだゼ！ＯＫ
」
神崎「（ワンパク君、わすれかけてたな……）」
インテリ「これを配列変数に変えてみよう。」
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（１）
0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
神崎「１行目からさっそく新しい命令が２つ……」
インテリ「ああ、そこは今は気にしないでいいトコロだから、２行目から読むようにしてね。」
ワンパク「ン？ じゃあ変わったのは、変数のウシロに（０）がついただけってコトか？ それとも変数のウシロに（０）がつくと、何か変数がチガってくんのか？」
インテリ「いいや、ＡＰＰＬＥ（０）のナカミは５６でマチガイないよ。」
リンコ゛５６コ
ＯＫ
ＯＫ
ワンパク「じゃあナマエ以外ゼンブ同じじゃねェかよ！」
インテリ「変数と同じだって言ったじゃないか。こういうものなんだよ。」
神崎「うーん……これはワンパク君じゃなくても、フツウの変数でいいじゃないかって思うな。」
インテリ「よし、その気持ちをわすれずに、配列変数の使い方その２にいってみよう！
」
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（２）
0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＡＰＰＬＥ（１）＝３２
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
0005#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（１）；”コ”
やっぱり１行目はムシして読んでね！0002#. ＡＰＰＬＥ（０）＝５６
0003#. ＡＰＰＬＥ（１）＝３２
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（０）；”コ”
0005#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ（１）；”コ”
」
ワンパク「テメー……まさか、ソレもこのフツウの変数と同じだって言うんじゃねェだろうな……
0001#. ＡＰＰＬＥ０＝５６
0002#. ＡＰＰＬＥ１＝３２
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ０；”コ”
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ１；”コ”
」0002#. ＡＰＰＬＥ１＝３２
0003#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ０；”コ”
0004#. ＰＲＩＮＴ”リンコ゛”；ＡＰＰＬＥ１；”コ”
インテリ「合ってるよワンパク君！ ちゃんとわかってるじゃないか。」
ワンパク「ウオォー！ ガキあつかいもタイガイにしやがれー！ 変数のナマエが違うだけじゃねえか!!」
インテリ「そうそう、名前くらいのちがいだって思えばいいんだよ。教えやすくてたすかるなあ。」
ワンパク「チッ、ここまではテメーのオモワクどおりってワケか。だが、そろそろ配列変数だけができるワザを言わねえと、オレもダマっちゃいないぜ！」
インテリ「配列変数ならではって言うと……こういうのはどうかな？
」
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#.
0034#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ（１）；”コ”
0035#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”
0036#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ（３）；”コ”
#####. ：
0064#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ（３１）；”コ”
あんまり長いから途中ははぶいたけど、31日分のリンゴを数えるプログラムなのはわかるよね。0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#.
0034#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ（１）；”コ”
0035#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”
0036#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ（３）；”コ”
#####. ：
0064#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ（３１）；”コ”
」
神崎「つまり……カッコの中の数字があるからわかりやすいって感じ……？」
ワンパク「フザケんじゃねエー！ だからソレ、こう書いても同じじゃねえか！
0001#. ＡＰＰＬＥ１＝５６
0002#. ＡＰＰＬＥ２＝３２
0003#. ＡＰＰＬＥ３＝７１
#####. ：
0031#. ＡＰＰＬＥ３１＝４５
0032#.
0033#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ１；”コ”
0034#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ２；”コ”
0035#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ３；”コ”
#####. ：
0063#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ３１；”コ”
」0002#. ＡＰＰＬＥ２＝３２
0003#. ＡＰＰＬＥ３＝７１
#####. ：
0031#. ＡＰＰＬＥ３１＝４５
0032#.
0033#. ＰＲＩＮＴ”１ニチメ リンコ゛”；ＡＰＰＬＥ１；”コ”
0034#. ＰＲＩＮＴ”２ニチメ リンコ゛”；ＡＰＰＬＥ２；”コ”
0035#. ＰＲＩＮＴ”３ニチメ リンコ゛”；ＡＰＰＬＥ３；”コ”
#####. ：
0063#. ＰＲＩＮＴ”３１ニチメ リンコ゛”；ＡＰＰＬＥ３１；”コ”
インテリ「そうだよワンパク君！ よくここまでガマンしたね！ ここまでは本当に変数といっしょなんだ。これから、配列変数だけの使い方に変えていくよ。」
ワンパク「お、おう……？ ガマンしたオボエはあんまりねェが、とにかくのぞむトコロだぜ！」
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#.
0034#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0035#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0036#. ＮＥＸＴ
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#.
0034#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0035#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0036#. ＮＥＸＴ
ワンパク「!!」
インテリ「わかってきたかな。34行目からはおぼえたばかりのFOR～NEXTを使っているね。」
神崎「変数ＤＡＹを１から順にふやしながら、３１までくりかえすんだよね。」
ワンパク「変数ＤＡＹが１のトキは、35行目のイミはＰＲＩＮＴ １；”ニチメ リンコ゛”；ＡＰＰＬＥ（１）；”コ”ってコトになる……
だがFOR〜NEXTでくりかえしてＤＡＹが２になったら、同じ35行目でもＰＲＩＮＴ ２；”ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”に……！
これが３１まで自動でくりかえされるってワケか！」
だがFOR〜NEXTでくりかえしてＤＡＹが２になったら、同じ35行目でもＰＲＩＮＴ ２；”ニチメ リンコ゛”；ＡＰＰＬＥ（２）；”コ”に……！
これが３１まで自動でくりかえされるってワケか！」
インテリ「これは配列変数じゃないとできないだろう。こういう使い方もできるね。」
0034#. ＩＮＰＵＴ”ナンニチメヲ シラヘ゛マスカ”；ＤＡＹ
0035#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
神崎「ＩＮＰＵＴで数字を変数ＤＡＹに入れて、34行目で配列変数ＡＰＰＬＥ（ＤＡＹ）をＰＲＩＮＴするわけだね。
うーん、これを普通の変数でやろうとすると、変数名を入力させて……いやいや配列変数じゃないとダメか……」
うーん、これを普通の変数でやろうとすると、変数名を入力させて……いやいや配列変数じゃないとダメか……」
インテリ「みんなもわかったみたいだね。つまり配列変数は「変数名に変数を使える」ベンリな変数なんだ。」
ワンパク「ヘンスウメイをヘンスウにツカえるヘンスウ……」
インテリ「ごめんごめん、「変数」というコトバばっかりでわかりづらかったね。こういうふうに、口で説明するのがムズカシいのが配列変数なんだ。だから今回はできるだけジッセン的に説明したよ。」
ワンパク「ヘッ、なかなかヤルじゃねえかクソッタレー！」
神崎「それ、ほめてるの？」
DIM命令、CLEAR命令
プチコン３号ユーザーにおしらせ：実はプチコン３号にはCLEAR命令はありません。でも、ここに書いてあることはCLEAR命令以外は大事なことなので、そういうものだと思って読んでくださいね。
インテリ「配列変数についてわかってきたところで、DIM命令もおぼえておこう。」
神崎「配列変数を使うときはいつも１行目に書いてあったね。
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
」インテリ「ＤＩＭ ＡＰＰＬＥ（３２）というのは、これから配列変数をＡＰＰＬＥ（０）～ＡＰＰＬＥ（３１）まで用意する、という命令だよ。」
神崎「いちいち前もって数を決めておかないといけないの？」
インテリ「そう。このことを「配列宣言 」と言うんだけど、かならず配列宣言するのはちょっとめんどうではあるね。」
ワンパク「メンドウなコトなんざやってられるか！ イキナリ書けばいいじゃねえか！
0001#. ＡＰＰＬＥ（３１）＝１
」
Ｓｕｂｓｃｒｉｐｔ ｏｕｔ ｏｆ ｒａｎｇｅ （１）
ＯＫ
ＯＫ
インテリ「というエラーが出るんだよね。」
ワンパク「のヤロー！ こうすりゃいいんだろ！ 負けたキブンだぜ！
0001#. ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（３１）＝１
」0002#. ＡＰＰＬＥ（３１）＝１
ＯＫ
神崎「使うのはＡＰＰＬＥ（３１）までなのに、ＤＩＭ ＡＰＰＬＥ（３２）と書かなきゃいけないのがフシギなんだけど……。」
インテリ「そのＤＩＭだと、用意されるのはＡＰＰＬＥ（０）～ＡＰＰＬＥ（３１）だからね。数を数えてみるとわかるよ。」
ワンパク「……タシカに、32コあるな。しかし言われねえとピンとこねえハナシだぜ！」
インテリ「ＬＯＣＡＴＥ命令でもそうだったけど、ゼロから数えるから、頭で考える数より１つズレちゃうんだね。これは気をつけないといけないかな。」
神崎「いっそありえないくらい大きく宣言したら？」
インテリ「ところが配列のこの数字は、「合計で」262144個までと決まってるんだ。たとえばＤＩＭ ＡＰＰＬＥ（２６２１４４）と宣言したあとだと、ＤＩＭ ＯＲＡＮＧＥ（１）くらいでもエラーになってしまうんだよ。」
ワンパク「ヤッカイだな、まったく！ まあホドホドに使うくらいならダイジョウブなんだろ？
0001#. ＤＩＭ ＡＰＰＬＥ（３００）
0002#. ＡＰＰＬＥ（３１）＝１
」0002#. ＡＰＰＬＥ（３１）＝１
ＲＵＮ
Ｄｕｐｌｉｃａｔｅ ｄｅｆｉｎｉｔｉｏｎ （１， ＤＩＭ）
ＯＫ
Ｄｕｐｌｉｃａｔｅ ｄｅｆｉｎｉｔｉｏｎ （１， ＤＩＭ）
ＯＫ
ワンパク「!? な、ナンだ？ ３００個テイドでエラーは出ねェハズだぞ！」
インテリ「そう感じるのもモットモだね。でもこれは配列変数の「二重定義」になっちゃうんだ。」
ワンパク「？？？」
インテリ「たとえば、こう書くのはよくないって、なんとなく思うんじゃないかな？
0001#. ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（３１）＝１
0003#. ＤＩＭ ＡＰＰＬＥ（３００）
」0002#. ＡＰＰＬＥ（３１）＝１
0003#. ＤＩＭ ＡＰＰＬＥ（３００）
神崎「まあ……いちどナカミを１に決めたＡＰＰＬＥ（３１）が３行目でどうなっちゃうのか、不安になるね。」
インテリ「だから、プチコンでは同じ配列変数の名前で２度ＤＩＭするとエラーになるようになってるんだ。
そこでさっきのワンパク君だけど……」
そこでさっきのワンパク君だけど……」
ワンパク「オレは最初に……
」
0001#. ＤＩＭ ＡＰＰＬＥ（３２）
って書いてＲＵＮして、次に
0001#. ＤＩＭ ＡＰＰＬＥ（３００）
にしてＲＵＮしたが……、まさか、ソレか？」
インテリ「プログラムが終わっても変数の情報は消えないから、それでもエラーになっちゃうんだ。」
ワンパク「そんなコト言われてもどうすりゃいいってんだ！ これハマリじゃねえか！」
インテリ「だいじょうぶ。変数の情報が残ってるのがモンダイなんだから、これをリセットすればいいんだ。
0001#. ＣＬＥＡＲ
0002#. ＤＩＭ ＡＰＰＬＥ（３００）
」0002#. ＤＩＭ ＡＰＰＬＥ（３００）
神崎「インテリ君がかならず１行目に書いていた、CLEAR 命令だね！」
インテリ「日本語では「かたづける」と言えばいいかな。こう書くだけで、変数はぜんぶリセットされるんだ。」
ワンパク「めんどクセェことをはぶくとだ、プログラムにＤＩＭ命令を書くトキは、かならず前にＣＬＥＡＲを書いときゃいいってことだな？」
神崎「ワンパク君のまとめ方はランボウだけど、今回はボクもサンセイかな。」
インテリ「そうそう、ＣＬＥＡＲを使うならプログラムのはじめの方がオススメだってことも言っておかないとね。あんまり途中で使うと、ダイジな変数もいっしょにクリアされちゃうかもしれないよ。」
ワンパク「チッ、なにかとメンドウだぜ！
しかしまあワリと今回はジュウジツしたな。デカいヤマを乗りこえたって感じだゼ！」
しかしまあワリと今回はジュウジツしたな。デカいヤマを乗りこえたって感じだゼ！」
インテリ「あ、でもその前にもう１つ、おぼえておきたいコトが……」
ワンパク「マジでか。」
DATA命令・READ命令
インテリ「配列変数の説明に使ったこのプログラムだけど……
」
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＮＥＸＴ
いま見直しても、２～32行目がずいぶん長いって思うよね。0002#. ＡＰＰＬＥ（１）＝５６
0003#. ＡＰＰＬＥ（２）＝３２
0004#. ＡＰＰＬＥ（３）＝７１
#####. ：
0032#. ＡＰＰＬＥ（３１）＝４５
0033#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0034#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0035#. ＮＥＸＴ
」
神崎「でもコロンで２行や３行をまとめても、まだけっこう長いしなあ。」
インテリ「こういうデータをまとめたいときに役にたつのがDATA とREAD のコンビなのさ。
まずはＤＡＴＡの使い方を先に見てみよう！
まずはＤＡＴＡの使い方を先に見てみよう！
0002#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
」0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
神崎「ホントにデータって感じだね。」
ワンパク「やってるコトは「，」で区切りながらリンゴの数を順に並べてるだけ……みたいだな。」
神崎「リンゴの数の種類は全部で31。４行目だけ１つ飛び出してるけど、これはいいの？」
インテリ「ＤＡＴＡ文はかなり自由だから、１行に何個データがあってもいいんだ。２行目では10個、３行目も10個、４行目では11個。プログラムしていて見やすければそれが一番だと思うよ。」
ワンパク「だがイマんとこ、ただ数をズラッと書いてるだけじゃねえか！ ＤＡＴＡの使いミチにはほど遠いゼ！」
インテリ「そこがポイントだね。ＤＡＴＡ命令はそのままだと何のイミもないんだ。そこでＲＥＡＤ命令の出番になるよ。」
神崎「READ 、日本語で言えば「読む」だね。」
インテリ「いちばんカンタンなＲＥＡＤ命令の使いかたはこうかな。
」
0005#. ＲＥＡＤ ＡＰＰＬＥ
さっきのＤＡＴＡ文の後にこう書くと、最初のデータ５６が変数ＡＰＰＬＥに入るよ！」
ワンパク「31コあるデータなのに、入る数字は最初の１つだけかよ。どういうこった！」
インテリ「いくつもデータを読み込むなら、ＲＥＡＤのあとに変数を並べて書くね。今回使うのは配列変数だから……
」
0005#. ＲＥＡＤ ＡＰＰＬＥ（１），ＡＰＰＬＥ（２），ＡＰＰＬＥ（３）
0006#. ＲＥＡＤ ＡＰＰＬＥ（４），ＡＰＰＬＥ（５），ＡＰＰＬＥ（６）
#####. ：
こんなふうに10行ほど続けると全部のデータが読み込めるよ。0006#. ＲＥＡＤ ＡＰＰＬＥ（４），ＡＰＰＬＥ（５），ＡＰＰＬＥ（６）
#####. ：
」
ワンパク「ゼンゼン長ったらしいゼ、まだまだ使えたもんじゃねェな！」
神崎「あれ、待ってよ。配列変数っていうことは……？」
インテリ「そう、気がついたようだね。今のＲＥＡＤ文を短くまとめると、こうなるんだ。
0005#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
」0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
ワンパク「ココでもまたFOR～NEXTか……。オボエたての命令だが、ずいぶんアチコチで使うんだな。」
インテリ「特に配列変数やＲＥＡＤにはベンリな命令だからね。31行あった文が６行におさまったのはFOR～NEXT文のおかげだね。」
神崎「いままでのプログラムリストを全部書いてみると、こうなるね。
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
0005#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
0008#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0009#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0010#. ＮＥＸＴ
」0002#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0003#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0004#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
0005#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0006#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0007#. ＮＥＸＴ
0008#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0009#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0010#. ＮＥＸＴ
ワンパク「ウオォ、いつのまにか10行まで短くなってたのか！」
インテリ「５～10行目はかぶってるところがあるから、まとめちゃおう。
」
0001#. ＣＬＥＡＲ：ＤＩＭ ＡＰＰＬＥ（３２）
0002#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0003#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0004#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0005#. ＮＥＸＴ
0006#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0007#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0008#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
こんなふうにＤＡＴＡはプログラムリストのどこに置いてもいいんだよ。ＲＥＡＤすると自動的にリストの中で最初にあるデータをさがして順番に読みこむからね。0002#. ＦＯＲ ＤＡＹ＝１ ＴＯ ３１
0003#. ＲＥＡＤ ＡＰＰＬＥ（ＤＡＹ）
0004#. ＰＲＩＮＴ ＤＡＹ；”ニチメ リンコ゛”；ＡＰＰＬＥ（ＤＡＹ）；”コ”
0005#. ＮＥＸＴ
0006#. ＤＡＴＡ ５６，３２，７１，４０，６４，７３，６１，１０，４５，８０
0007#. ＤＡＴＡ ２５，７１，６３，５４，９８，２３，１４，６６，５８，４７
0008#. ＤＡＴＡ ９４，３６，３１，２６，４５，７１，２４，７６，６６，５８，４６
」
ワンパク「オイオイ、８行におさまっちまったぞ！」
インテリ「やっていることは同じでも、はじめのころの63行あったプログラムとくらべると、かなりコンパクトになったろう。」
ハカセ「あんまり短くしすぎると書いてる自分もこんがらがるので考えものじゃが、目で追えるていどならセイリしてまとめるのは良いことじゃな。こういうのもプログラムのひとつのダイゴミじゃ。」
神崎「あ、ハカセ。いつから……？」
ワンパク「ジジイの言うこともワカる気がするゼ。ケッキョク配列変数もFOR～NEXTもナシで書いた方がワカりやすさじゃイチバンなんじゃねえか？ とか思ったモンだが……」
インテリ「今までの話を全部だいなしにしそうな発言だね。」
ワンパク「しかし、BASICの命令をクシして、めんどクセェことをゼンブはぶいたのはロックだゼ！ オレのパンクスピリットにもウッタエるモノがあったな！」
ハカセ「ワカッてくれたようでうれしいのう。そんなパンクキッズのキミのために、次のサンプルプログラムはサウンドをフィーチャーしてみたぞい。」
ワンパク「やってやろうじゃねェかコノヤロー！ さっさと見せやがれェ！」
神崎「（なんだろうこのテンカイ……）」
- FOR～NEXT命令
- ＦＯＲ （変数）＝（最初の数） ＴＯ （終わる数）
ＮＥＸＴ
最初の数から始めて、変数を１ずつふやしながら、終わる数までＦＯＲ～ＮＥＸＴまでをくり返します。 - 配列変数
- Ａ（（数字））という形の変数が配列変数です。たとえばＡ（１）とＡ（２）はまったく別のものとして、違う数が中に入ります。
- DIM命令
- ＤＩＭ （変数）（（数））
配列変数に使う数を決める「配列宣言」をします。たとえばＤＩＭ Ａ（１０）ならＡ（０）～Ａ（９）まで10個の配列変数が用意されます。 - CLEAR命令
- ＣＬＥＡＲ
変数をリセットします。DIM命令の「二重定義」をしないために、プログラムのはじめのうちに使っておくのがいいでしょう。 - READ命令・DATA命令
- ＤＡＴＡ （データ），（データ），……
変数に入れるデータ（数字など）を「，」でくぎって連続で書くことができます。
ＲＥＡＤ （変数）
変数にＤＡＴＡ文で書いたデータを読みこみます。データはプログラムの中で先の方にあるものから順に呼びだされます。
