1.Если < Условие > равно False, то вход в цикл не выполняется, управление передается оператору, следующему непосредственно за операторами тела цикла. Так что при определенной ситуации цикл может ни разу не выполниться.
2.Если же < Условие > равно True, то происходит вход в цикл и однократное выполнение операторов его тела. Как только достигнем конца тела цикла, управление снова передается на его заголовок, где снова вычисляется
<Условие >.
3.Если значение < Условия > все еще равно True (что зависит от изменения значений переменных во время предыдущего выполнения операторов цикла), то тело цикла выполняется еще один раз, и так далее. Как только очередное вычисление < Условия > цикла достигнет значения False, работа цикла завершается.
Рассмотрим работу цикла while в задачах 1–2.
Задача 1
При вводе осуществить проверку длины вводимой последовательности. Program Lab5_1;
Var
N: integer; BEGIN {1} ReadLn (N);
While N < = 0 Do Begin {2}
WriteLn ('Bведите длину последовательности N = '); ReadLn (N);
End; {2}
WriteLn ('Длина последовательности N = ', N); END. {1}
Пояснения к задаче 1
До первого входа в цикл переменной N уже должно быть присвоено начальное значение соответственно условию решаемой задачи.
N – длина последовательности, что влечет за собой необходимость выполнения логического условия N > 0 (длина не может быть отрицательной). До тех пор пока мы будем вводить отрицательное или равное нулю число, цикл будет работать и требовать «Bведите длину последовательности N = ».
Так как в цикле имеем два оператора, необходимо ставить операторные скобки Begin – End. В фигурных скобках {2} стоит номер операторных скобок. Напоминаем, что в фигурных скобках ставится комментарий, служащий для пояснения работы программы. Комментарий не вызывает никаких действий в программе, и его можно убрать без последствий для работы программы.
Задача 2
Рассмотрим программу с использованием оператора цикла с предусловием, когда в качестве логического < Условия > стоит выражение 2*A < = 3*N +1.
60
Program Lab5_2;
Var
N, А: integer;
Begin {1}
A: = 1;
N: = 2;
While 2 * A < = 3 * N + 1 Dо
Begin {2}
A: = A + 2;
N: = N + 1;
End; {2}
WriteLn (‘A = ‘, A =, ‘B = ‘,B =);
End. {1}
Пояснения к задаче 2
Пока условие 2 * A < = 3 * N + 1 является истинным (т. е. 2 * A оказывается меньше или равно 3 * N + 1), выполняются операторы циклической части: значение А увеличивается на 2 и результат вновь присваивается переменной А; значение N увеличивается на 1 и результат снова помещается в переменную N. Начальные значения переменных присвоены до начала опера-
тора цикла (N: = 1; A: = 1).
Переменные А и N, а также логическое выражение 2 * A < = 3 * N + 1 в процессевыполненияпрограммыпринимаютзначения, которыемывидимвтабл. 11.
|
|
|
|
Таблица 11 |
|
|
|
|
|
Идентификаторы |
|
Проходы цикла |
|
|
и выражение |
Первый |
Второй |
Третий |
Четвертый |
A |
1 |
3 |
5 |
7 |
N |
1 |
2 |
3 |
4 |
2 * A < = 3 * N + 1 |
2 < = 4 |
6 < = 7 |
10 < = 10 |
14 < = 13 |
Условие True |
True |
True |
True |
False |
или False |
Истинно |
Истинно |
Истинно |
Ложно |
Всего цикл проработает четыре раза. При А = 7 и N = 4 логическое выражение 2 * A < = 3 * N + 1 становится ложным (False) и управление передается за пределы цикла (за End {2}).
3. Оператор цикла REPEAT ... UNTIL
Этот оператор организует так называемый цикл «ДО», или цикл с постусловием, так как проверка логического < Условия > завершения цикла осуществляется после каждого выполнения тела цикла (количество повторений
цикла неизвестно). Вид цикла: |
|
REPEAT |
(Повторять) |
< тело цикла > |
|
UNTIL |
(До тех пор) |
< условие >; |
|
61
Оператор цикла с постусловием состоит из ключевого слова repeat, за которым следуют операторы тела цикла, и замыкающего ключевого слова until, после которого указывается < Условие > окончания цикла.
Логическое < Условие > выполнения цикла должно быть False, и как только < Условие > станет True (истинным), цикл прерывается.
Блок-схема цикла repeat приведена на рис. 22. Упрощенно общую структуру оператора repeat можно представить так:
REPEAT
Оператор; Оператор;
………….
Логическое
условие
Рис. 22. Цикл «До» с постусловием
Оператор;
UNTIL < Условие >;
Оператор repeat не требует использования операторных скобок Begin – End, когда в его теле необходимо записать более одного оператора. Кроме того, оператор repeat является не столь универсальным, как оператор while, поскольку его логическое < Условие > располагается в конце тела цикла и операторы его тела будут всегда выполняться как минимум один раз. Выражение, используемое в качестве логического < Условия > окончания цикла, должно давать результат булевского типа.
Общий принцип работы цикла с постусловием repeat такой же, как у цикла с предусловием while. Но логическое < Условие > проверяется не перед выполнением тела цикла, а после него, и управление циклом repeat прямо противоположно управлению циклом while. To есть цикл repeat продолжается, пока логическое < Условие > ложно (False), и заканчивается, когда логическое < Условие > становится истинным (True). В задаче 3 рассмотрим, как выглядит проверка длины вводимой последовательности при использовании оператора repeat (задача уже была рассмотренанами при использовании оператора while).
Задача 3
При вводе осуществить проверку длины вводимой последовательности. Program Lab5_3;
Var
N: integer; BEGIN {1}
Repeat
WriteLn ('Bведите длину последовательности N = '); ReadLn (N);
Until N > 0;
WriteLn ('Длина последовательности N = ' , N); END. {1}
62