Spis treści

Instrukcja pętli FOR

Instrukcja petli WHILE-DO

Instrukcje petli REPEAT-UNTIL

Cwiczenia
dotyczące pętli

Instrukcja pętli FOR (dla)

FOR <nazwa_zmiennej> := <wartość skalarna1> TO <wartość skalarna2> DO

<instrukcja>

lub

FOR <nazwa_zmiennej>:= <wartość skalarna1> DOWNTO <wartość skalarna2> DO

<instrukcja>

Sposób działania.

1. Zmienna sterujaca przyjmuje wartość początkową

2. Następuje porównanie wartości zmiennej sterującej z górnym jej ograniczeniem ( tutaj: wartość skalarna2)

3. Jeśli wartość zmiennej jest mniejsza lub równa od ograniczenia (większa lub równa od ograniczenia), to następuje wykonanie instrukcji oraz inkrementacja (dekrementacja) zmiennej sterującej i przejście do punktu 2.

Pętle FOR stosujemy w przypadku, gdy jest znana z góry liczba przebiegów pętli.

Przykład.

PROGRAM ForDemo;

CONST MaxWartoscZmiennejSterujacej = 4;

VAR ZmiennaSterujaca : BYTE;

BEGIN

WriteLn;

FOR ZmiennaSterujaca := 1 TO MaxWartoscZmiennejSterujacej DO

{ DLA ZmiennejSterującej od 1 DO MaxWartoscZmiennejSterujacej WYKONUJ }

BEGIN

WriteLn;

WriteLn('Aktualna wartość zmiennej sterującej:',ZmiennaSterujaca)

END;

WriteLn('Pętla została wykonana ', MaxWartoscZmiennejSterujacej, ' razy!')

END.

Powrót do spisu treści

Instrukcja pętli WHILE-DO.

WHILE <wyrażenie logiczne> DO <instrukcja>;

WHILE - podczas gdy

DO - wykonuj

Przyklad:

PROGRAM WhileTest;

CONST dx = 0.1;

VAR x : REAL;

BEGIN

x := 0.0;

WHILE x < 1 DO

BEGIN

WriteLn(x:3:1);

x := x + dx

END

END.

Uwaga !!!

x := x + dx; - niech x przyjmie wartość równą

swej dotychczasowej wartości (x) powiększonej (+) o dx

Powrót do spisu treści

Instrukcja pętli REPEAT - UNTIL

REPEAT <instrukcja> UNTIL <wyrażenie logiczne>;

REPEAT - powtarzaj

UNTIL - aż do

Przyklad:

PROGRAM RepeatTest;

CONST dx = 0.1;

VAR x : REAL;

BEGIN

x := 0.0;

REPEAT

WriteLn(x:3:1);

x := x + dx

UNTIL x >= 1

END.

Powrót do spisu treści

---