WHILE <условие> DO <тело цикла>

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

В тело цикла входит только один оператор. Если нужно объединить в тело цикла несколько операторов, то применяются операторные скобки begin-end.

Условие может быть простым или сложным, если применить слова: NOT, AND, OR

Пример 1. Найти значение функции , если , шаг изменения аргумента

Блок – схема:

Листинг программы:

Program L_4;

Var

Y, X, Xn, Xk, hx: real;

BEGIN

Writeln(‘введите начальное, конечное значение аргумента и шаг:’);

Readln (Xn, Xk, hx);

{текущей переменной присваивается начальное значение}

X:=Xn;

While X<=Xk do {проверка условия выхода из цикла}

Begin

Y:= SQR(X);

Writeln (‘X= ‘, X:3:1,’ Y= ’, Y:4:2);

{изменение текущей переменной на величину шага}

X:=X+hx;

End;

END.

Задание 1. Составить блок-схему и программу, используя вложенные операторы цикла с предусловием:

№ варианта	Функция	Изменение аргументов	Исходные данные
X	Y
интервал	шаг	интервал	шаг
1

2. Цикл с постусловием. Для программной реализации циклических процессов с неизвестным числом повторений используют еще один оператор – цикл с постусловием, который имеет вид:

REPEAT

Оператор1;

Оператор2;

…

…

оператор N;

UNTIL условие;

Оператор цикла с постусловием отличается от оператора WHILE тем, что проверка условия выхода из цикла производится после очередного выполнения тела цикла. Последовательность операторов, входящих в тело цикла выполняется один раз. После чего проверяется соблюдение условия, записанного следом за служебным словом UNTIL. Если условие соблюдается, тело цикла повторяется еще раз, после чего снова проверяется соблюдение условия, иначе цикл завершается.

Пример 2. Вводить с клавиатуры числа до тех пор, пока сумма введенных чисел не станет больше 100.

Блок – схема:

Листинг программы:

Program L_5;

Var

S, R: integer;

BEGIN

S:=0;

Repeat {начало цикла}

Writeln (‘введите число - ’);

Readln (R);

S:=S+R;

Until S > 100; {проверка условия выхода из цикла}

Write(‘Сумма равна ’, S);

END.

Задание 2. Составить блок-схему и программу используя оператор цикла с постусловием:

1. Ввести два числа K и N. Вводить последовательно числа, используя переменную R, пока R не будет равен K или N. На печать выдать сумму положительных чисел R.

2. Вводить последовательно числа (используя для этого одну переменную), пока сумма этих чисел не будет равна или больше 100. На экран выдать числа и их сумму.

3. Вводить последовательно числа (используя одну переменную), пока среднее арифметическое введенных чисел не будет больше или равно 10. На экран выдавать число и среднее арифметическое.

4. Вводить последовательно пару чисел, используя переменные M и N, пока среднее арифметическое введенных чисел не будет больше 15. На печать выдавать вводимые числа, их сумму и среднее арифметическое.

5. Ввести три числа. Увеличивать третье из них в 3 раза, пока оно не будет больше среднего арифметического трех чисел. На экран выдавать числа и их среднее арифметическое.

6. Ввести число. Если оно больше 100, уменьшать его на 10, пока оно не будет меньше 5. Если число меньше 100, увеличивать его на 25, пока она не будет больше 1000. Выдать на печать.

7. Ввести число. Если оно положительное, уменьшать его на 3, пока оно не станет отрицательным, если же отрицательное, то увеличивать на 2, пока не будет больше 70. На экран выдать полученные числа.

8. Ввести число A. Затем вводить последовательно числа (используя одну переменную X) и уменьшать A на число X. Вводить числа, пока A не станет меньше X. На экран выдать A и X.

9. Вводить последовательно числа (используя для этого одну переменную), пока среднее арифметическое не будет равно 10. На экран выдать сило и среднее арифметическое.

10. Ввести число. Если оно положительное, уменьшать его на 3, пока оно не станет отрицательным, если же отрицательное, то увеличивать на 2, пока оно не станет больше 70. На экран выдать полученные числа

3. Оператор цикла с параметром применяют, когда известно число повторений выглядит следующим образом:

FOR <параметр: = A> TO B DO <тело цикла>;

или

FOR <параметр:= A> DOWNTO B DO <тело цикла>;

Выполнение оператора цикла с параметром:

Вычисляются значения выражений А и В. Если А<=B,то параметр последовательно принимает значения, равные А, А+1… В-1, В, и для каждого из этих значений выполняется тело цикла. Если А> B, то тело цикла не выполнится ни разу.

Оператор цикла с параметром FOR параметр:= A DOWNTO B DO тело цикла; выполняется аналогичным образом, но значение параметра изменяется с шагом –1.

Оформить отчет, включающий в себя следующие разделы

1. Номер лабораторной работы;

2. Тема лабораторной работы;

3. Цель работы;

4. Условие задачи;

5. Блок-схема;

6. Листинг программы;

7. Результат выполнения программы;

8. Вывод.

Вопросы для самоконтроля

1. Что такое цикл?

2. Что является условием окончания цикла?

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

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

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

6. В каком случае используется цикл с параметром?

7. Синтаксис цикла с параметром.

8. Какой цикл называется внешним (внутренним)?

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

Рекомендованная литература [1-4, 5,9]