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

また、あっと言う間に１ヶ月半の空白期間が経過してしまったが、代表的な

初心者向けソフト・ＢＡＳＩＣの１つのヴァージョン、Ｑｕｉｃｋ　ＢＡＳＩＣ（クイック・

ベーシック）の練習を続けよう。

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

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

読むことをお勧めする。　

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

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

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

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

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

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

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

前回のトラブルで、消えてしまった昔のファイルはそのままになってるが、ソフ

ト自体は発見できた。今回の使用でも、別に問題は無かったから、壊れてない

感じだ。

ただし、ファイルの保存作業がおかしくなって、保存と再利用（「開く」）は出来

るのに、なぜかＰＣ内で発見できない。普通のエクスプローラーの設定をどう

変えても、ファイルが表示されないままになってる。 まあ、あまり気にしないこ

とにしよう。

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

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

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

とになる。

念のために注意しとくと、やはり特殊な世界で、何が起こるか予想できない

ので、、ＰＣ内のデータのバックアップは行っておく必要があると思う。その辺

り、リスク・テイクやリスク管理はあくまで自己責任ということで、悪しからず

ご了承を。ちなみに私はこれまで、このベーシックの保存ファイルが消えた

だけで、他の実害は残ってない。

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

では、前回の続きということで、再び教科書ｐ．１７７～の「条件判断」、「ＩＦ文」

から。「ＩＦ　～　ＴＨＥＮ　・・・」という構文で、条件（～）つきの動作（・・・）をプロ

グラミングする話だ。「もし～なら、その時は・・・」ということ。これを使えば、前

回生じたような暴走トラブルも防げる。

　最初の問題はｐ．１７８

　の練習２１。前ページ

　の例（１～５０の自然数

　の表示）を修正して、

　１～９９の奇数を表示

　させるプログラムを作

　成する。

最初の第１０行は、コンピューターにとっては不要だけど、人間にとって分か

りやすくするための、ＲＥＭ文。リマーク（ｒｅｍａｒｋ：注釈）として、「１，３，５，，，」

を表示させると宣言してるわけだ。第２０行の「Ｎ＝－１」からスタートして、第３０

行の「Ｎ＝Ｎ＋２」という特殊な式で、今までのＮに２を加えて新たなＮとする操

作を指示。第４０行で、Ｎを表示。ただし、２を足した後のＮだから、最初に表示

されるのは－１ではなく、１になる。

そして、問題のＩＦ文が第５０行、「ＩＦ　Ｎ＜＝９７　ＴＨＥＮ　３０」。もしＮが９７以

下なら第３０行に戻って繰り返せ、と命令する条件つき命令文だ。「以下」の記

　　号は、「＜＝」か「＝＜」。つまり、不

　　等号と等号の連続で表す。教科書

　　の例に素直に従うなら、「Ｎ＜９９」

　　と書く所だけど、勉強のためにあえ

　　て、「Ｎ＜＝９７」と変更。「ＴＨＥＮ」

　　の次に書くべき「ＧＯＴＯ」は省略

　　可能だから、書いてない。

　　実は最初、４０行の右端に「；」を

　　入れ忘れてたので、実行すると、

　　画面では５５から９９まで縦に表

　　示された。５３以下は見えない。

画面が小さくて、大きくできないようになってるし、スクロールやカーソル移動

もできないのだ。どんなキーを押しても、元のプログラムの画面に戻るだけ。

　４０行を修正す

　ると、左のよう

　に縦横に数字が

　並んだ（右側は

省略）。横の並びが長過ぎるから、適当な長さで折り返したいけど、まだその

方法は不明。次回、扱う予定の「２重ループ」というものを使うしかないのか。。

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

続いて、練習２２。あらかじめ用意されてる「組み込み関数」の１つ、絶対値計

算関数ＡＢＳ（Ｘ）を使わずに、ａ－ｂの絶対値を計算するプログラムの作成。

ちなみに「絶対値」は英語で「ａｂｓｏｌｕｔｅ　ｖａｌｕｅ」だから、先頭の３文字を取っ

て「ＡＢＳ」などと略す。

教科書で直前に書かれた例１７（ａ、ｂ、ｃを３辺とする三角形が存在するかど

うかの判定）を参考にブログラミングすると、計算は上手く出来たけど、結果

の黒い画面から元の画面に戻れなくなってしまった。いつまでも入力を要求

されてしまったので、仕方なくソフトを終了して再起動。　　　

　修正したのが、次

　のプログラムで、

　これは上手く行っ

　た。前のものは、

　６０と８０が「ＧＯ

　ＴＯ　２０」となっ

　てたから、無限に

　ａとｂの値の入力

を要求されてしまったのだ。

　　実行結果は、左の通り。

　　　　（絶対値５－３）＝２

　　　　（絶対値１－７）＝６

　　確かに正しい絶対値計算が２種類、

　　表示されてる。ただし、１回計算する

　　ごとに元のプログラムの画面に戻って

再スタートすることになる。

　　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

続いて、新しい話に向かおう。教科書ｐ．１７９からの「ＦＯＲ 文」と「ＮＥＸＴ 文」。

これまでは ＩＦ 文を使って、繰返し部分（「ループ」）を書いてたが、他の書き方、

他の繰り返し処理も勉強しようという話だ。慣れれば、ＦＯＲ 文とＮＥＸＴ 文を使

うと便利で分かりやすいのかも知れない。

教科書ではまず、１～９９の奇数の２乗の和を例にしてるから、ここでは２～８ 

の偶数の２乗の和で考えてみよう。つまり、２²＋４²＋６²＋８²の計算で、答は

１２０になるはず。

　　先に、今までのＩＦ 文で

　　書いてみる。偶数Ｎと和

　　Ｓ、２つの変数が少しず

　　つ変化していくから、や

　　や分かりにくい。

　　要するに、Ｓ＝０、Ｎ＝２、

Ｓ＝２²＝４、Ｎ＝４、Ｓ＝４＋４²＝２０、Ｎ＝６、Ｓ＝２０＋６²＝５６、Ｎ＝８、

　　Ｓ＝５６＋８²＝１２０、と計算して、次のＮは１０

　　だから無視して終了。答は単に、Ｓ＝１２０と出

　　力するわけだ。ソフト的には一応、Ｎは１０

まで変化させてるはずだけど、出力（プリント）はＳのみだから、関係ない。

ちなみに「Ｓ」は、「和」を表す英語「ｓｕｍ」の頭文字。

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆　　　　

　一方、「ＦＯＲ 文」と

　「ＮＥＸＴ 文」を使うと

　左のようになる。

　まず２０行目。「ＦＯＲ

　　ＴＯ　」の形で、「２

　　から８まで２ずつ増える

変数Ｎに対して」計算することを指定。３０行目で和ＳにＮ²を加えて、４０行目

で「ＮＥＸＴ　Ｎ」、つまり「次のＮ」に進んでＳを計算し直すことになる。この場

合、ループ（繰返し）する計算箇所は３０行目だから、そこだけ１マス右側に 

下げて書くと分かりやすいという話だ。

その１マス下げる書き方を使って、最後に教科書の例１８、自然数Ｎの階乗 

Ｎ！を求めるプログラムを書いとこう。教科書では、Ｎ（エヌ）の小文字と大文

字が混在してるので、ここでは大文字に統一する。他にも、勉強のために、

教科書とは色々と変えてある。第１０行の注釈文、２０行と３０行の入れ替え、

入力の仕方、文字。

　　Ｎ！＝１×２×・・・×Ｎだから、

　　掛け算、つまり積を求める計

　　算になる。「積」は英語で

　　「ｐｒｏｄｕｃｔ」だから、頭文字Ｐ

　　で表してある。要するに、１に

　　２を掛けて、３を掛けて、４を

　　掛けて・・・という単純な掛け算

の繰返しを続けて、積をＮ！まで変化させてるわけだ。

ＦＯＲ 文とＮＥＸＴ 文に挟まれた第５０行だけ、先頭を１マス右側に下げて

ある。ループが１行だけの簡単なプログラムだと、あまり意味はないけど、

　　ループが複数行とか複数回ある複雑なプロ

　　グラムなら分かりやすいだろう。実行画面

　　で、要求に従ってＮ＝４を代入すると、

４！＝１×２×３×４だから、４！＝２４と表示される。

なお、今週は計１９１０４字となった。それでは、今回はこの辺で。。☆彡

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

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

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

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（計　３３９１字）