Оператор цикла с постусловием

Блок-схема алгоритма

Цикл с постусловием реализован конструкцией

repeat

оператор;

until выражение;

или, если тело цикла состоит более чем из одного оператора

repeat

оператор_1;

оператор_2;

.............

оператор_N;

until выражение;

Работает цикл следующим образом. В начале выполняется оператор, представляющий собой тело цикла. Затем вычисляется значение выражения. Если оно ложно (False), оператор тела цикла выполняется еще раз. В противном случае цикл завершается, и управление передается оператору, следующему за циклом.

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

Задача. Вывести значения функции на отрезке [0;p] с шагом 0.1.

procedure TForm1.btn1Click(Sender: TObject);

var x,y:Real;

begin

x:=0;

repeat

y:=Exp(Sin(x))*cos(x);

mmo1.Lines.Add('x='+

FloatToStr(x)+

' y='+floattostr(y));

x:=x+0.1;

until x>Pi;

end;