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

Условие выполнения цикла проверяется до начала. Цикл выполняется, пока условие истинно. Цикл While не выполняется ни разу, если условие ложно.

Формат записи оператора цикла с предусловием имеет следующий вид:

WHILE условие DO оператор1;

Описание конструкции: «До тех пор, пока условие верно, выполнять оператор 1».

Схема работы оператора приведена на рисунке 6.3.

Условие записывается относительно параметра. Если в теле цикла необходимо выполнить несколько операторов, то они заключаются в блок c помощью операторных скобок.

Рисунок 6.3 – Структурная схема оператора цикла с предусловием

Пример

Программа подсчитывает сумму до введенного пользователем числа:

Program Summa_While;

Var

I, N: Integer;

S: Real;

Begin

Write('Введите N = ');

Readln(N);

S:=0;

I:=1;

While I<=N Do

begin

S:=S + I / 2;

I:=I+1;

end;

Writeln ('Cумма = ', S:3:2);

Readln;

End.