попадание точки в закрашенную область

[pomchik]

Будьте добры помогите решить!
вот задание:
Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Вывести на экран рисунок с точкой в указанных координатах и текстовое сообщение о результате.
график прикрепил

[Serge_Bliznykov]

Какой язык программирования? Где Ваши наработки? Что именно не получается?

разбивать проверку в зависимости от координатной четверти, куда точка попадает...

а вообще, условия попадания точки в пределы окружности, это когда расстояние от этой точки до центра окружности: sqrt(sqr(x-x0) + sqr(y-y0)) <= R (если попадание на границу окружности считается, что точка принадлежит окружности, тогда должно быть нестрогое равенство (меньше-равно), если же граница окружности не принадлежить заштрихованной области - тогда неравенство строгое (строго расстояние должно быть меньше R)..

[pomchik]

язык - паскаль ! нароботок никаких,т.к. времени разобраться не имею,иначе сам бы написал !
а прошу написать полность программу(задание выложил)!
люди позарес нада!
заранее спасибо

[p51x]

тогда во фриланс и за деньгу

[pomchik]

просто понимешь,если человек в етом деле разбирается ему не составит труда помочь себе подобному

[savva]

"себе подобному" помощь вряд ли понадобится,понимаешь?

[pomchik]

Сообщение от savva

"себе подобному" помощь вряд ли понадобится,понимаешь?

ах да,как же я мог забыть!? умников вроде тебя,прошу не отвечать,если по существу сказать нечего!

[Stilet]

Это что всем так охота пофлудить?
Что хорошие манеры в наше время уже не в моде?

pomchik

Не проверял но предполагаю:

 var x,y,r:double;
begin
 r:=2;
 x:=1;y:=1;
 if
     ((sqrt(sqr(x)+sqr(y))<=r)and (x>=0)and(y>=0))
  or ((sqrt(sqr(x)+sqr(y))>=r)and (x<0)and(y<=0)and(x>=-r)and(y>=-r))
 then write('Popala') else write('nea');
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

[Serge_Bliznykov]

((sqrt(sqr(x)+sqr(y))<=r)and (x>=0)and(y>=0))

это точно неправильно. Расстояние нужно брать от центра окружности, а он не совпадает с началом координат.

второе условие не проверял...

[Stilet]

((sqrt(sqr(x+R)+sqr(y))<=r)and (x>=0)and(y>=0))