FORループ文を使うと、いくつかの行を一定の回数だけ繰り返させることができる。 FORループ文は以下のように書きます。 FOR 変数:=初期値 TO 終了値 DO 文; ※変数は INTEGER型でなければいけません。 PROCEDURE TEST; VAR i:INTEGER; BEGIN FOR i:=5 TO 10 DO Writeln(i); END; Run(TEST); [文が複数行ある場合] PROCEDURE TEST; VAR i:INTEGER; BEGIN FOR i:=5 TO 10 DO BEGIN Writeln(i); Writeln(i*2); Writeln(i*4); END; END; Run(TEST); [グループ内での注意] PROCEDURE TEST;
VAR
i:INTEGER;
BEGIN
FOR i:=5 TO 10 DO
BEGIN
Writeln(i);
i:=i-1; {カウンター変数の値を変更している}
END;
END;
Run(TEST);
また初期値と終了値のいずれにもカウンタ変数を含めてはいけません。 PROCEDURE TEST;
VAR
i:INTEGER;
BEGIN
FOR i:=5 TO i DO {終了時にカウンター変数を使っている}
Writeln(i);
END;
Run(TEST);
|