Например:

While M<=X Do Begin

<Оператор 1>; <Оператор 2>;

…

<Оператор N>; End;

Пример 2. Разложить целое число, вводимое с клавиатуры, на простые множители.

Определим переменную X для ввода разлагаемого числа, M - переменная, используемая в качестве делителя.

5.4. Цикл с постусловием

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

58

один раз. На рис. 5.2 (б) представлена блок-схема алгоритма цикла с постусловием.

При разработке программ очень удобно бывает использовать цикл с постусловием. Синтаксис цикла с постусловием выглядит следующим образом:

Repeat

<Оператор 1>; <Оператор 2>;

…

<Оператор N>; Until <Условие>;

В операторе цикла с постусловием выражение, которое управляет повторным выполнением последовательности операторов тела цикла (условие), содержится после служебного слова Until. Между служебными словами Repeat и Until заключаются операторы, входящие в тело цикла.

Правила использования данного цикла, аналогично правилам цикла с While. Однако, прежде чем будет проверено условие выполнения тела цикла, выполняются операторы, входящие в состав цикла. Цикл работает при ложном (False) значении условия.

Пример 3. С использованием оператора repeat вычислить значение функции x–π–2ln2 по ее формуле и с помощью суммы

100

åcosn2nx , где 0<x<2.

n=1

program Example_3; var

x, y, s: Real; { аргумент, функция и сумма } n: Longint; { номер слагаемого }

begin

Writeln('Введите значение аргумента в диапазоне от0 до

2pi');

Readln(x); { чтение значения аргумента функции }

59

5.5.Контрольные вопросы

1.Как называются программы, в основе которых лежит структура повторения?

2.Сколько операторов цикла вам известно?

3.Каков тип выражения в операторе цикла с предусловием?

4.Верно ли, что в теле цикла с предусловием должен находиться один оператор?

5.Когда проверяется истинность выражения в цикле While?

6.Верно ли, что истинность выражения в цикле с предусловием является условием продолжения цикла?

7.Сколько раз выполнится оператор в теле цикла While, если с самого начала значение выражения равно False?

8.Сколько операторов можно записать между ключевыми словами Repeat и Until?

9.Когда проверяется истинность выражения в операторе цикла

Repeat?

60

10.Какой тип имеет выражение в операторе цикла с постусло-

вием?

11.Почему в цикле Repeat тело цикла всегда будет выполнен хотя бы один раз?

12.Верно ли, что истинность выражения в цикле Repeat является условием окончания цикла?

13.С помощью, каких служебных слов записывается цикл с параметром?

14.Верно ли, что цикл с параметром применяется в тех случаях, когда заранее известно число повторений?

15.Пусть цикл записан в виде: For V:=E1 To Е2 Do S;

a)Как называется E1?

b)Как называется Е2?

c)Как называется V?

16.Какой тип переменной должен иметь параметр цикла в цикле For?

17.Какой тип должны иметь начальное и конечное значения в цикле For?

18.Чему равно значение параметра циклаFor после завершения цикла?

19.Какие утверждения являются верными (проиллюстрируйте ответ соответствующими примерами):

a)любой цикл For можно записать при помощи цикла While;

b)любой цикл While можно записать при помощи цикла For;

c)не любой циклFor можно записать при помощи цикла

While;

d)не любой циклWhile можно записать при помощи цикла

For.

20.Могут ли быть разветвления внутри цикла с параметрами?

5.6.Варианты заданий

Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму(произведение) с использованием операторов for, while, repeat. Значение аргумента (если он есть) выберите с учетом ограничения, приведенного в столбце «Аргумент» таблицы.

61

62