Определить принадлежность точки заданной области - PascalABC.NET
Формулировка задачи:
Составить программу, определяющую принадлежит ли точка с координатами
(x; y) заштрихованной части плоскости. Координаты точки ввести с
клавиатуры.
Решение задачи: «Определить принадлежность точки заданной области»
textual
Листинг программы
var r,x,y:real;
begin
write('Радиус r=');
readln(r);
writeln('Координаты точки');
readln(x,y);
if(x*y>=0)and(x*x+y*y<=r*r)and(abs(y)>=abs(x))
then write('Принадлежит')else write('Не принадлежит')
end.
Объяснение кода листинга программы
- В начале кода объявляются три переменные типа real: r, x, y.
- Затем пользователю предлагается ввести значение переменной r с помощью функции readln().
- Далее пользователю предлагается ввести координаты точки x и y с помощью функции readln(x, y).
- С помощью условного оператора if проверяется принадлежность точки заданной области по трём условиям:
- Первое условие: произведение x и y неотрицательно.
- Второе условие: сумма квадратов x и y не превышает квадрат переменной r.
- Третье условие: модуль y больше или равен модулю x.
- Если все условия выполняются, то выводится сообщение
Принадлежит, в противном случае выводится сообщениеНе принадлежит.