Question

Как в паскале выскочить из цикла?

Как быть, если внутри цикла произошел форс-мажор и нужно его прервать, не глядя на соблюдение условий выхода?

В Бейсике есть спец команда Exit, в разных формах: Exit For, Exit Do и других. А есть ли что-то такое в Паскале?

Только не надо отправлять меня в поисковики - я даже не представляю, как правильно задать вопрос.

Answer 1

Нужно использовать оператор break - подробно можно почитать в этой статье.

Answer 2

Выше посоветовали Break. Этот оператлор очень удобен, но без него можно обойтись в 99% случаев, когда нужно досрочно завершить цикл. Вернее, в Паскале (и других языкакх программирования) для этого есть цикл с предусловием (While) и цикл с постусловием (Repeat).

Например, нужно определить сумму элементов массива до первого отрицательного:

s:=0;

for i:=1 to n do

if a[i]>0 then s:=s+a[i] else break;

Writeln(s);

Но то же самое можно сделать и без Break:

s:=0;

i:=1;

While (i<=n) and (a[i]>0) do

begin

s:=s+a[i];

i:=i+1;

end;

Writeln(s);

Answer 3

Можно ещё, как вариант, изменить переменную, по которой проверяется условие цикла, на то её значение, которое бы удовлетворяло естественному прекращению цикла. Цикл сам собою и закончится.