Ограниченная область Опции

[Tribunal]

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

write(' tochka x=');read(x1);
  write (' y=');read(y1);
  if ((x1>-a) or (x1=-a)) and ((y1>-b) or (y1=-b)) and
  ((x1<-sqrt(a*a-y1*y1)) or (x1=-sqrt(a*a-y1*y1))) and
  ((x1<sqrt(a*a-y1*y1))or (x1=sqrt(a*a-y1*y1))) and
  ((y1>b/a*x1-b) or (y1=b/a*x1-b))
  then writeln('Tochka prinadlejit oblasti')
  else writeln('Tochka ne prinadlejit oblasti');

Сообщение отредактировано: volvo - 3.11.2006 20:35

[volvo]

А так:

if
  ((y >= 0) and (sqr(x)+sqr(y) <= sqr(a))) or
  (((y < 0) and (y > -b)) and ((x <= 0) and (x > -a))) or
  (((x > 0) and (y < 0)) and (3*x - 2*y <= 6)) then writeln('yes') 
  else writeln('no');

?

[Tribunal]

а вот здесь

3*x - 2*y <= 6

имелось в виду bx-ay=ab...то бишь уравнение прямой в отрезках?

[volvo]

Да, имелось в виду

(b*x - a*y <= a*b)

Я просто попробовал подставить конкретные значения, и так и оставил

[Tribunal]

Я просто попробовал подставить конкретные значения, и так и оставил

ясно=)