Определить принадлежность точки заштрихованной области, включая ее границы

@Koyta · Регистрация: 12.10.2013

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

Условие:
Напишите программу, которая вводит с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы.

Pascal

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

Знаю, что код неверный, но я хотя бы попытался..:|
С этими радиусами я сильно запоролся, не могу понять, как их так вычесть, а потом найти, что точки принадлежат именно к ним.

@Puporev · 26.04.2014, 16:41

Pascal

var
  r1,r2,x,y:real;
begin
repeat;
writeln('Введите радиусы r1>r2');
readln(r1,r2);
until (r2>0)and(r1>r2);
writeln('Введите координаты точки');
readln(x,y);
if (y>=x) and (sqr(x-3.5)+sqr(y-3.5)>=sqr(r2))
and (sqr(x-3.5)+sqr(y-3.5)<=sqr(r1))
then writeln('Принадлежит') else writeln('Не принадлежит');
end.

	26.04.2014, 16:41