Оператор цикла WHILE.

Оператор WHILE называется оператором цикла с предусловием, так как проверка условия выполнения тела цикла идет перед его выполнением. Число повторений тела цикла заранее не известно, она зависит от заданного условия.

Общий вид оператора:

WHILE <выражение>DO<тело цикла>

Где <выражение> - условие продолжения повторений, представляет собой логическое выражение; тело цикла - один или несколько операторов.

Перед каждым выполнением тела цикла вычисляется значение выражения. Если выражение имеет значение TRUE, тело цикла выполняется. Если значение выражения FALSE, происходит выход из цикла и выполняется первый после WHILE оператор.

Пример, вывод на экран чисел от 1 до 100

k: =0;

wile k<100 do

begin

k: =k+1;

writeln (k);

end;

WHILE True DO WRITE (′Бесконечный цикл′);

WHILEI=I DO WRITE (′Бесконечный цикл′);

PROGRAM Demo_ WHILE ;{ заголовок программы}

Var I, Sum: integer; {объявление переменных}

BEGIN {начало раздела операторов}

I: =0; Sum: 0 ;{ обнуление I, Sum}

WHILE I<12 DO BEGIN {начало оператора WHILE}

WRITELN (′I=′, I) ;{ текущее значение I}

Sum: =Sum+I; {наращивание суммы}

I: =I+2 {увеличение I (0, 2, 4, 6, 8, 10)}

END; {конец оператора WHILE}

WRITELN (′Сумма четырех чисел′, Sum) {вывод результата}

END. {конец программы}

Операторы завершения цикла. Для всех операторов цикла выход цикла осуществляется как вследствие естественного окончания оператора цикла, так и с помощью операторов перехода GOTO и выхода. В версии ТУРБО ПАСКАЛЬ 7,0 определены стандартные процедуры BREAK и CONTINUE. Процедура BREAK выполняет безусловный выход из цикла. Процедура CONTINUE обеспечивает переход к началу новой итерации цикла.