4. Конец.
По блок-схеме напишем текст программы:
Program Summa;
Var Sum, I : Integer;
Begin
Sum := 0; {начальное значение суммы}
For I := 1 to 50 Do
Begin
Sum := Sum + I;
End;
WriteLn('Сумма чисел от 1 до 50 равна: ', Sum)
End.
––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
Примечание: Область применения цикла с параметром в языке Паскаль значительно ограничена: ограничения связаны с шагом изменения параметра цикла, с типом параметра цикла, его начального и конечного значения.
Цикл с предусловием
Цикл 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.
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
Цикл с постусловием
Цикл Repeat (цикл с постусловием), как правило, используется в тех случаях, когда заранее неизвестно количество повторений операторов тела цикла.
Структура цикла:
Repeat
Оператор_1;
Оператор_2;
…
Оператор_N;
Until Условие;
Цикл с постусловием выполняется хотя бы один раз. Затем проверяется значение логического выражения, если оно False, то операторы, входящие в цикл, выполняются, в противном случае осуществляется выход из цикла.
Отметим, что нижняя граница операторов циклической части четко обозначена словом Until, поэтому нет необходимости заключать операторы циклической части в операторные скобки Begin .. End.
Задача 6 –––––––––––––––––––––––––––––––––––––––––––––––––––
Вычислить сумму натуральных чисел от 1 до 50, используя цикл с постусловием. Полученный результат вывести на экран.
Составим структурный план задачи:
1. Начальное значение счетчика_цикла = 0;
2. Начальное значение Суммы = 0;
3. Повторять
Счетчик_цикла увеличить на единицу;
К Сумме прибавить значение счетчика_цикла;
Пока значение счетчика_цикла не станет = 50
4. Вывод ответа на экран;