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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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.

Объяснение кода листинга программы

  1. В программе объявлены переменные: n, k, i, r, dist, d, x, y.
  2. Чтение значений переменных n и r.
  3. Инициализация переменных k и d.
  4. Запуск цикла for, который выполняется n раз.
  5. Внутри цикла чтение значений переменных x и y.
  6. Вычисление расстояния от начала координат до каждой точки.
  7. Добавление расстояния к переменной d.
  8. Проверка, находится ли расстояние от точки до начала координат меньше или равно r.
  9. Увеличение значения переменной k, если условие выполняется.
  10. После завершения цикла, значение переменной d делится на n.
  11. Вывод значения переменной k и среднего арифметического расстояний от начала координат для всех заданных точек.

Оцени полезность:

7   голосов , оценка 3.429 из 5
Похожие ответы