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

6. 6. 2. Оператор цикла с предусловием while

Данный оператор имеет вид:

while p do s;

При его выполнении сначала вычисляется логическое выражение p (условие), в случае истинности которого выполняется оператор s (являющийся, как правило, составным оператором). После этого вычисление условия, его проверка и выполнение оператора s повторяется до тех пор, пока выражение p не станет равным false. Тогда управление передается следующему (после while) оператору в программе. Если условие pравноfalse с самого начала, оператор s, который называется телом цикла, не выполняется ни разу.

Использованные здесь ключевые слова while и do имеют смысл пока и выполнить, соответственно.

В качестве примера использования оператора whileприведем программу вычисления числа π по формуле Грегори

с точностью 0. 5·10^-7:

program calcpi;

const

c = 0. 5E – 7;

var

a, sum: real;

sign: integer;

n: longint;

begin

sign: = -1;

sum: = 1. 0;

a: = 1. 0;

n: = 1;

while abs(a) > c do

begin

a: = sign / (2 * n – 1);

sum: = sum + a;

sign: = - sign;

n: = n + 1;

end;

sum: = 4 * sum;

write (’pi =’, sum);

end.