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

[Ксенька89]

Помогите пожалуйста задачу решить

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

[Ксенька89]

Никто не хочет помочь)(

[mihali4]

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

Нужно просто проверить, какой цвет у этой точки экрана.
Намек:

var
  DC: HDC;
  Color: Cardinal;
begin
  DC := CreateDC('MONITOR', nil, nil, nil);
  Color := GetPixel(DC, 300, 300);
  DeleteDC(DC);
end;

[Ксенька89]

Не не не это не то). Тут же ввести две координаты и радиус и определить попадет ли точка внутрь круга и полукруга))

[DomiNick]

Уравнение окружности:

X*X+Y*Y=R*R

[Evelin S]

Мы такое делали на QuickBASIC))
попадает ли точка внутрь круга, вычисляется по формуле
x^2+y^2<R^2
например, попадает ли точка в круг радиусом 2 (центр круга находится в начале координат)
INPUT "X,Y"; X,Y
IF X^2+Y^2<4 THEN ?"YES" OR ?"NO"

Если нужно вычислить, попадает ли точка в полукруг, то просто надо дополнительно задать ограничения на x и y
например, то же задание, но только x и y принадлежат 1-й и 4-й четвертям оси координат (R вводится с клавиатуры)

INPUT "X,Y"; X,Y
INPUT "R="; R
IF X^2+Y^2<R^2 AND X>0 THEN ?"YES" OR ?"NO"

[Evelin S]

Если центр круга находится не в начале координат, то формула такая
(x-x1)^2+(y-y1)^2<R^2, где x1,y1 - координаты центра круга

[DomiNick]

Ну вот примерный смысл такой:

// вводим X
// вводим Y
// вводим R
If ((x+r)*(x+r)+(y+r)*(y+r)<=(r*r)) Or (((x-r)*(x-r)+(y)*(y)<=(r*r)) And (y>=0)) Then
      // попадание
Else
      // промах

[Serge_Bliznykov]

ну. как то так:

пусть у нас есть радиус R и координаты точки (X,Y)
 {вычисляем координаты центров окружностей}
 X1 := -R; Y1 := -R;
 X2 := R; Y2 := 0;
{проверка на попадание в нужные четверти системы координат}
if (X*Y)<0 then WriteLn('Точка НЕ принадлежит области (и даже в нужные четверти системы координат не попала!')
else
   begin
     if (sqrt(sqr(X1-X)+sqr(Y1-Y))<=R) or (sqrt(sqr(X2-X)+sqr(Y2-Y))<=R) then WriteLn('Точка в красной области')
     else WriteLn('Точка не принадлежит области')
   end;