Ｑｕｉｃｋ ＢＡＳＩＣの練習（６）～ＤＩＭ文と配列変数（添字つき変数）

時間も残り字数も少ない、年の瀬の週末。１ヶ月ぶりにプログラミングで簡単

な記事を書いて済ませようと思ったら、失敗してしまった。久々に、ソフトがフ

リーズ（異常停止）したし、練習問題の完全な解答もまだ出来てない。それで

も、「配列変数」その他、今までに出てない領域に踏み込んだのは確かだか

ら、クイック・ベーシックの６本目の記事としてアップしとこう。

これまでのプログラミング記事７本（２本＋５本）は以下の通り。ほぼ完全に

知識ゼロ、ソフトも無い状態の初心者状態からスタート。必要なら過去記事

に戻って読むことをお勧めする。　

　　初めてのプログラミング♪

　　　　　　　　　　　　　　～メモ帳でバッチファイル作成（コマンドプロンプト用）

　　初めてのプログラミング（２）～計算その他、簡単なバッチファイル

　　　　・・・・・・・・・・・・・・・・・・・・

　　Ｑｕｉｃｋ　ＢＡＳＩＣのダウンロード、ダイレクトモード（Ｉｍｍｅｄｉａｔｅ）入力と計算

　　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（２）～プログラム・モードでの入力＆実行

　　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（３）～ＲＥＭ 文、ＧＯＴＯ 文、ＩＦ 文、各種トラブル・・

　　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（４）～ＩＦ文、ＦＯＲ文、ＮＥＸＴ文とループ（繰返し）

　　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（５）～二重ループ、流れ図（フローチャート）

テキストは高校数学の教科書、数研出版『数学Ａ』（１９９５年版）。教科書のま

まだと上手く行かないこともあるし、勉強にもならないので、マイナーチェンジ

や試行錯誤を繰り返すことになる。

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

では、新しい要素の「配列変数」（ａｒｒａｙ　ｖａｒｉａｂｌｅ）。簡単に言うと、高校数学

以上で出て来る、添え字付きの変数のことだ。Ｘ₁、Ｘ₂とか、Ａｎとか、右側に

０以上（または１以上）の整数を付けることで、グループ分けした変数。プロ

グラミングの場合、小さい添字の代わりにカッコを使って、Ｘ（２）、Ａ（Ｉ）のよう

に表現する。

変数の数が少なければ、単にアルファベットを多用する方が簡単だけど、変

数が大量にある時に困るし、「ｋ番目の変数」というような指定もできない。配

列変数を使うと、ＡさんとＢさんの２回ずつの点数を、Ａ₁、Ａ₂、Ｂ₁、Ｂ₂と

表すことも出来るし、実用的なのだ。

では、教科書ｐ．１８８の例を少し変えたプログラムから。

まず、Ｄｉｍｅｎｓｉｏｎ（次元）の略語「ＤＩＭ」を使って、配列変数Ａ（０）～Ａ（３）を

用意。一番大きな数のもの、つまりＡ（３）だけ書く。それぞれの値を２、４、６、

８と決めた後、似て非なるものとして、Ａ０～Ａ３も用意（それぞれ、１、３、５、７）。

こちらを先に、そのままプリント（表示）した後、ＦＯＲ～ＮＥＸＴ構文で、配列変

数をプリントさせる。

　　実行（ＲＵＮ）の結果は左の通り。下

　　段がＡ（０）～Ａ（３）で、これだけの事

　　なら配列変数を使う意味は無い。た

　　だ、書き方や扱いが違うわけだ。

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

続いてｐ．１８９の例３。さいころを何度か投げて、１～６の目がそれぞれ何回

出たか、カウントするプログラム。メモ用紙に手書きした方が早いが、勉強の

ためだ。

　配列変数は

　Ｘ（１）～Ｘ（６）。

　出た目をＡとし

　て入力、Ｘ（Ａ）

　が１ずつ増えて

　行く。３が出れ

　ば、３の回数を

　示すＸ（３）が１

　増える。ＧＯＴＯ

文で第３０行に戻って、次の目を入力。最後は０を入力して、ＩＦ～ＴＨＥＮ構文

で第８０行にジャンプ、さいころ投げ終了。各目の回数が表示される。

　　左は「３、５、５、２、４、４」と出たと仮定した

　　場合。確かに、１は０回、２は１回、３は１回、

　　４は２回、５は２回、６は０回と表示された。

　　これを「Ｘ（１）は０、Ｘ（２）は１・・・」という表

　　示にする方法は、まだ発見できてない。

　　「ＰＲＩＮＴ　”Ｘ（Ｉ）”」とプログラミングすると、

　　「Ｘ（Ｉ）」と表示されてしまうのだ。クリスマス

　　後に再チャレンジの予定。

（☆追記：　各配列変数の初期値は、設定しなくても自動的に０となるらしい。）

　　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

最後に、まだ苦戦中のｐ１９０、問９。ある集団の人達の年齢を入力して、年代

別に分けるプログラムを作れという問題だけど、自然数÷自然数の商を求める

関数が使えない環境なので（￥マークが使用不能）、不利な状況。３７￥１０＝３

で３０代とか出来ない。

とりあえず今日は、「２０歳以上の成人と未成年者を分けてカウントするプログ

ラム」を書くだけで終わりにしとこう。

配列変数は未成年者（０歳以上　ＡＮＤ　２０歳未満）がＸ（０）、成人がＸ（１）。

ＲＥＭ文（説明書き）に続いて、第２０行で「ＤＩＭ　Ｘ（１）」とだけ書いて設定。

２つの条件を「ＡＮＤ（かつ）」でつないだのは初めてだし、数Ａの教科書には

見当たらない。「２００」歳入力で終了。

　　８、１５、２２、３５、４８と年齢を入力

　　すると、「区分０は２人　区分１は

　　３人」と出力される。これを「Ｘ（０）

　　は」とか「未成年者は」などと表示

　　させるのが、残された課題。色々

　　と試してるとフリーズしたのだ。

　　それでは今日はこの辺で ☆彡

ｃｆ．　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（７）～関数値の計算、方程式の近似値

　　　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（８）～素数の判別、エラトステネスのふるい

　　　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（９）～数列の二項間漸化式と固有値、一般項

　　　　　　　　　　　　　　　　　　　　　　　　　　（追記　１０４字　；　計　２１５１字）