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

repeat

p1;p2;…pn;

until <условие>;

где p1; p2; … pn; - любые операторы, образующие тело цикла.

По этому оператору выполняется «тело цикла», а затем проверяется <условие>, если оно не выполнилось, цикл повторяется. И так до тех пор, пока <условие> не будет выполнено. Необходимо помнить: если <условие> выполнилось c первого раза, цикл будет пройден один раз.

Задача.

Вычислить значение функции:

y = a sin (x), При x = , с шагом =0.2

program cikl_1;

var

y,a,x:real;

begin

writeln(‘Введите а’);

read(a);

x:=0; repeat

y:=a*sin (x); writeln (‘y=’,y:8:3,’ x=’,x:8:3); x:=x+0.2;

until x>1;

end.

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

• восстановить начальное значение параметра цикла;
• сформировать текущее значение параметра цикла;
• организовать проверку на выход из цикла.

В операторе for … to … do перечисленные действия выполняются автоматически. В остальных операторах цикла эти действия необходимо организовать составителю программы.