определить принадлежность точки

[AlexP777]

помогите найти принадлежность для фигуры


пока сделал так:

program LAB2;
var x,y,R,yy,yyn : real;
begin
writeln('write x,y and R');
readln(x,y,R);
while y<0 do
  begin
    yy:=abs(x)-sqrt(2*R);
    writeln('Point belong in this figure')
  end;
or while y>0 do
  begin
    yyn:=- abs(x)+sqrt(2*R);
    writeln('Point not belong in this figure')
   end;
readln
end.

но это не правильно...

и делал так:

program LAB2;
var x,y,R : real;
begin
writeln('write x,y and R');
readln(x,y,R);
if ((y<0) and (abs(x)-sqrt(2*R))) or
  (y>0) and (- abs(x)+sqrt(2*R))
    then writeln('Point belong in this figure')
    else writeln('Point not belong in this figure');
readln
end.

но так там тоже надо задать чему второе ровно или больше/меньше

[Serge_Bliznykov]

нужно попадание в заштрихованную часть?
Забавная задачка..
для проверки условия, что точка лежит за пределами круга, очевидно, достаточно, что должно выполняться
sqr(x)+sqr(y)>sqr(R)

а вот остальное (для меня) не так очевидно.

я бы написал решение "в лоб" (пусть это будет некрасиво, но зато кондово и надёжно!)
для каждой линии написал условие прямой (4-ре уравнения) и дальше проверял знаки x и y
примерно так.

  SquarePoint := sqrt(2)*R;
  if (sqr(x)+sqr(y)>sqr(R)) and
    ( (x>0) and (y>0) and y<(-x+SquarePoint) or 
      (x<0) and (y>0) and y<(x+SquarePoint) or 
      (x<0) and (y<0) and y>(-x-SquarePoint) or 
      (x>0) and (y<0) and y>(x-SquarePoint) )
    then writeln('Point belong in this figure')
    else writeln('Point not belong in this figure');

[Mad_Cat]

Кстати на картинке квадратик со смещением
это задумка автора или кривость полиграфии?

[DiemonStar]

а вот остальное (для меня) не так очевидно.

ну, по-сути, тут система двух условий:

y < (1 - abs(X)) * R*sqrt(2)/2
y > (abs(X) - 1) * R*sqrt(2)/2

[BDA]

program LAB2;
var x, y, R : real;
begin
writeln('write x, y and R');
readln(x, y, R);
x := abs(x);
y := abs(y);
if ((x * x + y * y > R * R) and (y < - x + sqrt(2) * R)
    then writeln('Point belong in this figure')
    else writeln('Point not belong in this figure');
readln
end.

Без включения границ

[DiemonStar]

Упс. С математикой я явно накосячил)

[Serge_Bliznykov]

BDA, отличное решение. Отобразить точки в первую четверть и потом уже сравнивать с единственной прямой - это просто шик-модерн. Плюсую!

Признаюсь, долго не мог разобраться в чём соль вашего решения... пока не обратил внимание, что вы делаете abs(x) и abs(y)



справедливости ради, хочу сказать, что мой громоздкий код тоже вполне себе рабочий, только каждое сравнение y с уравнением прямой надо дополнительно в круглые скобочки взять

[Poma][a]

'Point belong in this figure'

А разве не 'Point belong to this figure'

[Serge_Bliznykov]

Сообщение от Poma][a

А разве не 'Point belong to this figure'

Разумеется, Вы правы, конечно же belong to

я не писал данный текст, скопировал из поста выше..
Да и не суть в этом, не думаю, что программа не будет сдана из-за этой ошибки!

[TinMan]

Сообщение от Poma][a

А разве не 'Point belong to this figure'

вообще-то, "The point belongs to this figure" - это как минимум )). Но есть ли смысл поправлять ошибки в английском, если их и в русском хватает? Не говоря уже о Паскале ))