Заштрихованная окружность

[yzen]

Пусть D - заштрихованная часть плоскости (рис.3, а - е) и пусть U определяется по x и y следующим
образом (запись(x, y)Є D означает, что точка с координатами x, y принадлежит D):

С квадратом легко,а с окружностью,что то не получается.

[Sciv]

Проверка принадлежности точки кругу:

X^2+Y^2<=R^2 (в Вашем случае откидывются все Y<0)

Идея понятна?

[yzen]

X^2+Y^2<=R^2
вот это находил
а что бы еще исключить кусочек, 0.3

uses crt;
var
x,y,u,r:real;
begin
write('Введите x,y ');
readln(x,y);
if (x*x+y*y<=1) and ((x<0)or(x>0.3)) then writeln('Принадлежит')
else writeln('Ошибка');


end.

Так вроде

[Sciv]

Так вроде

Не так. Точка x=0.2 и y=0.5 принадлежит области, но не в Вашей программе.

Правильно так:

if ((x>0) and (y>0) and (x*x+y*y<0.3*0.3)) or (y<0) or (x*x+y*y>1) then 
  WriteLn('Не принадлежит');