1. Оператор цикла с параметром

Используется, когда известно, сколько раз выполняется циклическая часть программы.

for <параметр цикла>:=<начало> to/downto <конец> do <оператор>;

для до делать

параметр цикла - числовая переменная типа integer

начало, конец - арифметическое выражение

to - используется когда начало меньше конца

downto - используется когда начало больше конца

оператор - тело цикла, любой оператор, в том числе и составной

Принцип работы:

• Параметру присваивается значение начало;

• Выполняется оператор - тело цикла;

• Затем параметр сравнивается с концом;

• Если параметр больше/меньше конца, то начинает работать следующий оператор за оператором цикла, в противном случае к параметру прибавляется/отнимается единица;

• Снова выполняется оператор;

• Так продолжается пока параметр не станет больше/меньше конца.

2. Цикл с предварительным условием

while <условие> do <оператор>;

пока делать

условие - логическое выражение

оператор - любой оператор, в том числе и составной.

Принцип работы:

• Проверяется истинность условия;

• Если условие истинно выполняется оператор;

• Цикл работает, пока условие не станет ложным.

3. Цикл с последующим условием

repeat <операторы> until <условие>

повторять до тех пор пока

условие - логическое выражение

операторы - любое количество любых операторов, в том числе и составной.

Принцип работы:

• Выполняются все операторы между repeat и until;

• Проверяется ложность условия;

• Цикл работает, пока условие не станет истинным.

Особенности и отличия операторов цикла

• Вход в цикл возможен только через его начало;

• Переменные оператора должны быть определены до входа в цикл;

• Необходимо предусмотреть выход из цикла, чтобы он не повторялся бесконечно;

• Оператор while repeat может ни разу не выполнится;

• оператор repeat обязательно выполниться хотя бы раз.

Примеры программ

Написать программу, которая выводит на экран табл. умножения, например на 7.	Program M4; Var m,n,p:integer; Begin For i:=1 to 10 do Writeln(7,’*’,I:2,’=’,7*I:2); end.
Написать программу, которая выводит табличные значения функции у=x+2. Диапазон изменения аргумента от – 4 до 4, приращение аргумента - 0.5	Program M5; var x,y:real; begin clrscr; writeln('y':20,' : ','x':5); writeln(' --------------'); x:=-4; repeat y:=abs(x)+2; writeln(y:20:1,' : ',x:5:1); x:=x+0.5; until x>4; end.
Написать программу, которая определяет максимальное число из введенной последовательности положительных чисел. Завершение ввода – 0.	Program M6; Var a{очередное число},m{макс.число}:integer; Begin M:=0; Repeat Writeln(‘введи число’);Readln(a); If a>m then m:=a; Until a=0; Writeln(‘max=’,m); end.