繰り返し(2)；Do文→条件による繰り返し

・Do-Loop Until文；同じようなことを繰り返したい場合で、回数の指定ではなく条件によって繰り返す
・For文を使わずわざわざDo文で書いてみよう（1+2+3+...）
・年齢計算プログラムにおいて、非常識な入力ならば、再入力させよう

・Do...Loop文には様々な書式があります（※参考ページ）が、ここでは、『Do-Loop Until』のみを覚えよう！

○Do-Loop Until

• 繰り返しつまりループのための命令として、For文を勉強した。
  For文は予め繰り返す回数が決まっている場合に非常に有効なループである。
• しかし、予め繰り返す回数が決まっておらず、ループしたい場合もある。
• このような時に使う命令の一つが、Do文である。
• Do文はいくつか（四種類）の使い方があるが、ここでは、
  Do-Loop Until という使い方を中心に勉強しよう（P169形式２）。

• Do-Loop Until の使い方

  • Do-Loop Untilは次のように書く
    　
  • Do
　繰り返す処理のブロック
Loop Until 条件式
    　
  • 最初の「Do」行にはこれ以外は書いてはいけない。
  • 「繰り返す処理のブロック」は通常のブロックと同様に何を書いてもよい。
  • 条件式は、If文の条件式と同じように書く。
    • 勿論、And や Or などでいくつもの条件を組み合わせてもよい
  • Do-Loop Untilは次のように動作する。
  • まず繰り返す処理のブロックが実行される。
  • 次にLoop Unitil　の後ろに記述された「条件式」が実行（評価）される。
  • もし、条件式が正しければ、次の行が実行されるが、
    もし、条件式が正しくなければ（False／偽）であれば、Do文に戻って
    繰り返す処理のブロックが実行される。
  • つまり、条件が正しくなるまで繰り返し処理されることになる。
  • 具体的な例を見てみよう。
  
  

  s = 0
  n = 0
  Do
    n = n + 1
    s = s + n
  Loop Until n >= 10

  • 上記プログラムでは、1+2+,,,+10という計算をするプログラムで、実際にはFor文を使って書いた方がスマートな例である。
  • For文ではカウンタ変数があり、繰り返す度に１づつ増やしてくれていたが、Do文ではそのような余計なことは一切しない。
  • よって、上記のように繰り返す回数が必要な場合は、自分でプログラムしなければならない。
  • 次の具体的な例は、入力された数が異常な場合には入力を繰り返させる例である。

  Do
    u = Val( InputBox( "あなたの生まれた年を入力してください" ) )
  Loop Until u <= 2009

• このプログラムでは、2345年などを入力すると、再度入力が催促されることになる。
  つまり これによって、未来に生まれた人の年齢は計算されずに済む。

○Doループを使った例；

• グラフィックメソッドとDoループを組み合わせて使ってみよう。
• 画面（Formウィンドウ）の最左上に直径４０（半径２０）の円を描いてみる。
  DrawEllipse( Pens.Black, 0, 0, 40, 40)
• 次に、次々とこの隣（右）に円を描かせてみよう。つまり、次の円の始点（左上）は、(1, 0)である。
• そして、画面（Formウィンドウ）の最右(Size.Width-1, 0)まで次々と描かせてみよう。
  もし、For文を使って書くとすると、次のようになるが、For文ではなく、Do文で書いてみること！
  　

• Dim grph As System.Drawing.Graphics = Me.CreateGraphics
  Dim x
  For x = 0 To Size.Width-1
      grph.DrawEllipse( Pens.Black, x, 0, 40, 40 )
  Next x
  

○Do文とFor文の違い

• For文は予め繰り返す回数が分かっている場合に使うが、Do文は回数が分かっていない場合に非常に有効である。
• 観覧車を乗るのに、あらかじめ乗る回数を決めておくのに対して、例えば気持ち悪くなるまで繰り返し乗り続ける、といった感じである。

キーワード；
「Doステートメントによる処理の繰り返し」

[「Ｃ班」プログラミング基礎のTopに戻る]