Циклические конструкции.

Цикл с параметром. Цикл for является одним из основных видов циклов, которые имеются во всех универсальных языках программирования. Основная идея, заложенная в его функционирование, заключается в том, что операторы, находящиеся внутри цикла, выполняются фиксированное число раз, в то время как переменная цикла (известная еще как индексная переменная) пробегает определенный ряд значений.

Счетный оператор цикла FOR имеет такую структуру:

for <пар_цик> := <нач_знач> to <кон_знач> do <onepamop>

Здесь for, to, do – зарезервированные слова (для, до, выполнить);

<пар_цик> – параметр цикла – переменная типа INTEGER (точнее, любого порядкового типа); <нач_знач> – начальное значение – выражение того же типа; <кон_знач> – конечное значение – выражение того же типа; <оператор> – произвольный оператор Турбо Паскаля. При выполнении оператора FOR вначале вычисляется выражение <нач_зчач> и осуществляется присваивание <пар_цик>:=<нач_знач>. После этого циклически повторяется

– проверка условия <пар_цик> <= <кон_знач>; если условие не выполнено, оператор FOR завершает свою работу;

– выполнение оператора <оператор>;

– наращивание переменной <пар_цик> на единицу.

Пример использования массива и цикла for:

Const N=3;

Var

list: array [1..N] of integer;

i: integer;

Begin

list[1] := 421;

list[2] := 53;

list[3] := 1806;

writeln("Список чисел:");

for i:=1 to N do writeln(list[i]);

End.

Выражение list: array [1..N] of integer объявляет list как массив переменных типа integer c объемом памяти, выделяемым для трех целых переменных (так как N равен 3). К первой переменной массива можно обращаться как к list[1], второй – как к list[2] и третьей – как к list[3].

Оператор в теле цикла for обычно является одним из операторов программы, но может использоваться и составной оператор, заключенный в begin ... end.

Цикл с предусловием. Оператор цикла с предусловием, начинающийся с ключевого слова while, содержит в себе выражение, которое управляет повторным выполнением оператора (который может быть составным оператором). Выражение, с помощью которого осуществляется управление повторением оператора, должно иметь булевский тип. Вычисление его производится до того, как внутренний оператор будет выполнен. Внутренний оператор выполнятся повторно до тех пор, пока выражение принимает значение Тruе. Если выражение с самого начала принимает значение False, то оператор, содержащийся внутри оператора цикла с предусловием, не выполняется.

Оператор цикла с предусловием имеет следующую структуру:

while <условие> do <оператор>

где <условие> – выражение логического типа; <оператор> – произвольные операторы Паскаля. Если <условие> принимает значение True, то выполняется <оператор>; после чего вычисление выражения <условие> и его проверка повторяются.

Примерами операторов цикла с предусловием могут служить следующие операторы:

while Data[I] <> X do I := I + 1;

While I > 0 do begin

if Odd(I) then Z := Z * X;

I := I div 2;

X := Sqr(X);

end;

Цикл с постусловием. В операторе цикла с постусловием, начинающимся со слова repeat, выражение, которое управляет повторным выполнением последовательности операторов содержится внутри оператора repeat. Результат выражения должен быть булевского типа. Операторы, заключенные между ключевыми словами repeat и until, выполняются последовательно до тех пор, пока результат выражения не примет значение True. Последовательность операторов выполнится по край ней мере один раз, поскольку вычисление выражения производится после каждого выполнения последовательности операторов.

Оператор цикла repeat...until с постпроверкой условия имеет следующую структуру:

REPEAT <тело_цикла> UNTIL <условие>.

Здесь REPEAT, UNTIL – зарезервированные слова (повторять до тех пор пока не будет выполнено условие); <тело_цикла> – произвольная последовательность операторов Турбо Паскаля; <условие> – выражение логического типа.

Операторы <тело_цикла> выполняются хотя бы один раз, после чего вычисляется выражение <условие>: если его значение есть FALSE, операторы <тело_цикла> повторяются, в противном случае оператор REPEAT...UNTIL завершает свою работу.

Примеры оператора цикла с постусловием:

repeat

K := I mod J;

I := J;

J := K;

until J = 0;

repeat

Write('Введите значение (0..9):');

Readln(I);

until (I >= 0) and (I <= 9);

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

В версии Турбо Паскаль 7.0 определены стандартные процедуры Break и Continue. Процедура Break выполняет безусловный выход из цикла. Процедура Continue обеспечивает переход к началу новой итерации цикла.