第4章         制御命令

【学習内容とねらい】

　これまで学習したプログラムは、上から順番に１行ずつ処理を行うというものでした。これは処理の流れの基本形ですが、身の回りを見渡してみてもこれだけでは記述できない処理が多々あります。

例えば、銀行のＡＴＭを考えてみましょう。この場合、ＡＴＭはインプットした暗証番号が正しいかどうかを判定して、正しければお金の引き出し等に応じ、間違っていれば処理を中断するようになっています。つまりある条件の判定結果に応じて処理内容を分けている（分岐させている）訳です。このような処理を「分岐処理」と言います。さらに、インプットした暗証番号が正しくなかった場合、ATMは番号が間違っている旨のメッセージを表示した上で、操作をやり直すために最初の画面に戻します。これは、操作を何度か繰り返す、つまり「繰り返し処理」に当たります。

プログラミング言語にも、当然この「分岐処理」と「繰り返し処理」の命令が用意されています。これらの命令は、処理を分岐したり、元に戻したりというように処理の流れを制御するので「制御命令」と呼ばれています。本章では、この「制御命令」の使い方を学習します。

ところで、ある処理の論理的手順（・・を行ったあと、・・を実行する等のような手順）を「アルゴリズム」と言います（本来の数学的定義からすると少しあいまいですが、ここでは問題ではありません）。ある処理のプログラムを書くという作業は、そのアルゴリズムを考案・作成するということです。そしてどのような複雑なアルゴリズムでも、この「分岐処理」と「繰り返し処理」の組み合わせによって記述することができます。ですから、本章の学習を終えれば皆は、プログラミングの基本的な“表現能力”を身に付けることになります。その意味で本章はプログラミング学習の“メインイベント”と言えるでしょう。

なお、一般に、初学者は「分岐処理」は比較的理解できるが、「繰り返し処理」の理解につまずくことが多い、と言われています。本章の後半がそれに当たりますが、どうかじっくりと学習してこの“定説”をくつがえして下さい。

＜本章の構成＞

４−１　　分岐処理(1)−２分岐（if then〜else文）−

４−２　　分岐処理(2)−多分岐（if文の中のif文）−

４−３　　分岐処理(3)−２分岐の特殊な形（if then〜文）−

４−４　　分岐処理(4)−多分岐（case文）−

４−５　　繰り返し処理(1)−累乗−

４−６　　繰り返し処理(2)−for文の導入−

４−７　　繰り返し処理(3)−for文の流れの観察（デバッガ利用）

４−８　　繰り返し処理(4)−カウント用変数を使ったプログラム−

４−９　　繰り返し処理(5)−回数が定まっていない繰り返し−

４−１０　繰り返し処理(6)−while文の導入−

4-1 分岐処理 (1) ―２分岐（if then〜else〜文）―

以前、【基礎課題1-7-3】で、下のようなフォームのプログラムを作りました。


このプログラムでは、

1.       チェックされた項目の数を数える。

2.       その数に応じて、診断結果を出す。

という２つの部分が必要です。

今回、このプログラムに、2. の機能をつけ加えてみましょう。

1. については、今回は考えません。項目の数は自分で数えることにします。

【基礎課題 4-1-1】

このプログラムを新しい名前で保存してから、下のようなフォームのプログラムに作り替えて下さい。


主なコンポーネントのNameプロパティは、次のようにして下さい。

「チェック項目数」を入力してから「診断」ボタンを押したとき、

• チェック項目数が６以上のとき
• チェックボックス「6-10」をチェックする。
• メッセージ欄に「少しストレスがたまっています。気分転換を。」と表示する。
• チェック項目数が６以上ではないとき
• チェックボックス「0-5」をチェックする。
• メッセージ欄に「ストレスの兆候がありますが、心配は不要。」と表示する。

ようなプログラムを作りましょう。

ある条件が成り立っているか成り立っていないかによって行う内容が変わる場合には、「if文」を用いて表します。

「診断」ボタンをクリックしたときのイベントハンドラを、次のように書いて下さい。

注意　面倒でも、半角スペース２字分ずつの「字下げ」を必ず行って下さい。構造が見やすくなります。

この命令は、下のような構造になっています。

 if文は、条件が成り立っているか成り立っていないかによって、プログラムの流れを分岐させます。

条件は、

• 成り立つ
• 成り立たない

のどちらかしかありません。したがって、プログラムは、

• then以下の文
• else以下の文

のどちらかひとつを必ず実行し、かつ、いずれかひとつしか実行しません。

　Delphiでの不等号記号の書き方は右表の通りです。

注意　Delphiでは、代入の「：＝」と比較の「＝」を使い分けます。混同しやすいので注意してください。

【練習問題】

　上で学習したif分の使い方をもう少し練習してみましょう。

上のようなフォームを作り、「診察を希望する」チェックボックスがチェックされているかどうかによって

というメッセージが表示されるプログラムを作りましょう。「OK」ボタンのイベントハンドラを次のように書いて下さい。

procedure TForm1.ButtonOKClick(Sender: TObject);

begin

  if (CheckBoxDoctor.Checked = True)

    then

      begin

        Edit1.Text := '来週水曜正午から、公民館で健康診断が行われます。';

        Edit2.Text := '無料です。';

      end

    else

      begin

        Edit1.Text := 'ストレスを溜めない生活を心掛けましょう。';

        Edit2.Text := '体を大切に。';

      end

  ;

end;

　さて、if　（　　　 = True　）文では、= Trueを省略してもよいことになっています。　試しに = Trueを省略して実行してみましょう。うまく動きましたか？

【練習問題】

　【基礎課題4-1-1】のプログラムでも、= True　を省略して実行してみましょう。

【基礎課題 4-1-2】

次のようなフォームを持つプログラムを作って下さい。

主なコンポーネントのNameプロパティは、次のようにして下さい。

年齢を入力してから「入力完了」ボタンを押すと、　　　　　２つのメッセージが表示される。

年齢とメッセージの対応は、次の表にしたがってください。

下の下線部を埋めて、プログラムを完成させて下さい。

procedure TForm1.ButtonEnterClick(Sender: TObject);

begin

  if ((SpinEditOld.Value             ) = True)

    then

      begin

      end

    else

      begin

      end

  ;

【練習問題】

新しいコンポーネント「ラジオボタン」の使い方を覚えましょう。

コンポーネントパレットからラジオボタンのアイコンを選んで、フォーム上に3つ貼って下さい。

プログラムを実行する前に、以下の動作を確認してください。

１．  RadioButton1のChekedプロパティの値をTrueにして下さい。

２．  RadioButton2のChekedプロパティの値をTrueにして下さい。

３．  RadioButton1のCheckedプロパティの値を確認して下さい。TrueおよびFalseのどちらになっていますか？

次に、プログラムを実行して、ラジオボタンを自由にクリックして下さい。

ラジオボタンはどういうはたらきをするコンポーネントか、下に書いて下さい。

【基礎課題 4-1-3】

次のようなフォームを持つプログラムを作って下さい。

プログラムの動作内容は以下の通りです。　

実行してから性別をチェックしてボタンを押すと、下のように２つのメッセージが表示される。

チェック項目とメッセージの対応は、次の表にしたがって下さい。

【基礎課題 4-1-4】
次のようなフォームを持つプログラムを作って下さい。

主なコンポーネントのNameプロパティは、
次のようにして下さい。

プログラムの動作内容は次の通りです。

性別と年齢をチェックしてから「ＯＫ」ボタンを押すと、２つのメッセージが表示される。

性別・年齢の条件とメッセージの対応は、次の表にしたがってください。

注意　「女性で、かつ、１８歳以上」つまり、
「RadioButtonFがチェックされていて、かつ、CheckBoxAdultがチェックされている」
ことを、

(RadioButtonF.Checked = True)　

and　

(CheckBoxAdult.Checked = True)

のように　and　を用いて表します。

もちろん、先に学習した通り、= Trueを省略して

(RadioButtonf.Checked)　

and　

(CheckBoxAdult.Checked)

と書くこともできます。ここでは、= Trueを省略せずに見慣れた形のままにしておきます。

なお、and　の前後の条件式（論理式）には、(　)をつけることを忘れないで下さい。（これはDelphiが採用しているPASCAL言語の文法規則なのです。（ ）をつけ忘れるとエラーになります。）

それでは、下の下線部を埋めて、プログラムを完成させて下さい。

procedure TForm1.ButtonOKClick(Sender: TObject);

begin

  if ( (RadioButtonF.Checked = True)

        and

        (CheckBoxAdult.Checked = True) )

    then

      begin

      end

    else

      begin

      end

  ;

注意　「かつ」ではなく「または」を表したいときは、　or　を使います。

例　「女性、または、１８歳以上」のとき

(RadioButtonF.Checked = True)　

or　

(CheckBoxAdult.Checked = True)

【基礎課題 4-1-5】

次のようなフォームを持つプログラムを作って下さい。

主なコンポーネントのNameプロパティは、
次のようにして下さい。

スピンエディットには０〜９までの数しか入りません。それ以外の数を入力できないように、
MinValue プロパティと MaxValue プロパティの値を変更しておいて下さい。

ここで、プログラムを実行し、数を入力してからＯＫボタンを押したとき、

• 数が4以上7以下であれば、メッセージ欄に「２０１号室」と表示する。
• 数がそれ以外であれば、メッセージ欄に「５０１号室」と表示する。

ようなプログラムを作って下さい。

注意　スピンエディットに入力された値が４以上７以下であることを表すのに、

 (4 <= SpinEditNumber.Value <= 7)  = True

と書きたくなると思います。しかし、Delphiは、２つの不等号が同時に出てくる文を理解することができません。ですから、

( (4 <= SpinEditNumber.Value) = True )　

and　

( (SpinEditNumber.Value <= 7) = True )

のように、条件を二つの部分に分けてから　and　でつなげて書く必要があります。

【練習問題】

次のようなフォームを持つプログラムを作って下さい。

コンポーネントのNameプロパティは、次のようにして下さい。

０以上の数を入力してボタンを押すと、　　　　　０未満の数を入力してボタンを押すと、
「入力した数は０以上です。」と表示し、　　　　　「入力した数は０未満です。」と表示する。

「判定」ボタンを押したときの処理は、以下のように書くことができます。

procedure TForm1.ButtonHanteiClick(Sender: TObject);

begin

  if ( (SpinEditNumber.Value >= 0) = True　)

    then

      begin

        EditMessage.Text:=’入力した数は０以上です。’;

      end

    else

      begin

        EditMessage.Text:=’入力した数は０未満です。’;

      end

  ;

end;

しかし、　then　のあと、あるいは　else　のあとに、１つの処理しかしないときは、begin　と　end　を省略して、次のように書くこともできます。

procedure TForm1.ButtonHanteiClick(Sender: TObject);

begin

  if ( (SpinEditNumber.Value >= 0) = True　)

    then

      EditMessage.Text:=’入力した数は０以上です。’

    else

      EditMessage.Text:=’入力した数は０未満です。’

こっちはそのまま

セミコロンをつけない

  ;

end;

解説

·         begin　と　end　を省略した場合には、文末のセミコロンをつけてはいけません。

If文は

If　〜

then

　   処理１

else

　   処理２

； 

で一つの文なのです。そこで、例えば「処理１」の末尾に「；」をつけると,そこで文が終わってしまい、そのあとに「else」から新たに文が始まると認識されてしまいます。そしてそのような文はないのでエラーになってしまいます。

·         if文の終わりのセミコロンは、必要です。

注意　　市販のほとんどのテキストでは，処理文が1つの時には begin と end のない形を掲載しています。しかし、実際 のプログラミングの場面では、最初は処理文が1つでも、後に文を加えて複数の文になることがよくあります。その様な場合には再び　begin と end をつけ加えなければなりませんが、うっかり忘れてしまいやすいものです。そして、もし忘れるとエラーが発生したり思った通りの処理をしてくれなくなったりします。　そこで、処理する文が1つのときでも（　begin と end がついていてもエラーになるわけではないので）、begin とend を消さずに残しておくようにすることを勧めます。

4-2 分岐処理 (2) ―多分岐（if文の中のif文）―

以前つくったストレス度診断プログラムは、もともと、下の分類にしたがって４段階の診断をするものでした。このように、３つ以上の分岐がある場合の処理の仕方を学習しましょう。

【基礎課題 4-2-1】

【基礎課題4-1-1】のプログラムを新しい名前で保存してから、下のようなフォームのプログラムに作り替えて下さい。


主なコンポーネントのNameプロパティは、次のようにして下さい。

「診断」ボタンを押したときの処理の流れを以下のように考えて、プログラムを書くことにします。


下の空欄を補って、４段階の診断をするプログラムを完成させて下さい。

procedure TForm1.ButtonDiagClick(Sender: TObject);

begin

  if ((SpinEditSum.Value >= 6) = True)

    then

      begin

         if ((SpinEditSum.Value >= 9) = True)

           then

             begin

               EditMessage.Text:=’かなりストレスがたまっています。’;

             end

         　　else

           　　begin

               EditMessage.Text:=’少しストレスがたまっています。’;

           　　end

      end

    else

      begin

         if((SpinEditSum.Value >= 3) = True)

           then

             begin

               EditMessage.Text:=’ストレスの兆候があります。’;

             end

           else

             begin

               EditMessage.Text:=’正常です。’;

             end

      end

  ;

end;

【基礎課題 4-2-2】

テストの得点を入力してから「成績判定」ボタンを押すと、得点に対応して「優」「良」「可」「不可」の評価をする下のようなプログラムを作って下さい。


得点と成績の対応は、次の表にしたがって下さい。

また、成績に応じて、それぞれ内容の異なる一行メッセージを出すようにして下さい。
メッセージの内容は自由に考えて下さい。

「テストの得点」欄には100点満点のテストの得点を入力するものとします。スピンエディットのMaxValueプロパティとMinValueプロパティの値を変えておいて下さい。

【基礎課題 4-2-3】

【基礎課題 4-2-1】のプログラムのチェック数は、実は「3で割ったときの商」によってメッセージが決まっています。

したがって、予めチェック数を3で割って商を求めておくことによって、if 文をもっと簡単にすることができます。プログラムを次のように変更して下さい。

procedure TForm1.ButtonDiagClick(Sender: TObject);

var

  q: Integer;

begin

  q := SpinEditSum.Value div 3;

  if ((q >= 2) = True)

    then

      begin

        if ((q = 3) = True)

          then

            begin

            end

          else

            begin

            end

        ;

      end

    else

      begin

        if ((q = 1) = True)

          then

            begin

            end

          else

            begin

            end

        ;

      end

  ;

end;

※、上の枠内で「チェック数を３で割った商」qを求めています。商を求める「div」演算子については、3-9節【基礎課題3-9-1】にある説明を参照してください。

4-3 分岐処理 (3) ―２分岐の特殊な形（if then〜文）―

【練習問題】

下のようなフォームのプログラムを作って下さい。


主なコンポーネントのNameプロパティは、次のようにして下さい。

プログラムを実行して、「投票」ボタンを押したとき、

• もしチェックボックスがチェックされていれば、
• 「賛成票ありがとうございました」メッセージを表示し、
• 賛成者数を１人増やす。
• もしチェックボックスがチェックされていなければ、
• 何もしない。

ようなプログラムを作ります。

このプログラムの流れを図にすると、次のようになります。


プログラムは、次のように書きます。

解説

• 条件が成り立たない場合には何もしないので、elseのあとのbeginとendの間には、何も書きません。
• このような場合は、elseと、そのあとのbegin〜endを省略するのが普通です。
• ただし、if文の終わりの;は省略できません。

【基礎課題 4-3-1】

次のようなフォームをもつプログラムを作って下さい。

作成するプログラムは検索処理を模したプログラムです。ただし、現時点では残念ながら検索処理をプログラミングするができません。

キーワードを入力しないでボタンを押すと、「検索用キーワードを入力してください。」と警告し、　
 

キーワードを入力してボタンを押すと
何もしない。

Ø        このプログラムでは、一度警告メッセージが出てしまうと、それ以降は（例えキーワードを入力して［検索］ボタンを押しても）警告が消えてくれません。本来は、キーワードを入力してボタンを押すと、その警告は消えるべきですね。その改良については次章5-13で取り扱います。

4-4 分岐処理 (4) −多分岐（case文）−

if文は、

• 条件が成り立つ（then）
• 条件が成り立たない（else）

に応じて、プログラムの流れを２つに分岐させるものでした。

プログラムの流れを３つ以上に分けなければならないときは、4-2で学習したように、if文の中にさらにif文を書かなければなりません。その結果、プログラムの構造が複雑になってしまいました。

そこで、プログラムの流れを３つ以上に分ける場合に使うと便利な、case文の使い方を説明します。

【基礎課題 4-2-3】は、case文を使うと次のように書くことができます。

procedure TForm1.ButtonDiagClick(Sender: TObject);

var

  q: Integer;

begin

  q := SpinEditSum.Value div 3;

  Case (q) of

    3:

begin

	ｑ＝３　の時の処理

 

         end;

    2:

      begin

	ｑ＝２　の時の処理

 

         end;

    1:

      begin

	ｑ＝１　の時の処理

 

         end;

    0:

      begin

	ｑ＝０　の時の処理

 

end;

  end;

end;

さらにcase文では、次のように変数の範囲を直接指定することもできます。

procedure TForm1.ButtonDiagClick(Sender: TObject);

begin

  Case (SpinEditSum.Value) of

    9..10:

begin

	SpinEditSum.Valueの値が９〜１０の時の処理

 

         end;

    6..8:

      begin

	SpinEditSum.Valueの値が６〜８の時の処理

 

         end;

    3..5:

      begin

	SpinEditSum.Valueの値が３〜５の時の処理

 

         end;

    0..2:

      begin

	SpinEditSum.Valueの値が０〜２の時の処理

 

end;

  end;

end;

次ページに、case文の書式（記述の仕方）をまとめておきましょう。

＜　case文の書き方　＞

解説

• case　の後にくる変数は、これまでに学んだ型のなかでは、Integer型のみが許されます。値の「順序」がはっきりした変数でなければならないからです。
• 範囲を表すには、「6..8」のように、最小の値を先に、最大の値を後に書いて、間にピリオド「.」を２つ書きます。
• 範囲は上下の値が決まっていなければならないので、例えば「６以上」のような範囲の指定はできません。
• 変数の値の範囲は、コンピュータの能力の許す限りいくつでも書くことができます。
• 範囲はきちんと分類して、重複がないようにしなければなりません。
• 変数の値がある範囲のときの処理する命令が１つしかないときは、if文の時と同じように、beginとend;を省略することができます。しかし、省略しなくてもエラーがでるわけではないので、残しておく方がよいでしょう。

【基礎課題 4-4-1】

【基礎課題 4-2-1】を、case文を使って作り直してください。

【基礎課題 4-4-2】

【基礎課題 4-2-2】を、case文を使って作り直してください。

case文には、else　を使った特殊な例があります。一番下の「変数の値の範囲」を　else　と書いて、「今までに指定した範囲以外」という意味を表すことができます。

必要がない場合はelse文以下（　　　で囲まれた部分）を省略する事ができます。

【応用課題 4-4-A】

年齢を入力してからボタンを押すと、次の料金表にしたがって入場料金を表示するプログラムを、else　をともなったcase文を利用して作って下さい。

料金表

4-5 繰り返し処理 (1) ―累乗―

スーパーファミコンは 16 ビット、PlayStation は 32 ビット、NINTENDO 64 は 64 ビット、さらにはこのコンピュータのメモリは 64 MB あるいは 128 MB 等々、コンピュータ関係のもので出てくる数には決まった数が多いですね。これらの数は、2×2×2×…×2 の形で求められる、コンピュータにとって“きりのいい”数なのです。

【練習問題】

下の表を埋めましょう。

2×2×2×2×2 のように、ある数　a を b 個かけることを累乗といいます。

2×2×2×2×2 のことを、2を5個書く代わりに「2⁵」と書いて「2の5乗」と読みます。

【基礎課題　4-5-1】

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

注意 SpinEditNumber.Value の初期値を 1 にしておいてください。

次の空欄を埋めてプログラムを完成させて下さい。

procedure TForm1.ButtonDoubleClick(Sender: TObject);

begin

    SpinEditNumber.Value :=                         ;

end;

【練習問題】

このプログラムを使えば、2⁵ の値を調べたいときも「2倍」ボタンを5回押すだけで求められます。では、このプログラムをもっと改良して、ボタンを1度押すだけで 2⁵ が求められるようにできないでしょうか。

これはそれほど難しくありません。ボタンを押したときに今までの5回分の動作をすればよいのですから、

procedure TForm1.ButtonDoubleClick(Sender: TObject);

begin

  SpinEditNumber.Value := SpinEditNumber.Value * 2;

  SpinEditNumber.Value := SpinEditNumber.Value * 2;

  SpinEditNumber.Value := SpinEditNumber.Value * 2;

  SpinEditNumber.Value := SpinEditNumber.Value * 2;

  SpinEditNumber.Value := SpinEditNumber.Value * 2;

end;

となります。実行して動作を確認してみましょう。

【基礎課題 4-5-2】

ボタンを1度押すだけで 2¹⁵ が求められるよう、プログラムを改変して下さい。

procedure TForm1.ButtonDoubleClick(Sender: TObject);

begin

end;

4-6 繰り返し処理 (2) −for 文の導入―

【基礎課題 4-6-1】

まずはつぎのようにフォームを作ってください。

注意 SpinEditResult.Value を 1 にしておくのを忘れないようにしましょう。

このプログラムでは、「何回2倍するか」はプログラム実行後にユーザが決めるので、今までのようにプログラム実行前に

procedure TForm1.ButtonDoubleClick(Sender: TObject);

begin

  SpinEditResult.Value := SpinEditResult.Value * 2;

  SpinEditResult.Value := SpinEditResult.Value * 2;

  SpinEditResult.Value := SpinEditResult.Value * 2;

        　続く

  SpinEditResult.Value := SpinEditResult.Value * 2;

end;

とあらかじめ決まった回数だけ書いておくことはできません。

そこで、同じ動作を繰り返させる 「for 文」という命令を使います。プログラムを次のように書いてください。

実行して動作を確認しましょう。この for 文は、下のような構造になっています。

for文は通常、決まった回数の繰り返しに用います。下の左右のプログラムは全く同じ動作をします。

procedureTForm1.ButtonDoubleClick(Sender: TObject);

begin

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

  SpinEdit1.Value := SpinEdit1.Value * 2;

end;

procedure TForm1.ButtonDoubleClick(Sender: TObject);

var

  i: Integer;

begin

  fori := 1to15do

    begin

      SpinEdit1.Value := SpinEdit1.Value * 2;

    end;

end;

【基礎課題 4-6-2】

先ほどのプログラムを改変して、

【基礎課題 4-6-3】

かけ算は、足し算の繰り返しと考えることができます。例えば、２×５は、「２を足す」ということを５回繰り返すことです。

このように考えると、かけ算の記号「*」を使わずに、for文を使ってかけ算の答を求めることができます。

前のページのプログラムを改変して

【基礎課題 4-6-4】

ヒント　‘こら’という文字列を、指定回数だけ連結すれば良いのです。文字列の連結がよく分からない人は、3-11を参照してください。

4-7 繰り返し処理 (3)　―for文の流れの観察（デバッガ利用）―

【練習問題】

【基礎課題 4-6-1】で作った「2 の累乗」プログラムで「計算」ボタンを押したときのプログラムが動作する様子を1行ずつ順に追いかけてみましょう。

まずは、ボタンが押されたら一旦プログラムを止めるため、「ブレークポイント (“一時停止”の標識) 」をおきます。コードエディタの次の部分をクリックしてください。

すると、ブレークポイント (小さな赤丸) が現れます。

それでは実行してみましょう。下のように入力して「計算」ボタンを押すと…

ブレークポイントの隣に小さな緑の矢印が現れます。これは、「プログラムをここから再開します」という標識です。ここで、［Ｆ８］キーを押すと (または「実行」→「ステップ実行」を選ぶと)

プログラムが1行実行されて、緑の矢印が次の行に移ります。

以下同じ要領で［Ｆ８］を押すと、１行ずつ処理が実行され、指定した繰り返しの回数分の処理が終了すると、下の様に、緑色の矢印が最後の「end;」まで来るはずです。

ここで、Delphiのメニューから「実行」→「プログラムの終了」を選択してプログラムの実行を終了させましょう。

さて、今度は SpinEditResult.Value の値を確認しながら1行ずつ実行させてみましょう。

再び、プログラムを実行させて、下のような状態で「計算」ボタンを押しましょう。

すると、先ほど同様、緑の矢印が表れましたね。

ここで、マウスを使って、下のようにSpinEditResult.Value を選択してください (左ボタンを押しながら領域をなぞってください。左ボタンを離すと選択が完了します。）。

今選択した部分の上で右クリックするといくつかのメニューが現れるので、その中から次ページのように、「デバッグ」→「カーソル位置の単語を監視」を選びます

すると、「監視式一覧」というウィンドウが現れ、SpinEditResult.Value の値を常に表示してくれるようになります。

同様に、i の値も監視しましょう。

今は「参照できない値です。」と表示されていますが、「Ｆ８」を押していくとそのうち正しく表示されます。

このままどんどん「Ｆ８」を押し、SpinEditResult.Value と i の値の変化を調べて下の表を埋めましょう。

4-8 繰り返し処理 (4) ―カウント用変数を使ったプログラム―

i は何回目の繰り返しかを数える変数です。これを文法用語では「制御変数」と呼びますが、ここでは分かりやすく「カウント用変数（カウンタ）」と呼びましょう。begin〜 end の間を１回実行するたびに、iは１つずつ増えます。この性質を利用すると、自然数の和などを簡単に求めることができます

【基礎課題 4-8-1】

下のようなフォームのプログラムを作ってください

最初の値は「０」にしておいて下さい。

このプログラムで 1+2+3+4+5 を計算させて結果を表示させます。下線部を埋めてください。

procedure TForm1.ButtonCalcClick(Sender: TObject);

var

  i: Integer;

begin

  for i := 1 to 5 do

    begin

      SpinEditResult.Value := SpinEditResult.Value +        ;

    end;

 end;

	任意の数を指定できるようにする

 

【基礎課題 4-8-2】

【基礎課題 4-8-3】

【基礎課題 4-8-4】

【応用課題 4-8-A】

左のピラミッドは、1番上の段は石が 1²=1 個、上から2段目は 2²=4 個、上から3段目は 3²=9 個です。このピラミッドが5段になったときの石の個数を求めるプログラムを作って下さい。

また、このプログラムを改良して、

【応用課題 4-8-B】

右は、かけ算の九九表です。この全ての数の合計を求めるプログラムを作って下さい。

ヒント　例えば、１行目（１番上の横の並び）の和を求めることはすでにできるはずです。これに、２行目、３行目の和を順次加えて行けばよいのです。

すると・・・

最終的には「4-2　if文の中のif文」のように「for文の中のfor文」という形になるはずです。

これができたら大したもの！

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

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

この問題を解くため、

【基礎課題 4-9-1】

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

最初は「１」にしておきます。

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

procedure TForm1.ButtonCalcClick(Sender: TObject);

begin

  SpinEditMinute.Value :=                         ;

  SpinEditBact.Value :=                         ;

end;

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

　　　　　　　　分後

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

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

何回もボタンを押すことは、for 文ででてきた「繰り返し」と呼ばれる操作 (作業) です。ですから、まずは for 文を使ってボタンを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;

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

【練習問題】

for 文は、回数が決まっている繰り返しにしか使えないのです。回数が決まっていない繰り返しには、「while文」を使います。プログラムを次のように変更してください。

procedure TForm1.ButtonCalcClick(Sender: TObject);

begin

  while ( (SpinEditBact.Value < 10000) = True ) do

    begin

      SpinEditMinute.Value := SpinEditMinute.Value + 1;

      SpinEditBact.Value := SpinEditBact.Value * 2;

    end;

end;

※　上の記述でwhileにおける条件式の部分は、if文のときと同じく = True　を省略しても構いません。したがって、次のように書いても構いません。

while (SpinEditBact.Value < 10000)　

あるいは　

while SpinEditBact.Value < 10000

while 文は、「条件が成立している間は処理を繰り返す」という制御を行い、右のように書きます。

プログラムを実行して、結果を確かめてみましょう。ちゃんと「14分」という答が出ましたか?

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

＜if文＞

           　　　　　　　　　　　　　　　　　　　　　 ＜while文＞

【基礎課題 4-10-1】

1+2+3+4+… と足していくと、はじめて 10000 を超えるのはどこまで足したときでしょうか? プログラムを使って求めて下さい。(数列の和の公式は使わないで下さい。)

【応用課題 4-10-A】

1年間に 5% の利子がつく (つまり預金が 1.05 倍になる) 口座があります（今となっては夢のような利率ですが・・・）。この口座に10000円を預けておくと、何年後に30000円以上になるでしょうか? 右のようなプログラムを作って答を求めて下さい。

ヒント　端数の切り捨てにはTrunc( )を用いてください。　

例：　Trunc(1.3) →１、 Trunc(1.9)　→ 1、　等々。