попадет ли точка с заданными координатами в заштрихованную область на рисунке (Паскаль)

[arshavin]

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


и для 2-го вложения дайте формулы для выделенных участков
Составить алгоритм и написать программу, которая по введенному значению аргумен-та вычисляет значение функции, заданной в виде графика.

заранее спасибо

program Igor;
var value,a,b,x,y,r: real;
begin
 writeln('Ignatovich 205');
 write('vvedite a='); readln(a);
 write('vvedite b='); readln(b);
 write('vvedite radius='); readln(r);
 write('vvedite koordinaty x='); readln(x);
 write('vvedite koordinany y='); readln(y);


writeln('popadaet') else writeln('ne popadaet');
readln;
end.

что-то не получается у меня
говорит неверное выражение
скажи что сюда дописать плз


___________
последний раз изменяю тему и оформляю код тегами, как положено.
В следующих раз темы с подобным названием будут удаляться или закрываться!

Модератор.

[val_nnm]

1) Примерно както так.

  if ((x>0)and(y>0)) then
    if ((x<=a)and(y<=b)and((x*x+y*y)>=(r*r)) then Begin
      // Тут код если попало в верхнюю правую
    End;
  Begin
  End else if ((x<=0)and(y<=0)) then Begin
    if ((x>=-a)and(y>=-b)and((x*x+y*y)<=(r*r)) then Begin
      // Тут код если попало в нижнюю левую
    End;    
  End;

(на рисунке видимо ошибка. слева должно быть написанно -a вместо -b)

[val_nnm]

Я смотрю вы изменили свой пост.
Пишите примерно так

program Igor;
var a,b,x,y,r: real;
     popadeniye:boolean;
begin
  writeln('Ignatovich 205');
  write('vvedite a='); readln(a);
  write('vvedite b='); readln(b);
  write('vvedite radius='); readln(r);
  write('vvedite koordinaty x='); readln(x);
  write('vvedite koordinany y='); readln(y);

  popadeniye := false;
  if ((x>0)and(y>0)) then
    if ((x<=a)and(y<=b)and((x*x+y*y)>=(r*r)) then Begin
      popadeniye := true;
    End;
  Begin
  End else if ((x<=0)and(y<=0)) then Begin
    if ((x>=-a)and(y>=-b)and((x*x+y*y)<=(r*r)) then Begin
      popadeniye := true;
    End;    
  End;
  if (popadeniye) then
    writeln('popadaet')
  else
    writeln('ne popadaet');
  readln;
end.

PS Писал без проверки, поэтому могут быть ошибки.

[arshavin]

ругается на какую-то призрачную скобку...
хз куда ставить..
ужас блин

[val_nnm]

А если так?

if ((x<=a)and(y<=b)and((x*x+y*y)>=(r*r))) then Begin
...
if ((x>=-a)and(y>=-b)and((x*x+y*y)<=(r*r))) then Begin

[arshavin]

спасибо!!!