Цикл repeat

Синтаксис цикла while имеет вид

while cond_expr do

begin

statements;

end;

Тело цикла (statements) выполняется итеративно пока условие цикла cond_expr есть True. Исходное состояние условия цикла необходимо обеспечить до входа в него. В теле цикла должны присутствовать операторы, так или иначе влияющие на состояние условия цикла. В противном случае получим бесконечный цикл (зависание системы).

Когда условное выражение cond_expr становится ложным, цикл прекращается.

Если тело цикла состоит из единственного оператора, ключевые слова begin и end необязательны.

Цикл repeat почти идентичен циклу while. Отличие состоит в том что здесь условие цикла проверяется в точке окончания, т.е. после каждого выполнения операторов тела цикла.

В качестве примера рассмотрим предыдущее упражнение, но теперь вместо while применим repeat:

procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

begin

I:= 5;

Memo1.Clear;

repeat

Memo1.Lines.Add('До перехвата '+

IntToStr(I) + ' сек.');

Dec(I);

until I = -1;

Memo1.Lines.Add('Цель с радара исчезла');

end;

В результате выполнения этого кода мы увидим в окне блокнота результат аналогичный предыдущему упражнению. Отметим, что в цикле repeat нет надобности ограничивать тело цикла словами begin – end так как их роль здесь выполняют ключевые слова repeat и until.

Область применения цикла repeat – реализация итерационных вычислений когда число шагов (итераций) заранее неизвестно. Приведем пример подпрограммы, которая реализует итерационный метод решения уравнения Кеплера с циклом repeat.

function SolveEquation_Repeat(const e,M: real):real;

{ Решение уравнения Кеплера в цикле repeat }

const

Eps = 1e-9;

var

Eold,Enew: real;

Stop: boolean;

begin

Eold:= M;

Stop:= false;

repeat

Enew:= M + e * Sin(Eold);

Stop:= Abs(Eold-Enew)<=Eps;

Eold:= Enew;

until Stop;

Result:= Enew;

end;

Какой из двух циклов использовать – решает программист. В качестве критерия выбора здесь можно использовать ту особенность циклов while и repeat, что while может не выполняться вообще, а тело цикла repeat безусловно выполняется один раз.

Синтакис цикла repeat имеет следующий вид

repeat

statements;

until cond_expr;

Цикл repeat повторяет выполнение блока операторов, обозначенных как statements пока условие cond_expr есть False. Исходное состояние цикла необходимо подготовить до входа в него. Среди операторов statements должен быть такой, который модифицирует условие цикла. В противном случае возможен бесконечный цикл и зависание системы. Повторение блока statements прекращается в точке until при cond_expr=true.

Дата добавления: 2015-04-29