4-9 繰り返し処理 (5) ―回数が定まっていない繰り返し―

1分間で2個に分裂するバクテリアが、今1個あります。このバクテリアが10000個以上になるのは何分後でしょうか。

まずは次のようにフォームにコンポーネントコンポーネントコントロールを配置してください。

■C++Builder 画像■

コンポーネントコンポーネントコントロール	Name
上のスピンエディットスピンエディットテキストボックス	■C++Builder 文■SpinEditMinuteTextMinute
中のスピンエディットスピンエディットテキストボックス	■C++Builder 文■SpinEditBactTextBact
下のボタンボタンコマンドボタン	■C++Builder 文■ButtonCalcCommandCalc

ボタンボタンコマンドボタンを押したときの動作をプログラミングします。下線部には何が入りますか?

■C++Builder block■

procedure TForm1.ButtonCalcClick(Sender: TObject);
begin
  SpinEditMinute.Value :=              ;
  SpinEditBact.Value :=              ;
end;

Private Sub CommandCalc_Click()
  TextMinute.Text =                 
  TextBact.Text =                 
End Sub

また、バクテリアが10000個以上になるのは何分後でしょうか?

　　　　　　分後

■C++Builder 画像■	「1分だけ経過」ボタンを押すと
■C++Builder 画像■	1分経過してバクテリアが2倍になり、さらに「1分だけ経過」ボタンを押していくと
■C++Builder 画像■	バクテリアがどんどん増えていき、いつかは10000個を越える、というプログラムを作ります。