Определить принадлежность точки заданной области - Pascal (4544)

Формулировка задачи:

Определите, принадлежит ли точка А, заданной координатами (х, y), части плоскости, ограниченной отрезком оси абсцисс от 0 до П и синусоидой y=|sin(2x)|

Решение задачи: «Определить принадлежность точки заданной области»

Листинг программы

var x, y: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if (x >= 0) and (x <= 2 * pi) and (y >= 0) and (y <= abs(sin(2 * x)))
    then write('Принадлежит')
    else write('Не принадлежит');
  readln
end.

Объяснение кода листинга программы

Объявляются две переменные типа real: x и y.
Выводится сообщение «x = », после чего считывается значение переменной x.
Выводится сообщение «y = », после чего считывается значение переменной y.
Вычисляется значение выражения 2 * pi.
Вычисляется значение выражения abs(sin(2 * x)).
Проверяется условие: x >= 0 и x <= 2 pi и y >= 0 и y <= abs(sin(2 x)).
Если условие выполняется, то выводится сообщение «Принадлежит», иначе выводится сообщение «Не принадлежит».
Выводится символ новой строки с помощью функции readln.