Цикл со счетчиком

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

В операторе FOR обязательно указываются следующие параметры:

· имя переменной, в которой хранится число повторений цикла (переменной цикла или счетчика цикла),

· переменная цикла должна быть обязательно целого типа (Integer),

· некоторое начальное значение для переменной цикла (счетчика), которое она получает при первом выполнении цикла,

· некоторое конечное значение для переменной цикла, достигнув которое повторение цикла прекращается (условие завершения цикла).

Структура цикла, организованного с помощью этого оператора, имеет вид:

FORПеременная_цикла:=Начальное_значениеTOКонечное_значениеDO BEGIN Оператор_1; Оператор_2; … Оператор_N; END;

В вышеприведенной записи цикла FOR..TO..DO Переменная_цикла (счетчик цикла) изменяется, увеличиваясь до Конечного_значения. Переменная_цикла может изменяться в обратном направлении – убывать. Для этого необходимо заменить слово TO на DOWNTO.

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

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

Иначе говоря вычислить сумму:

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

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

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

2. От начального значения счетчика_цикла = 1 до конечного значения счетчика_цикла = 50 повторять следующее

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

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

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.

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

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