Определите, имеется ли в заданном множестве точек ** плоскости хотя бы одна,...

Question

Определите, имеется ли в заданном множестве точек на плоскости хотя бы одна, принадлежащая заштрихованной на рисунке области (на рисунках даны окружности с единичным радиусом и парабола y=x^2)
Рисунок Г, пожалуйста

---

Answer 1

Var x,y,z: real;
begin
  write('координаты точки  x y через пробел: ');
  readln(x,y);
// парабола
//  (y<=sqr(x)) ;<br>// полукруг
//  ((sqr(x)+sqr(y))<=1) <span>and (y>0);  
// сектор
//  (-sqrt(sqrt(1.25)-0.5)//  and ((y>sqr(x) and (y  z:=sqrt(sqrt(1.25)-0.5);
  if (y>0) and ((y>=sqr(x)) or ((sqr(x)+sqr(y))<=1)) and<br>  (not ((-zsqr(x)) and (y     writeln('принадлежит области')
  else writeln('не принадлежит области');
end.

координаты точки  x y через пробел: 0.5  0.8
не принадлежит области

координаты точки  x y через пробел: 0.62  1.0
принадлежит области

Comments

Исправить надо (y>0) на (y>=0), иначе ось OX не войдет в заштрихованную область.