|
|
Алгоритм обработки
Break
Предположим, вы находитесь в середине одного из этих причудливых циклов For или
While и вам встречается условие, по которому необходимо прервать выполнение
цикла, выйти из него. Оператор Break дает вам эту возможность. Листинг 3.9
показывает, как это можно сделать. За основу этого примера взята рассмотренная
ранее программа WhileDoDemo (листинг 3.5).
Листинг 3.9. Использование оператора Break
program BreakDemo;
uses Forms;
var
I : Char;
begin I := '
While TRUE Do
Write('Введите символ (для окончания работы введите q или Q) : ');
ReadLn(I);
If (I = 'q'J or (I = 'Q') then
Break; end;
{ Выполнение команды Break вызовет переход сюда } WriteLn ('Нажмите Enter для
завершения программы'); Readln {Чтобы окно оставалось открытым, пока вы не
нажмете Enter} end. { BreakDemo }
Это немного странный код, но он иллюстрирует то, что нам нужно. vJjT4 Цикл While
продолжается бесконечно, так как проверяемое условие всегда равно TRUE.
Единственный способ закончить выполнение подобного цикла — применить оператор
Break. После чтения ответа пользователя командой ReadLn оператор If проверяет,
не была ли нажата клавиша 'q' в нижнем или верхнем регистре. И если была нажата
'q', то выполняется Break. Его выполнение перебрасывает управление на строку,
указанную в коде, после чего выполняются последующие операторы.
|
