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

[AlexP777]

Здравствуйте,

Прошу помочь, забыл формулу для вычисления(точнее не знаю).

Задача:
По заданным координатам точки X и Y определить ее принадлежность заштрихованной области (включая границы).
Скриншот фигуры прилагаю.

[Stilet]

if
  ( (x>0) and (sqrt(x*x+y*y)<=r))
or
  ((x<0) and (abs(x)<=A) and (abs(y)<=r) )
Тхен
 ...

Так-то как-то...

[AlexP777]

не совсем разобрался

там надо вывести принадлежит да/нет
это тип данных boolean, но A, R, x,y это же real.

как это правильно оформить?
да, еще какие значения придавать x, y? вводить значения с клавы или задать их?

вот что сделал, но выводит в что точка не пренадлежит либо ничего не выводит - т.е. надо где-то в цикле написать вывод этой фразы...

program lab2;
var x, y, r, a : real;
begin
writeln ('Wrtite value fot x, y, R and A');
readln (x, y, r, a);
if ((x>0) and (sqrt(x*x+y*y)<=r)) 
  or ((x<0) and (abs(x)<=A) and (abs(y)<=r))
    then (writeln ('Point not belong in this figure'))
end.

[Stilet]

это тип данных boolean, но A, R, x,y это же real.

И что? В операторах условия они будут сравниваться и на основе сравнения будет выполняться та или иная ветка.

вводить значения с клавы или задать их?

Зависит от твоей фантазии.

вот что сделал

Во-первых: Фразы ты перепутал.
Во-вторых: фраза "не пренадлежит" должна быть после else условия, а ты его не описал, поэтому

либо ничего не выводит

В-третьих: тестируй программу на заранее известных точках, которые дадут определенный правильный результат, о котором тебе известно заранее.

[AlexP777]

по поводу третего - таких точек не задано.

program lab2;
var x, y, r, a : real;
begin
writeln ('Wrtite value fot x, y, R and A');
readln (x, y, r, a);
if ((x>0) and (sqrt(x*x+y*y)<=r)) 
  or ((x<0) and (abs(x)<=A) and (abs(y)<=r))
    then (writeln ('Point belong in this figure')) else (writeln ('Point not belong in this figure'))
end.

ничего не попутал? действительно, жаль, что не заданы такие точки.

[BDA]

AlexP777, как это не заданы? У Вас есть область, по которой Вы сами должны взять точки, лежащие внутри или снаружи.

[Stilet]

ничего не попутал?

Похоже на правду, но в конце программы readln не помешает.

[AlexP777]

AlexP777, как это не заданы? У Вас есть область, по которой Вы сами должны взять точки, лежащие внутри или снаружи.

я подбирал правдоподобные графику точнее сказать

Похоже на правду, но в конце программы readln не помешает.

спасибо

правда не могу подобрать точки для ответа да и для нет
например, x,y 20
R 9
A 8
либо если поменять значения R и A ответ не меняется.

[BDA]

Все правильно:
При х=20 у=20 а=8 r=9 - нет
При х=20 у=20 а=9 r=8 - нет

Посмотрите внимательнее на область и найдите точку, которая принадлежит всегда (при любых неотрицательных a и r).

[AlexP777]

спасибо большое за последнюю фразу.
например, X and Y -2
R and A 10
при этом R фактически не может быть отрицательным(это ведь радиус). даже если бы мог - не в тех четвертях лежит.

еще раз благодарю.