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

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

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

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

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

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.

Дата добавления: 2015-12-08