Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Оператор цикла по счетчику (цикл с параметром )Оператор цикла с параметром (смотри рис. 2) исполняется, если число повторений цикла заранее известно.
Рис. 2. Синтаксическая диаграмма оператора цикла с параметром
Данный оператор называют «циклом с параметром», так как число повторений подсчитывается в переменной, называемой параметром цикла. На синтаксической диаграмме: идентификатор переменной – параметра цикла – это имя, описанное в разделе VAR дискретного типа (Boolean, integer, char, byte и т. д.). В ней подсчитывается число повторений цикла; Выражение 1, Выражение 2 – выражения, определяющие соответственно начало и конец значения параметра цикла; по типу должны совпадать с типом параметра цикла (обозначим их соответственно Выр. 1 и Выр. 2); to – означает возрастание параметра цикла (Выр. 1 > Выр. 2) с шагом 1; downto – убывание параметра цикла (Выр. 1 > Выр. 2) с шагом 1; оператор – любой оператор Р (в том числе и составной). Порядок выполнения цикла for: 1. Переменной – параметру цикла присваивается значение Выражения 1. 2. Выполняется оператор. 3. Параметр увеличивается (уменьшается) на 1. 4. Значение параметра сравнивается с Выражением 2. Цикл прекращается, выполняется следующий за ним оператор: – если значение параметра < Выражения 1 (для to); – если значение параметра > Выражения 2 (для downto); иначе повторяются действия, начиная с п. 2. П р и м е р 1. Вычислить n! (1* 2 * 3 * 4 … * n). program fact_1; Var i,n:integer; {i -пар-р цикла, n - его кон.занч.} f:longint; {результат} Begin write(' Введите n ');
|