§ 16. Оператор ветвления

Полная форма: if условие then действие1 else действие2. При true выполняется первая ветвь, при false — вторая. Неполная форма не содержит else: если условие ложно, программа просто продолжает работу после if.

Если в ветви несколько команд, их объединяют begin и end. Перед else точку с запятой не ставят. Отступы не заменяют скобки, но помогают увидеть структуру. Условие вычисляется в тот момент, когда выполнение доходит до if.

if x >= 0 then
  writeln('Неотрицательное')
else
  writeln('Отрицательное');

Для сравнения a и b нужны три возможных результата: a > b, a < b и равенство. Цепочка if … else if … else выбирает один из них. Два самостоятельных if работают иначе: каждый проверяется отдельно, поэтому обе проверки могут привести к действиям.

Вложенный else относится к ближайшему if без собственного else. Чтобы не перепутать структуру, используйте begin и end. При моделировании меняющегося сигнала можно выбирать цвет по чётности целой минуты, но правило изменения должно быть задано в условии задачи.

Трёхзначное натуральное число лежит от 100 до 999. Сотни получают n div 100, десятки — (n div 10) mod 10, единицы — n mod 10. Если разрешить отрицательные числа, правила обработки знака нужно определить отдельно.

При сравнении расстояний от точки до двух объектов можно сравнивать квадраты расстояний: (x − a)² + (y − b)². Для неотрицательных расстояний это сохраняет порядок и избавляет от вычисления корня. Не забывайте случай одинаковой удалённости.

Для круга с центром (cx; cy) вычисляют d² = (x − cx)² + (y − cy)². Внутри окружности радиуса r выполняется d² < r², на ней — равенство, вне — d² > r². Нестрогое сравнение включает границу.

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

d2 := sqr(x - cx) + sqr(y - cy);
if (d2 = sqr(r1)) or (d2 = sqr(r2)) then
  writeln('Граница')
else if d2 < sqr(r1) then
  writeln('Внутренний круг')
else if d2 < sqr(r2) then
  writeln('Кольцо')
else
  writeln('Снаружи');