1. Цикл с условием продолжения

 

Группу операторов, повторяемую многократно при изменении  одного параметра, называют циклом.

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

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

Весь цикл с условием продолжения сводится к одному оператору. Синтаксис этого оператора:

While <логическое выражение> do <оператор>;

Ключевые слова While и do означают соответственно "пока" и "выполнять". Когда программа в процессе выполнения впервые достигает оператора while, осуществляется проверка истинности условия. Если условие истинно, то выполняется тело цикла (оператор). После этого происходит возврат к началу фрагмента while do, где проверка условия осуществляется вновь. Цикл будет выполняться до тех пор, пока логическое выражение будет истинным. Как только логическое выражение станет ложным, управление передается следующему за циклом оператору. Если при первом выполнении цикла значение логического оператора будет "ложь", то цикл не станет выполняться, а управление сразу же передается следующему за ним оператору.

Оператор, составляющий тело цикла с условием продолжения, может быть составным. В этом случае тело цикла начинается словом Begin, а завершается словом End, означающим конец составного оператора.

В качестве примера рассмотрим программу, составленную для вычисления квадратного корня из числа с некоторой заданной точностью (погрешностью) e.

Математически метод заключается в последовательном выполнении ряда шагов, на каждом из которых вычисляется очередное приближение к   до выполнения условия | - y|   e. На первом шаге начальное приближение задается произвольно (например, y₁ = 1) и последовательность строится по закону: y₂ =  1/2 · (y₁ + x/y₁) ,... , y_i = 1/2 · (y_i-1 - 1 + x/y_i-1), пока |y_i  - y_i-1| > e.

 

Program sqrtx;

     Var eps, x, yn, yh : real;

     Begin

     read(x);

     if x > 0 then begin

            eps := 1.0e-6;

            yn := 1;

            yh := (yn + x/yn) / 2;

            while abs(yn - yh) > eps do begin

                                 yn := yh;

                                 yh := (yn + x/yn)/2;

                                 end;

            write (yh); end

     else write('отрицательное число');

     end.

 

 

 

 

2. Цикл с условием окончания

 

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

Тело цикла с условием окончания записывается между ключевыми словами Repeat иUntil, означающими соответственно "повторять" и "до".

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

Зарезервированные слова repeat и until служат операторными скобками, поэтому сам цикл может состоять из любого числа операторов.

Синтаксис цикла с условием окончания:

Repeat <оператор> … <оператор> Until <логическое выражение>;

Запишем программу вычисления квадратного корня из числа с заданной точностью, используя оператор с условием окончания.

 

     program sqrtx;

     Var eps, x, yn, yh : real;

     Begin

     read (x);

     if x > 0 then begin

            eps := 1.0e-6;

            yn := 1;  yh := (yn + x/yn) / 2;

                repeat yn := yh;

                       yh := (yn + x/yn) / 2;

                until abs(yn - yh) < eps;

            write (yh); end

     else write ('отрицательное число');

     end.