１２．繰り返し（５／３０）
前章の「比較」と同じくらいに重要な命令に「繰り返し命（ループ命令とも言う）令」というものがあります。
この命令は呼び名のごとく、プログラムの特定範囲を「指定した回数」又は「指定した条件が成り立つ間」繰り替えして動作をさせる機能です。
この命令をどのようなシチュエーションで使うのかといえば、例えば
「グループ化されたある情報を順番に検索し、条件に合う情報を見つけだす」という使い方があります。
また、「ある条件になるまで処理を繰り返す」というのも良く使う利用法です。
この繰り返し命令には「ＦＯＲ〜ＮＥＸＴ」「ＷＨＩＬＥ〜ＥＮＤＷＨＩＬＥ」「ＬＯＯＰ〜ＥＮＤＬＯＯＰ」という３種類が用意されていますが、今回は前２つの命令を説明します。
まずは「ＦＯＲ〜ＮＥＸＴ」が、この命令は指定の回数だけ繰り返す命令です。もう少し具体的に言うと、指定した変数をカウンタとして使い、指定した初期値からループを１周する毎にカウントアップ（又はカウントダウン）し指定した数値になるまで処理をループします。
「ＦＯＲ（発音＝フォア、日本語＝〜の間）」「ＴＯ（発音＝トゥ、日本語＝「ＦＯＲ〜ＴＯ〜」で「〜から〜の間」））」「ＳＴＥＰ（発音＝ステップ、日本語＝段階」）」「ＮＥＸＴ（発音＝ネクスト、日本語＝次へ）」という４つの命令で構成されます。
例えば、「１〜１０までの整数の合計を表示する」プログラムを作る場合
CH=G@SETUP(640,480,8,1)
G@FONT(0,0,0,3,"ＭＳゴシック")
B = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10
G@PRINT(CH,0,0,STR( B ))
LOOP
G@FLIP()
ENDLOOP
というプログラムが単純に考えられます。まあ、１〜１０という少ない数の計算ならばこれでも良いのでしょうが、例えば１〜１００００などという数になったらお手上げです。ここでＦＯＲ文の登場となります。
CH=G@SETUP(640,480,8,1)
G@FONT(0,0,0,3,"ＭＳゴシック")
FOR A = 1 TO 10
B = B + A
NEXT
G@PRINT(CH,0,0,STR( B ))
LOOP
G@FLIP()
ENDLOOP
このプログラムも１〜１０の合計を求めています。この処理の流れを順を追って説明します。
処理がＦＯＲ文まで来ると、ＦＯＲ文とＴＯ文の間で記述した「Ａ＝１」という代入文にしたがって変数Ａに１を代入します。この場合、変数Ａはカウンタの役目をし、１が初期値となります。
変数Ａの初期化後ＦＯＲ文の次の命令に処理が移ります。今回は「Ｂ＝Ｂ＋Ａ」という様に変数Ｂに変数Ａの内容を足して行きます。最初、変数Ａには１が入っているので加算後は変数Ｂに１が入っています。
ＮＥＸＴ文までプログラム処理が進んだら、カウンタである変数Ａに１を加えＴＯ文の次に指定した１０と比較し、（ 変数Ａ ≦ １０ ）が成り立つならばＦＯＲ文の次の命令に処理が戻ります。
今は変数Ａに１を入れたばかりなので、（ 変数Ａ ≦ １０ ）が成り立ちます。
２周目となる「Ｂ＝Ｂ＋Ａ」では、変数Ａには２が入っているので「Ｂ＝１＋２」で変数Ｂは３となります。
またＮＥＸＴ文までプログラム処理が進んだら比較をするという作業を繰り返します。
そして１０周目の時に変数Ａに１０が入っているので、ＮＥＸＴ文でのカウンタ更新で変数Ａは１１となり、（ 変数Ａ ≦ １０ ）が成り立たなくなります。成り立たなくなったらＮＥＸＴ文の次の命令に処理が戻ります。
これが「ＦＯＲ〜ＮＥＸＴ」の一連の処理手順です。補足ですが「ＦＯＲ〜ＮＥＸＴ」の繰り返しから抜けた時点では変数Ａには１１が入っている事を覚えておいてください。
最後になりますが、これまでの説明では「ＦＯＲ〜ＮＥＸＴ」を１周する毎にカウンタに１を加えてますが、カウンタに加える数値は変更する事が出来ます。それにはＳＴＥＰ文を使います。
例えばカウンタを２ずつ増やしたい場合は、ＴＯ文の後に「ＳＴＥＰ ２」という記述を追加してください。
CH=G@SETUP(640,480,8,1)
G@FONT(0,0,0,3,"ＭＳゴシック")
FOR A = 1 TO 10 STEP 2
B = B + A
NEXT
G@PRINT(CH,0,0,STR( B ))
LOOP
G@FLIP()
ENDLOOP
結果は、「１＋３＋５＋７＋９」の合計の２５になります。
また、カウンタを１ずつ減らしたい場合には、ＴＯ文の後に「ＳＴＥＰ −１」という記述を追加してください。
この場合、ＮＥＸＴ文での比較は（ 変数Ａ ≧ １０ ）となります。次のプログラムは１０〜１の加算を行います。
CH=G@SETUP(640,480,8,1)
G@FONT(0,0,0,3,"ＭＳゴシック")
FOR A = 10 TO 1 STEP -1
B = B + A
NEXT
G@PRINT(CH,0,0,STR( B ))
LOOP
G@FLIP()
ENDLOOP
次に「ＷＨＩＬＥ〜ＥＮＤＷＨＩＬＥ」ですが、この命令は指定の比較式が成り立つ間だけ繰り返す命令です。もう少し具体的に言うと、「ＷＨＩＬＥ〜ＥＮＤＷＨＩＬＥ」の繰り返しの最初でＷＨＩＬＥ文の次に書いた比較式を実行し、比較が成り立てば繰り返しの中を実行、比較が成り立たなければ繰り返しの中を実行せずにＥＮＤＷＨＩＬＥの次に処理を移します。
例えば、「１，２，３・・・と順番に数値を加算して行き合計が１００００を超えるた時に加算した値を表示する」プログラムを作る場合、
CH=G@SETUP(640,480,8,1)
G@FONT(0,0,0,3,"ＭＳゴシック")
WHILE B < 10000
A = A + 1
B = B + A
ENDWHILE
G@PRINT(CH,0,0,STR( A ))
LOOP
G@FLIP()
ENDLOOP
となります。WHILE文に最初に処理が来た時には変数Ａ、Ｂ共に０が入っているので、WHILE文に書いた「Ｂ＜１００００」は成り立ち「ＷＨＩＬＥ〜ＥＮＤＷＨＩＬＥ」の中に処理が移ります。
まず「Ａ＝Ａ＋１」で変数Ａに１を加えます。これは「１，２，３・・・と順番に数値を加算・・・」とする為に変数Ａを加算して行く値とし、毎回１ずつ大きくして行く為の処理です。最初変数Ａには０が入っているので、１周目の結果は変数Ａに１が入る事になります。
次の「Ｂ＝Ｂ＋Ａ」ですが、変数Ｂを合計した結果を入れる為に使い、１ずつ増えて行く（１，２，３・・・）値を加算して行きます。最初変数Ｂには０が入っているので、１周目の結果は「Ｂ＝０＋１」となり１が入る事になります。
２周目は変数Ａは２となり、変数Ｂは「Ｂ＝１＋２」で３が入ります。変数Ｂが１００００を超えるのは、まだまだ先なので説明を１００００を超える所まで飛ばします。１００００を超えるのは１４１周目になります。
１４１周目は変数Ａは１４１となり、変数Ｂは１４０周までの合計である９８７０に変数Ａを加算し１００１１となります。
ENDWHILE文までプログラム処理が進んだら、１４０周まで繰り返したと同じようにWHILE文に処理が戻り、「Ｂ＜１００００」の比較を実行します。今回は比較が成り立たない為、ＥＮＤＷＨＩＬＥ文の次に処理が移ります。
これが、一連の処理手順です。
ここまでで、繰り返し命令の説明を終えますが、なんとか理解できたでしょうか？
あと、ちょっとした事なのですが、繰り返し文でループするプログラムの部分をプログラムする時に、少し右にずらしてあげると、プログラムが見やすくなります。
FOR A = 1 TO 10
B = B + A
C = C + A
D = D + A
E = E + A
NEXT
と、書くよりも
FOR A = 1 TO 10
B = B + A
C = C + A
D = D + A
E = E + A
NEXT
と、書いた方が繰り返す範囲が分かりやすくありませんか？
