Оператор цикла с постусловием
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 перечисленные действия выполняются автоматически. В остальных операторах цикла эти действия необходимо организовать составителю программы.
Дата добавления: 2015-05-21; просмотров: 792;