Оператор цикла пока, или цикл с предусловием

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

Схема выполнения операторов имеет вид:

В цикле While <оператор> выполняется если условие верно (True), если условие ложно (False), то цикл заканчивается, т. е. цикл While повторяется пока выполняется условие. Цикл While начинается проверкой условия, поэтому, если начальное условие ложно, то <оператор> не выполняется ни разу. Для включения в тело цикла нескольких операторов применяется составной оператор: Begin <операторы> end.

Пример. В следующем фрагменте программы на Паскале вычисляется сумма конечного числа членов гармонического ряда

Суммирование прекращается, когда очередное слагаемое становится меньше ε или целая переменная i достигает значения MaxInt.

S:=0;

I:=1;

While (1/I>=Eps) Or (I<MaxInt) Do

Begin

S:=S+1/I;

I:=I+1

End;