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

またまた１ヶ月半の空白期間が経過してしまったが、代表的な初心者向け

プログラミングソフト・ＢＡＳＩＣの１つのヴァージョン、Ｑｕｉｃｋ　ＢＡＳＩＣ（クイッ

ク・ベーシック）の練習を続けよう。雨の夜にはちょうどいい♪

これまで書いて来た６本の記事は以下の通り。ほぼ完全に知識ゼロ、ソフト

も無い状態の初心者状態からスタートしてる。必要なら、過去記事に戻って

読むことをお勧めする。　

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

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

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

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

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

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

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

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

使用テキストは今まで同様、少し前の高校数学の教科書、数研出版『数学Ａ』

（１９９５年版）。教科書のままだと上手く行かないこともあるし、自分自身の勉

強にもならないので、マイナーチェンジや試行錯誤を繰り返すことになる。この

教科書を一通り終わらせるまで、あと記事３本くらいだろう。。

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

まずは前回の復習も兼ねて、教科書ｐ．１８１の問５から始めよう。ｎ個の異な

るものからｒ個取り出して並べる順列（Ｐｅｒｍｕｔａｔｉｏｎ）の総数、ｎＰｒの計算。

ただし、ｎとｒは後から数値を代入。また、「ＦＯＲ　～　ＴＯ　～　ＳＴＥＰ　－１」

の構文を用いてループ（繰返し）を作る。ｎ×（ｎ－１）×・・・×（ｎ－ｒ＋１）の掛

け算を、左から、つまり大きい順に実行させるわけだ。

　まずｎとｒを入

　力させる形を作

　る。次に、順列

　ｎＰｒの初期値

　は１と設定して、

　ｎからｎ－ｒ＋１

　まで順に掛け合

　わせて行く。

　　実行して、指示に応じてｎとｒの値を５、３と代入す

　　ると、確かに正しい答が表示（ＰＲＩＮＴ）された。

　　5 Ｐ 3＝５×４×３＝６０だ。

　　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

続いて、新しい話の「二重ループ」を使う問題。ＦＯＲ文とＮＥＸＴ文で作るループ

（繰返し）を二重に使うことになる。普通の数学なら、大きく場合分けした中で、 

さらに小さく場合分けするようなものだ。「（１）その１，その２，・・・、（２）その１，

その２，・・・」といった感じ。

適当なアレンジを思い付かないので、ここでは教科書ｐ．１８０の例２０、掛け算 

の九九（くく）の表を作る問題を、ほぼそのまま使ってみよう。ただし、ＲＥＭ文

（注釈）を少し簡単にしたし、元の変数がなぜかＫとＪになってたからａとｂへと

変更した。

　１の段（横の列）

　は、ａ＝１に対し

　て、ｂ＝１，２，

　・・・，９を順に

　掛けて、Ｘとし

　て出力する。

　次にａ＝２，３，

　・・・，９と変化

させる。まず、ａで大きなループを作り、それぞれの中でｂの小さなループを作る

から、入れ子状の二重ループとなる。

ＦＯＲとＮＥＸＴで挟む部分の先頭は１マス空けて分かりやすくするから、中盤で

ｂを変化させる箇所では先頭が２マス空いてる。５０行目は、１ケタの値を表示

　　する時、直前に半角スペー 

　　スを入れて、表の縦の列を 

　　揃えるためのもの。８０行

　　目は、１の段、２の段など

　　の改行を入れるためのものだ。

実行すると、確かにキレイな表になる。

　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

すぐ下の問６では、３０行目の右側の「ｂ＝１　ＴＯ　９」を「ｂ＝１　ＴＯ　ａ」へと

　　修正したらどうなるか、と

　　いう問題。

　　予想通り、九九の表の

　　右上が消えた三角形の表

になった。１の段が１×１まで、２の段が２×２までで終わるから、半分ちょっと

になるのだ。掛け算の交換法則を前提とするなら、九九の表は一応これで間

に合う。１の段から消えた１×２の代わりに、２の段の２×１を見ればいい。小

学２年生は喜ばないだろうが♪

　　なお、この九九の表のプログラ

　　ムだと行の名前が１００番まで

　　到達する。３ケタは珍しいし１０

　　行目だから、うっかり１０番と入

　　力したら、「Ｄｕｐｌｉｃａｔｅ　ｌａｂｅｌ」

（重複ラベル）というエラー表示が出た。このくらい、自動で修正してくれても

いいと思うのは、人間のワガママか♪

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

続いて、流れ図（フローチャート）の書き方。これはそもそも、プログラムと違っ

て人間用のものだから、流れの筋道がある程度わかればいいはずだ。少し自

由度が大きいし、プログラムとの１対１の対応関係がある訳ではない。おまけ

に技術や特殊なソフトを持ってない私の場合、ノートに手書きすることになる。

　　まず、今回の最初のプログラム

　　で、順列ｎＰｒを求める流れ図か

　　ら。本来は流れ図を先に書い

　　て、それを参照しながらプログ 

　　ラミングするのだが、初体験の

　　私の場合、プログラムを見な

　　がら流れ図を書いた♪

　　世界に通じる図を意識して、

　　日本語なしで書いてみたが、

　　教科書では日本語を使って

　　る（他の問題）。赤字は単な

　　る記事用の補足説明。

　　はじめと終わりは、両端が 

丸い長方形みたいな枠。キーボード入力は台形の枠。コンピューター処理は

普通の長方形。条件判断は菱（ひし）形で、ＹＥＳとＮＯで２つの道に分岐する。

図を見ると、「ループ」（輪）という用語の意味が一目瞭然だろう。モニター（画

面）への表示はなぜか、左向きの弾丸の形の枠組となってる。左向きの矢印

は、変数記号への代入を表す。

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆　　　　

　　最後は、九九の表を作る流れ図。

　　ここでは、半角スペースを入れる

　　処理（図ではＳＰＡＣＥ）と、改行の

　　処理（ＬＩＮＥ　ＦＥＥＤ）を使うことに

　　なる。「二重ループ」という用語の

　　意味も一目瞭然だ。

　　それにしても、やはりプログラム

　　より流れ図の方が面倒だと感じ

　　てしまう♪　流れ図というものは、

　　もっと大まかにザックリ書かない

　　と実用性がないような気がする。

　　それとも、慣れの問題だろうか。

　　ともあれ、今日はこの辺で。。☆彡

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

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

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（計　２５４７字）