Break; - прерывание цикла.

 

Операторы Continue;и Break;позволяют производить действия не для всех операторов внутри цикла. Действие оператора Continue;заключается в передаче управления на начало цикла, при этом контролируется условие выхода из цикла. Действие оператора Break;заключается в передаче управления оператору, следующему за последним оператором цикла, при этом не контролируется условие выхода из цикла. Во вложенных циклах операторыContinue;и Break; действуют только на цикл в котором они записаны.Приведем пример использования операторов для блокировки несанкционированного доступа в программу.

 

For i:= 1 to 3 do begin

Write( 'Введите ПАРОЛЬ:' ); Readln(S);{S и Parol - переменные одного типа}

If S = Parol Then Break{ прерывание цикла }

else If i <> 3 Then Continue;{ ограничение цикла }

Writeln( 'Доступ к программе ЗАПРЕЩЕН' );

Writeln( 'Нажмите Enter' ); Readln; Halt{ прерывание программы }

end;{ продолжение программы }