Оператор цикла с параметром

Оператор цикла с параметром используется в тех случая, когда заранее известно, сколько раз должна повториться циклическая часть програм­мы. Оператор цикла имеет вид

FOR_i: = m₁_TO_m₂_DO

BEGIN

операторы циклической части программы

END;

Здесь FOR (для), ТО (до), DO (выполнить) - служебные слова; i — параметр цикла; m₁, m₂—начальное и конечное значения параметра цикла.

Циклическая часть программы выполняется повторно для каждого значения параметра цикла i от его начального значения m₁ до конеч­ного значения m₂ включительно.

В качестве параметра цикла может быть только переменная, в качестве m₁ и m₂ могут быть выражения, за исключением действитель­ного типа (REAL);

Чаще всего параметр цикла i используют как переменную целого типа, а шаг его изменения равен +1 или -1. Если значение пара­метра цикла возрастает, то шаг его изменения +1. Если значение параметра цикла уменьшается, то шаг его изменения —1 и в операторе цикла FOR вместо служебного слова ТО записывается служебное слово DOWNTO. Рассмотрим использование оператора цикла с пара­метром.

Пример 6.2. Пусть имеется фрагмент программы с переменными целого тип

FOR I:=1 TO 5 DO

BEGIN

A:=2*I;

B:=2*l+1;

WRITELN(A:3,B:3);

ЕND.

Циклическая часть программы выполняется повторно пять раз, при этом параметр цикла I изменяет свое значение от 1 до 5. В результате выполнения программы переменные получают следующие значения:

I 1 2 3 4 5

A 2 4 6 8 10

B 3 5 7 9 11

Фрагмент программы с убыванием значений параметра цикла от 5 до 1 имеет следующий вид:

FOR I:=5 DOWNTO 1 DO

BEGIN

А:=2*1;

В:=2*1+1;

WRITELN (A:3,В:3);

END;

В процессе выполнения программы переменные принимают следую­щие значения:

I 5 4 3 2 1

A 10 8 6 4 2

B 11 9 7 5 3

Если циклическая часть программы содержит только один оператор, то операторные скобки BEGIN - END можно не указывать. В этом случае цикл с параметром записывают в следующем виде:

FOR i: = m_{1_}TO_m₂_DO_оператор;

или

FOR i: = m₁ _TO_m_{2_}DO

оператор;

Параметр цикла i не должен переопределяться внутри циклической части.

Если шаг изменения параметра цикла равен +1 и m₁>m₂, то циклическая часть не выполнится ни разу.

После естественного завершения цикла значение параметра цикла не определено. Это означает, что при последнем выполнении цикличе­ской части значение i = m2, а после ухода за пределы цикла значение i теряется.

Пример 6.3. Напечатать все буквы латинского алфавита.

Так как буквы латинского алфавита упорядочены (см. приложе­ние 2), то можно составить программу 6.1.

Программа 6.1

(*ПЕЧАТЬ БУКВ ЛАТИНСКОГО АЛФАВИТА*)

PROGRAM POD2;

VAR

SIM:CHAR;

BEGIN

WRITELN(‘ ЛАТИНСКИЙ АЛФАВИТ:');

FOR SIM:='A' TO 'Z' DO

WRITE(' ',SIM)

END.