Операторы прерывания Операторы Break и Continue

введены в язык Турбо Паскаль версии 7.0 для удобного управления ходом цикла.

1)Break ([breik]перевод с англ. – прерывать)– выход из цикла, прерывание выполнения цикла.

2)Continue (перевод с англ. – продолжать) – переход к следующему шагу цикла.

Пример.Найти сумму S=2+4+6…, не превосходящую 100.

Заметим, что цикл по четным числам можно завести различными способами: Цикл FOR_DO с проверкой условия IF(Not ODD(i)); Цикл While_Do или Repeat_Until с увеличением параметра цикла на два Inc(i,2) и т. п. С использованием оператора “CONTINUE” возможна и другая логика – завести цикл FOR_DO по значениям, идущим подряд, но при появление нечетных значений переходить к следующей итерации цикла. Далее, когда сумма превысит 100, можно выйти из цикла с помощью BREAK. Тогда текст программы:

Program sum1;

Uses CRT;

Var

s: integer; i: byte;

Begin

ClrScr;

s:=0;

For i:=1 to High(Byte) do {Стандартные функции}

begin

if Odd(i) then Continue;

s:=s+i;

if (s>100) then break;

end;

s:=s-i;

Writeln(' s= ',s); Repeat Until Keypressed; End.