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

[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