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.

 

3. Цикл с параметром

 

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

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

For <параметр цикла> := <выражение 1> To <выражение 2> Do <оператор>;

Ключевые слова For и To имеют смысл соответственно "для" и "увеличивая до", "выражение 1" задает начальное значение параметра цикла, а "выражение 2" - конечное значение параметра цикла. Наиболее часто параметром цикла является переменная целого типа. В этом случае его значение увеличивается на единицу. При этом начальное значение должно быть меньше или равно конечному значению, в противном случае цикл не выполнится ни разу. Цикл продолжается до тех пор, пока параметр цикла не достигнет конечного значения. Оператор, входящий в состав цикла, может быть как простым, так и составным.

Рассмотрим использование параметра цикла для вычисления факториала:

 

Program fact1;

Var n, i, f : integer;

Begin read(n); f := 1;

for i := 1 to n do f := f * i;

write('n!=',f)

end.

 

Иногда требуется не увеличивать, а уменьшать значение параметра цикла. В этом случае ключевое слово To в операторе цикла заменяется словом Downto. Оператор цикла принимает следующий вид:

For <параметр цикла> := <выражение 1> Downto <выражение 2>

Do <оператор>;

Здесь параметр цикла уменьшается от начального значения (выражение 1) до конечного значения (выражение 2). Оператор, который содержится в теле цикла for, выполняется один раз для каждого значения в диапазоне между начальным и конечным значением. При этом для цикла с downto начальное значение должно быть больше или равно конечному.

В качестве примера приведем ту же программу для вычисления факториала:

  Program fact2;

Var n, i, f : integer;

Begin read(n); f := 1;

for i := n downto 2 do f := f * i;

write('n!=',f)