Составить блок-схему и написать программу.

В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a, b).

Для каждой точки нужно проверить условие:

\[(x-a)^2+(y-b)^2\leq R^2\]

Если оно выполняется, точка лежит внутри круга или на его границе.

Блок-схема:
Начало → ввод \(N, R, a, b\) → \(k=0\) → ввод \(x, y\) → проверка условия → при «да» увеличить \(k\) на 1 → следующая точка → вывести \(k\) → Конец.

Программа на Pascal:

program Krug;
var
  n, i, k: integer;
  x, y, a, b, r: real;
begin
  readln(n, r, a, b);
  k := 0;
  for i := 1 to n do
  begin
    readln(x, y);
    if (x - a) * (x - a) + (y - b) * (y - b) <= r * r then
      k := k + 1;
  end;
  writeln(k);
end.

0 0 Пожаловаться