EXIT

Оператор EXIT позволяет принудительно, не дожидаясь проверки условных логических выражений, прекратить выполнение циклов FOR, WHILE, REPEAT и перейти к выполнению следующего оператора или выражения. В основном используется в конструкции условного оператора IF и выходит из цикла при выполнении заданного условия. Использование оператора EXIT усложняет понимание логики выполнения приложения, поэтому применять его рекомендуется в исключительных случаях.

Иногда бывает удобно создать безусловный цикл, а условие выхода сформировать в теле цикла с использованием оператора EXIT, как показано в следующем примере:

i:=1;

WHILE (true) DO //запускается бесконечный цикл,

IF i=1000 THEN //если условие истинно,

flag := true; //устанавливается флаг

EXIT; //и осуществляется выход из цикла

END_IF;

i := i + 1; //выражение выполняется в каждом цикле, до выхода

END_WHILE;