7.3. Оператор цикла While

Он имеет вид

While логическое выражение Do оператор₁;

Пока логическое выражение принимает значение «истина», будет повторяться оператор 1. В этом цикле проверка на окончание цикла производится до выполнения оператора₁ и, если логическое выражение примет значение ложно, цикл заканчивает свою работу. В остальном – этот оператор похож на оператор Repeat. Давайте посмотрим, как предыдущий фрагмент программы будет выглядеть, если оператор Repeat заменить на оператор While:

h:=(b-a)/10; // Расчет шага по x

x:=a; // Подготовка цикла по x

While x<=b Do Begin // Начало цикла по x и проверка окончания цикла

y:=0; // Подготовка цикла по i

For i:=1 to n Do if i<>j then y:=y+sin(i*x)/(i-j); // Расчет суммы

// Вывод результатов

Memo1.lines.Add(’x=’+floattostr(x)+’ y=’+floattostr(y));

x:=x+h; // Наращивание переменной цикла по x

end;

Как видим, этот фрагмент программы уменьшился еще на один оператор.