25 (729)

lub:

for zmienna początek downto koniec do { blok instrukcji }

Cóż oznacza taki zapis? Otóż blok instrukcji będzie wykonywany wielokrotnie, dla zmiennej przyjmującej kolejno każdą wartość od początek do koniec. Pierwsza instrukcja jest stosowana wtedy, gdy początek jest nie mniejszy niż koniec (wtedy odliczanie odbywa się „w górę”). Jeżeli koniec jest nie mniejszy niż początek, możemy użyć zapisu drugiego i odliczać „w dół”. Zmienna, której wartość jest sprawdzana w pętli, nosi nazwę zmiennej sterującej. Blok instrukcji rozumiemy podobnie, jak w przypadku instrukcji warunkowej. Jeżeli składa się tylko z jednej, także możemy pominąć ograniczniki begin i end.

ĆWICZENIE

3.30

Proste zastosowanie

pętli

Napisz program, który wypisze liczby od 1 do 10, a następnie od 10 do 1.

W tym celu wykorzystamy obie poznane postacie pętli for.

program cw3_30;

{ Program wpisuje liczby od 1 do 10, a następnie }

{ w doi - od 10 do 1.    }

{ Katalog r3_08 : 3_30.pas    }

var

I : Byte;

begin

for I :- 1 to 10 do

Write (I, ' ¹ );

Writeln;

for I:- 10 downto 1 do

Write CI, ' ');

Writeln;

Readln; end.

W celu oddzielenia wypisywania liczb „w górę” i „w dół” posłużyliśmy się instrukcją Writeln bez parametrów. Jej działania to po prostu przejście do nowego wiersza.

ĆWICZĘ

Sumowanie liczb

Napisz program, który wypisuje kolejne sumy liczb od 1 do 10.

Aby to wykonać, należy zadeklarować dodatkową zmienną, do której będziemy dodawali aktualną wartość zmiennej sterującej.

program cw3_31;

{ Program wpisuje kolejne sumy liczb od 1 do 10. }

{ Katalog r3_08 : 3_31.pas    }

var

I, Suma : Byte;

begin

Suma 0;

for I :- 1 to 10 do