4-10 繰り返し処理 (6) ―whilewhileWhile 文の導入―

前のプログラムでは、何度もボタンボタンコマンドボタンを押していくとそのうち答えが求まります。でも、ボタンボタンコマンドボタンを1回押すだけで答えが求まるプログラムにしたいですね。

何回もボタンボタンコマンドボタンを押すことは、forforFor 文ででてきた「繰り返し」と呼ばれる操作 (作業) です。ですから、まずは forforFor 文を使ってボタンボタンコマンドボタンを1回押すだけのプログラムを考えてみましょう。プログラムは次のようになります。

procedure TForm1.ButtonCalcClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to              do
    begin
      SpinEditMinute.Value := SpinEditMinute.Value + 1;
      SpinEditBact.Value := SpinEditBact.Value * 2;
    end;
end;

Private Sub CommandCalc_Click()
  Dim i As Integer
  For i = 1 To         
    TextMinute.Text = TextMinute.Text + 1
    TextBact.Text = TextBact.Text * 2
  Next
End Sub

しかし、困りました。「何回繰り返すか」を指示する下線部に何と書いていのか、わからないのです。

procedure TForm1.ButtonCalcClick(Sender: TObject);
begin
  while SpinEditBact.Value < 10000 do
    begin
      SpinEditMinute.Value := SpinEditMinute.Value + 1;
      SpinEditBact.Value := SpinEditBact.Value * 2;
    end;
end;

Private Sub CommandCalc_Click()
  While TextBact.Text < 10000
    TextMinute.Text = TextMinute.Text + 1
    TextBact.Text = TextBact.Text * 2
  Wend
End Sub

while 条件 do
  begin
    繰り返し処理1;
    繰り返し処理2;
      ・
      ・
      ・
  end;

While 条件
  繰り返し処理1;
  繰り返し処理2;
    ・
    ・
    ・
Wend

条件によって処理が変わるという点で ififIf 文と whilewhileWhile 文は似ていますが、ififIf 文は条件が成立してもしなくても1回きり、whilewhileWhile 文は条件が成立している間何度でも繰り返す点が違います。

■C++Builder 画像■

while 条件 do
  begin
    繰り返し処理;
  end;

while 条件 do
  繰り返し処理;