/ Теория / Информатика / Лекция 5. Операторы повторения (цикла)
Операторы цикла используются для многократного повторения аналогичных вычислений.
Для организации цикла в ТП имеются три различных оператора.
- Счетный
оператор цикла For:
For <параметр цикла>:=<начальное значение> to <конечное значение> do Р;
P- простой или составной оператор.
При каждом прохождении цикла < параметр цикла >, начиная с <начального значения>, увеличивается на единицу. Цикл выполняется, пока <параметр цикла> не станет больше <конечного значения>.
Другой вариант записи оператора For:
For <параметр цикла >:=< начальное значение> downto <конечное значение> do Р;
В этом случае при каждом прохождении цикла < параметр цикла > уменьшается на единицу от <начального значения> до <конечного значения>.
- Оператор цикла
While с проверкой предусловия:
While <условие> do P; {Пока выполняется условие, делать}
Цикл выполняется, пока условие истинно (true).
- Оператор цикла
Repeat … until с проверкой постусловия:
Repeat P until <условие>; {Выполнять до тех пор, пока не будет выполнено условие}
Цикл выполняется, пока условие ложно (false).
Пример.
- Постановка задачи. Найти сумму 5 целых чисел от 1 до 5. Написать программы для определения суммы с помощью трех рассмотренных операторов цикла.
- Математическое описание.
- Структограммы и программы для каждого оператора цикла приведены в таблице:
Таблица
Структограммы и программы
|
Цикл For … |
While… |
Repeat… |
|
3.1.
|
3.2
|
3.3
|
|
4.1: Program P2; Var i,S:integer; Begin S:=0; For i:=1 to 5 do S:=S+i; Writeln(‘S=’,S:5); End. |
4.2: Program P2; Var i,S:byte; Begin S:=0; i:=1; While i<=5 do Begin S:=S+i; I:=i+1; End; Writeln(‘S=’,S); End. |
4.3: Program P3; Var i,S:integer; Begin S:=0; i:=1; Repeat S:=S+i; I:=i+1; Until i>=6; Writeln(S); End. |
