Сколько из точек плоскости находится в пределах круга заданного радиуса R с центром в начале координат - Pascal ABC

Формулировка задачи:

При заданных абсциссах X1,X2, ... , Xn и ординатах Y1, Y2, ..., Yn n точек плоскости XOY, подсчитать, сколько из них находится в пределах круга заданного радиуса R с центром в начале координат, а также среднее арифметическое расстояния от начала координат для всех заданных точек


textual

Код к задаче: «Сколько из точек плоскости находится в пределах круга заданного радиуса R с центром в начале координат - Pascal ABC»

program retdffd;
var
  n, k, i : longint;
  r, dist, d, x, y: real;
 
begin
  readln(n, r);
  
  k := 0;
  d := 0;
  for i := 1 to n do begin
    readln(x, y);
    dist := sqrt(x * x + y * y);
    d := d + dist;
    if(dist <= r) then inc(k);
  end;
  d := d / n;
  
  writeln('Количество точек, которые находятся в пределах круга: ', k);
  writeln('Среднее арифметическое расстояния от начала координат для всех заданных точек: ', d);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.429 из 5

Источник
Похожие ответы