ВУЗ:
Составители:
Рубрика:
13
Таким образом, конструкция настраиваемого цикла совмещает в себе преимущества
обоих циклов - и while - do, и repeat - until.
3.4 Пропуск итераций в цикле
Object Pascal предоставляет ещё одно средство управления выполнением циклов
- оператор Continue.
Continue, как и Break - стандартная встроенная процедура. Внутри цикла можно
разместить любое количество операторов Continue. При каждой встрече с оператором
Continue программа пропускает все остальные операторы цикла, возвращается к началу
цикла и, если соблюдается условие продолжения цикла, начинает следующую
итерацию.
Вызов оператора Continue обычно комбинируется с условным выражением if,
проверяющим, надо ли пропускать остальные операторы цикла.
Например, цикл
while PageNumber<TotalPages do begin
ReadClientRecord;
if ClientCity <>‘Chicago’ then
Continue;
PrintClientReport;
end;
печатает сообщение о клиентах, проживающих в Чикаго, с помощью процедуры
PrinClientReport, пропуская шаги по выводу информации о жителях других городов.
Оператор Continue выполняется каждый раз, когда переменная ClientCity не равна
‘Chicago’. В каждом таком случае оператор PrintClientReport не выполняется.
4 Контрольные вопросы
1.Что неправильно в приведённом цикле?
while (Total<Max) and (Sum<=Max)and(Sum<Total) do
Statеment1;
2. Что неправильно в прведённом цикле?
while (Sum<=Total) or (Total>Sum) do
Statement2;
3. Какое минимальное число итераций может выполнить цикл while - do?
4. Какое минимальное число повторений может выполнить цикл repeat - until?
5. Какое максимальное число повторений может выполнить цикл for?
6. Может ли процедура Break применяться внутри обычного цикла (не
бесконечного) ?
5 Дополнительные задания
1. Напишите в Delphi программу с основной формой, содержащей окно списка и
кнопку Go. Когда пользователь щёлкнет на кнопке Go, программа должна заполнить
