§ 17. Оператор цикла

Цикл while удобен, когда число повторений заранее неизвестно. Сначала проверяется условие. Если оно истинно, выполняется тело, затем проверка повторяется. Если ложно уже при входе, тело пропускается.

Внутри цикла должны изменяться данные, влияющие на условие, либо должна существовать другая понятная причина завершения. Например, x := x + 1 приближает x к верхней границе. Если x не меняется при истинном x < 5, цикл может стать бесконечным.

x := 1;
while x <= 5 do
begin
  writeln(x);
  x := x + 1;
end;

Конструкция for i := a to b do проходит значения от a до b включительно, увеличивая параметр на единицу. При a > b возрастающий цикл не выполнится. Для убывания используют downto; там при a < b повторений не будет.

При a <= b возрастающий цикл содержит b − a + 1 повторений. Параметр не следует самостоятельно изменять внутри тела: его изменением управляет цикл. Для нескольких действий также используют begin и end. Вывод таблицы умножения от 1 до 9 требует девяти повторений.

Чтобы нарисовать ряд одинаковых окружностей радиуса r без промежутков, центры сдвигают на 2r. Если первый центр имеет x = r, левый край находится в нуле. Для полного попадания в окно ширины W проверяют x + r <= W − 1, а не только положение центра.

Во вложенных квадратах координаты углов смещают внутрь, а сторона уменьшается. Если с каждого края отступить a, новая сторона меньше на 2a. Перед очередным рисунком нужно проверить, что размер остаётся положительным. Повторение команды без изменения параметров нарисует фигуру поверх прежней.

В таблице трассировки записывают номер шага, значение счётчика, результат условия и полезный результат. Для while последняя проверка ложна и уже не сопровождается выполнением тела. Для for важно учитывать обе границы.

Проверьте пустой диапазон, одно повторение и несколько повторений. При поиске максимального подходящего числа перебор удобно вести сверху вниз, прекращая поиск при успехе. Если подходящего значения нет, программа должна сообщить об этом, а не выдавать случайное число.