попадание точки в область

[arshavin]

Составить алгоритм и написать программу, которая определяет, попадет ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат ра-боты программы вывести в виде текстового сообщения.

тело программы есть...

program kononyk;
var value,x,y,r: real;
begin
 writeln('Kononyk 205');
 write('vvedite radius='); readln(r);
 write('vvedite koordinaty x='); readln(x);
 write('vvedite koordinany y='); readln(y);
if ????
 then
    writeln('popadaet') else writeln('ne popadaet');
readln;
end.

[New man]

if (x<-r)or (x>r)or(y<-r)or(y>r) then
('nt pop1') else


для начала

[arshavin]

спасибо!!
помогло!

[Serge_Bliznykov]

arshavin,
что значит - "спасибо!! помогло! "

Вам же New man сказал - "ДЛЯ НАЧАЛА"!

Это не полные условия. (ну, задайте точку во второй четверти, например, x := -R/2; y:= R/2; - по схеме она не попадает,
а у Вас в коде?!

[New man]

if ((x<-r)or (x>r)or(y<-r)or(y>r))and((Y>0)xor(x>0)) then 
('nt pop1') else
  if X<0 then
       if y>=-x-r then popadaet else ne pop
    else
      if sqrt(sqr(x)+sqr(y))<=r then popadaet