レッスン１１：繰り返し文：while文

繰り返す命令として、while文があります。このページでは、whileについて説明します。

目次

while

whileは、ある条件を満たしている間（ある条件を満たさなくなるまで）、処理を繰り返します。次のように書きます。

while、条件、doの前後の空白は、いくつ入れてもかまいません。また、複数の処理を繰り返したいときは、複数の処理をbeginとendで囲んでブロックにします。

例えば、

while x<10 do
  x:=x+1;

は、x<10である間、x:=x+1を実行します。x:=x+1によりxの値は１つずつ増えていき、いつかはxの値は10以上になりますので、whileの処理はいつかは終わります。しかし、

x:=9;
while x<10 do
  y:=y+1;

では、いつまでたっても、xの値が10以上になりませんので、y:=y+1の処理を永遠に続けてしまい（あるいはエラーを表示して異常終了したりします。）、正しくありません。whileの条件はいつかは満たされなくなることを確認しておきましょう。

例

次のようなプログラムをみてみましょう。

1. program kurikaeshi5;
2. var a,b:integer;
3. begin
4.   a:=5;
5.   b:=0;
6.   while a>0 do
7.   begin
8.      a:=a-1;
9.      b:=a+b;
10.   end;
11. end.

［注意］左端の番号は、プログラムの一部ではありません。各行を区別するために付けた番号です。

プログラム説明

6〜10行目のwhile文で、a>0の間、8行目と9行目を処理します。

最終的に、aとbの値がいくつになるか、予想してみてください。その予想が当たっているかを、下の動作確認で調べてください。

動作確認

それでは、上の例の動作確認をしてみましょう。また、プログラムを変更して、下の動作確認をしてみましょう。動作確認をする前に、Internet Explorerの設定をちゃんとしているか調べてください。

Pascalシミュレータによる動作確認
［注意］このリンク先のページはInternet Explore 3.0以降で正しく表示されます。

練習

whileに慣れるために、少し練習しましょう。

レッスン１２では？

コンピュータは、たくさんのデータを取り扱います。データを取り扱うにはそれぞれに対応した変数を用意します。しかし、これは手間がかかります。同じようなたくさんの変数を一度に用意する方法に配列があります。次のページでは、配列について説明します。

［レッスン１２へ］

このページの最終更新日は 99/03/20 です。
掲載責任者・ページ作成者： (c)板谷雄二(itaya@alice.asahi-u.ac.jp)