Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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 перечисленные действия выполняются автоматически. В остальных операторах цикла эти действия необходимо организовать составителю программы.
Дата публикования: 2014-11-02; Прочитано: 452 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!