ВУЗ:
Составители:
Рубрика:
12
Простейший путь создания бесконечного цикла, который Вы сможете
использовать для конструирования настраиваемого цикла - использование стандартной
циклической конструкции с таким условием, при котором цикл никогда не прекратит
свою работу.
Предупреждение. Не надо испытывать приведённые в этом разделе
программные конструкции. Эти примеры создают действительно бесконечные циклы,
результатом которых будет зависание компьютера. Прочтите этот раздел до конца
перед тем, как пытаться запустить бесконечный цикл.
Ниже приведены бесконечные циклы while и repeat (не пытайтесь их запускать -
Ваша машина зависнет!):
while True do begin
<Выполняемые операторы>
end;
repeat
<Выполняемые операторы>
until False;
3.3 Конструкция цикла с вызовом Break
Только что показанные бесконечные циклы дают основу для создания гибких
конструкций циклов с использованием процедуры Break.
Приведём общий синтаксис создания произвольных настраиваемых циклов:
while True do begin
<Операторы до проверки условия>
if УсловиеИстинно then
Break;
<Операторы после проверки условия>
end;
Пример:
while True do begin
GetNextClient;
ComputeClientData;
if Total>=Threshold then
Break;
ProcessClientData;
PrintClientReport;
end;
Первые два оператора внутри приведённого выше цикла всегда выполняются -
как в цикле repeat. Последние же два оператора могут не выполниться ни разу - как в
цикле while.
Вы можете создать конструкцию цикла с Break, использовав бесконечные циклы
while - do или repeat - until и введя в них проверку на завершение цикла. Если результат
этой проверки равен True, то вызывается
стандартная процедура Break, работа цикла
оканчивается и управление передаётся первому оператору, стоящему после цикла.
Условие выхода из цикла проверяется на каждой итерации. Операторы, стоящие
перед проверкой условия выхода из цикла, обязательно выполнятся по меньшей мере
один раз. Операторы, расположенные после проверки, могут не выполниться ни разу.
