Top > WHILE WHILEループ文WHILEループ文を使うと、条件を満たしている間はいくつかの行を、繰り返し実行します。 WHILEループ文は以下のように書きます。 WHILE 条件式 DO 文; 例 PROCEDURE TEST; VAR i:INTEGER; BEGIN i:=0; {iを初期化する} WHILEi<=10 DO { i が10以下ならループを続け、文を実行する} i:=i+1; {iに1を加える} END; Run(TEST); FORループ文に似ていますが、ループの打ち切りに回数ではなく条件式を使っている点が違います。 PROCEDURE TEST; VAR i:INTEGER; BEGIN i:=0; {iを初期化する} FOR i:=5 TO 10 DO WHILEi<=10 DO { i が10以下ならループを続け、文を実行する} BEGIN Writeln(i); i:=i+1; {iに1を加える} END; END; Run(TEST); [グループ内での注意] PROCEDURE TEST; VAR i:INTEGER; BEGIN i:=0; {iを初期化する} WHILEi<=10 DO { i が10以下ならループを続け、文を実行する} BEGIN Writeln(i); END; END; Run(TEST); iの値を加算していないので、iの値はいつまでも0のままです。 |