Определение значения системы в заштрихованной области pascal

[neomax38]

Пусть D - заштрихованная часть плоскости и пусть задана точка своими координатами (X,Y). Запись (X,Y) D означает, что точка с координатами X, Y лежит внутри заштрихованной области D. Определить значение функции U следующим образом:

[Stilet]

Ну узнай полярные координаты точки и посмотри попадает ли ее угол в сектор, и не превышает ли радиус 1-цу.
Покажи формулы, или наработки.

Вот я даже вспомнив молодость могу такое показать:

  var p,a,x,y:double;
begin
 x:=0.1;
 y:=0.7;
 p:=sqrt(x*x+y*y);
 if p>1 then write('no')
 else begin
  a:=ArcCos(x/p)*180/pi;
  if (a>=45)and(a<=(45+90)) then write('yes')
  else write('no');
 end;
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

А тебе дом. задание - разобраться во всем этом, взяв http://ru.wikipedia.org/wiki/%D0%9F%...B0%D1%82%D1%8B
Или учебник математики

[neomax38]

Вот так проще будет

 var u,x,y:real;
begin
write('vvedite koordinati tochki po x:= ');
 readln(x);
write('vvedite koordinati tochki po y:= ');
 readln(y);
 if (x*x+y*y<1)and(y>x)and (y>-x) then
 begin
 writeln('vhodit');
 u:=abs(x*x-1);
 writeln('u = ',u:5:2);
 end   else
 begin
 writeln('ne vhodit');
  u:=x-y;
 write('u = ',u:5:2);
 end;
   { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.