Сколько из точек плоскости находится в пределах круга заданного радиуса 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.
Объяснение кода листинга программы
- В программе объявлены переменные: n, k, i, r, dist, d, x, y.
- Чтение значений переменных n и r.
- Инициализация переменных k и d.
- Запуск цикла for, который выполняется n раз.
- Внутри цикла чтение значений переменных x и y.
- Вычисление расстояния от начала координат до каждой точки.
- Добавление расстояния к переменной d.
- Проверка, находится ли расстояние от точки до начала координат меньше или равно r.
- Увеличение значения переменной k, если условие выполняется.
- После завершения цикла, значение переменной d делится на n.
- Вывод значения переменной k и среднего арифметического расстояний от начала координат для всех заданных точек.