[xrumas]

Определить принадлежность точки с координатами (x,y) заштрихованной области. Координаты точки вводятся пользователем.

В прикрепленном архиве программа, работает, определяет, НО область от (-5,0) до (0,5) не правильно определяеться.

Кусок проверки области:

Код:

begin //proveryaem prinadlezhnost'
if ((x>=-5) and (x<=0) and (y<=0) and (y+x>=-5)) \\ область от (0,-5) до (5, 0)
or ((x>=-5) and (x<=0) and (y>=0) and (y+x>=-1)) \\область от (-5,0) до (0,5)
or ((x<=5) and (x>=0) and (y<=sqrt(25-sqr(x))) and (y>=0)) \\область от (5, 0) до (0, 5)

then label5.Caption:= 'Принадлежит'
else label5.caption:= 'Не принадлежит';

[Bargest]

Конечно неправильно.

Код:

 (y+x>=-5)) \\ область от (0,-5) до (5, 0)
 (y+x>=-1)) \\область от (-5,0) до (0,5)

Вообще-то там в одной части уравнение прямой y=-x-5, а в другой y=x+5. И область во втором случае лежит ниже прямой.