Цикл с предусловием. Цикл While используется, как правило, в тех случаях, когда заранее неизвестно количество

Цикл While используется, как правило, в тех случаях, когда заранее неизвестно количество повторений цикла.

Структура цикла:

WHILE <Условие> DO

Begin

Оператор1;

Оператор2;

…

ОператорN;

End;

Для оператора цикла с предусловием проверяется значение логического выражения, если оно имеет значение True, то операторы, входящие в цикл, выполняются, в противном случае осуществляется выполнение оператора, следующего за циклом.

Замечания:

1) если первоначальное значение Условия - False, то операторы цикла не будут выполнены ни разу;

2) в операторе цикла While точка с запятой никогда не ставится после зарезервированного слова do;

3) чтобы избежать бесконечного повторения (зацикливания), необходимо хотя бы одну переменную, входящую в условие, изменять в теле оператора цикла. Более того, эти изменения должны быть такими, чтобы булевское выражение рано или поздно приняло значение False. Если же булевское выражение первоначально истинно и ни при каких обстоятельствах не становится ложным, то выполнение оператора цикла никогда не завершится.

Задача 5 –––––––––––––––––––––––––––––––––––––––––––––––––––

Вычислить сумму натуральных чисел от 1 до 50, используя цикл с предусловием. Полученный результат вывести на экран.

Составим структурный план задачи:

1. Начальное значение счетчика_цикла = 0;

2. Начальное значение Суммы = 0;

3. Пока значение_счетчика_цикла < 50 повторять

Счетчик_цикла увеличить на единицу;

К Сумме прибавить значение_счетчика_цикла;

4. Вывод ответа на экран;

5. Конец.

Составим блок-схему решения задачи

{Программа вычисления суммы чисел от 1 до 50}

Program Summa;

Var Sum, I: Integer;

Begin

I:= 0; {начальное значение переменной для проверки условия}

Sum:= 0; {начальное значение суммы}

While I <=50 Do

Begin

I:= I + 1; {значение счетчика цикла совпадает со значением суммируемого числа}

Sum:= Sum + I;

End;

WriteLn('Сумма чисел от 1 до 50 равна: ', Sum)

End.

–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––

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