Выяснить, принадлежит ли точка Р(х, у) заштрихованной области

@Владими58 · Регистрация: 26.11.2020

Author24 — интернет-сервис помощи студентам

Выяснить, принадлежит ли точка Р(х, у) заштрихованной области. Не совсем понимаю как это сделать в Лазарусе

@snake32 · 10.10.2021, 13:51

1) x^2 + y^2 = R^2 - это уравнение окружности
то есть из уравнения можно получить радиус окружности (просто взять квадратный корень из 4 и 25 соответственно)
Rmin = sqrt(4) = 2
Rmax = sqrt(25) = 5

2) Из координат точки можно узнать радиус окружности на которой она лежит
Rpoint = sqrt( x*x + y*y ), где x,y - координаты точки

3) Теперь можно проверить попадает ли Rpoint между Rmin и Rmax:

Delphi

function IsInside( x,y:double ):boolean;
  const Rmin = 2; Rmax = 5;
  var Rpoint:double;
begin
  Rpoint := sqrt( x*x + y*y );
  Result := (Rmin <= Rpoint) and ( Rpoint <= Rmax );
end;

4) Осталось оставить все варианты, где y-координата точки всегда отрицательна

Delphi

function IsInside( x,y:double ):boolean;
  const Rmin = 2; Rmax = 5;
  var Rpoint:double;
begin
  Rpoint := sqrt( x*x + y*y );
  Result := (Rmin <= Rpoint) and ( Rpoint <= Rmax ) and (y <= 0);
end;

@Владими58 0 / 0 / 0 Регистрация: 26.11.2020 Сообщений: 24
		1
	Выяснить, принадлежит ли точка Р(х, у) заштрихованной области 10.10.2021, 13:21. Показов 1672. Ответов 1 Метки delphi, lazarus, object pascal, pascal (Все метки) Выяснить, принадлежит ли точка Р(х, у) заштрихованной области. Не совсем понимаю как это сделать в Лазарусе Изображения 0

	10.10.2021, 13:51

Выяснить, принадлежит ли точка Р(х, у) заштрихованной области

Решение