Написать программу в паскале, определяющую, попала ли точка в область, отмеченную буквой

Question

Написать программу в паскале, определяющую, попала ли точка в область, отмеченную буквой

---

Comments

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

---

И еще, надо указывать, в область какой буквы попала?

---

В верхней части окружности область С - весь сектор или только на положительной оси Ох?

Answer 1

Var x,y:integer;
begin
readln(x,y);
if (x<0) and (y>1) and (sqr(x)+sqr(y)>4) then writeln('A')
else if (x>0) and (y>1) and (sqr(x)+sqr(y)>4) and (y>x-2) then writeln('B')
else if (sqr(x)+sqr(y)<4) and (y>1) then writeln('C')
else if (x<-2) and (sqr(x)+sqr(y)>4) and (y>0) and (y<1) then writeln('D')<br>else if (sqr(x)+sqr(y)<4) and (x<0) and (y>0) and (y<1) then writeln('E')<br>else if (sqr(x)+sqr(y)<4) and (x>0) and (y>0) and (y<1) then writeln('F')<br>else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y>x-2)   then writeln('G')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (yelse if (sqr(x)+sqr(y)>4) and (x<0) and (y<0) and (y>x-2) then writeln('I')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y>x-2) then writeln('J')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y>x-2) then writeln('K')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y<x-2) then writeln('L')<br>else if (sqr(x)+sqr(y)>4) and (x>0) and (y<0) and (y<x-2) then writeln('M')<br>else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y<x-2) then writeln('N')<br>else if  (y>1) and (yelse writeln('Точка не лежит ни в одной из областей');
end.