определить принадлежность точки закрашенной области

[Hikerr]

заданы координаты n точек на плоскости (xi,yi), i=1,2,...,n. Определить, сколько из них принадлежит заштрихованной области. Где (xi u yi) координаты с нижним индексом "i"

[ViktorR]

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

if ((((y>=0) and (x >= -1)) OR ((x >= 0) and (y >= -1))) and (sqr(x) + sqr(y) <= sqr(R))) then ...

R - радиус окружности.





Как-то так, ...

[Hikerr]

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

[BDA]

Hikerr, а Вы покажите свою попытку. Поправим, что не так.

[Hikerr]

var x,y,l:real;
begin
write ('vvedite x='); read(x);
write ('vvedite y='); read(y);
if (x*x+y*y<=l*l)and(x>=-1)and(y>=-1)and not(x<0) and (y<0)
then write ('yes') else write ('no');
readln;
readln;
end.

[BDA]

var
  x, y, r: real;
begin
  write('Input x, y, r = ');
  readln(x, y, r);
  if (x*x + y*y <= r*r) and (x >= -1) and (y >= -1) and not((x < 0) and (y < 0)) then
    writeln('yes')
  else
    writeln('no');
  readln;
end.

Введите 3 числа и нажмите enter.

Это упрощенный вид программы, а Вам нужен:

var
  n, i, count: integer;
  x, y, r: real;
begin
  count := 0;
  write('Input r, n = ');
  readln(r, n);
  for i := 1 to n do
  begin
    readln(x, y);
    //увеличение счетчика по условию
  end;
  writeln(count);
  readln;
end.

[Hikerr]

спасибо большое, а как работает 2 ой код

[BDA]

Пожалуйста.
Второй код пока никак не работает.
Во-первых, поскольку из рисунка не получается узнать радиус, то он запрашивается.
Во-вторых, запрашивается количество точек.
В-третьих, в цикле считываются пары чисел.
Затем Вы должны правильно вставить условный оператор из первого кода во второй, чтобы счетчик count увеличивался только в случае попадания точки в область.
После обработки всех пар на экран печатается значение счетчика.

[Naive]

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