Определить, в каком числе случаев расстояние между одной из точек и точкой ХТ, YТ превышает заданную величину В

@banger1 · Регистрация: 16.09.2024

Студворк — интернет-сервис помощи студентам

При заданных ХТ, YТ, абсциссах X1,X2, … ,Xn и ординатах Y1,Y2, … ,Yn n точек плоскости X0Y определить, в каком числе случаев расстояние между одной из таких точек и точкой с координатами ХТ, YТ превышает заданную величину В, и найти средние координаты для заданной совокупности точек, исключая точку (ХТ, YТ).

Не могу понять,как это решать

@Cyborg Drone · 16.09.2024, 14:43

Сообщение от banger1

Не могу понять,как это решать

Учёба - не для Вас. Бросайте это изнуряющее и ненужное занятие.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
const
  m = 100;
var
  x, y: array[1..m] of real;
  xt, yt, b, d, xa, ya: real;
  i, n, k: byte;
begin
  writeln('Введите координаты точки T:');
  write('xt = ');
  readln(xt);
  write('yt = ');
  readln(yt);
  write('Введите расстояние В: ');
  readln(b);
  repeat
    write('Количество точек в диапазоне [1..', m, '];  n = ');
    readln(n)
  until n in [1..m];
  k := 0;
  xa := 0;
  ya := 0;
  writeln('Введите координаты точек:');
  for i := 1 to n do
    begin
      write('x', i, ' = ');
      readln(x[i]);
      write('y', i, ' = ');
      readln(y[i]);
      if sqrt(sqr(x[i] - xt) + sqr(y[i] - yt)) > b then
        begin
          inc(k);
          xa := xa + x[i];
          ya := y[i]
        end
    end;
  writeln('Расстояние было превышено в ', k, ' случаях.');
  if k > 0 then
    begin
      xa := xa / k;
      ya := ya / k;
      writeln('Средние координаты найденных точек:');
      writeln('x = ', xa, ',  y = ', ya)
    end
end.

@Volga_ · 17.09.2024, 12:59

Сообщение от Cyborg Drone

Pascal
29
      if sqrt(sqr(x[i] - xt) + sqr(y[i] - yt)) > b then

Лучше по-моему переписать:

Pascal
1
sqr(x[i] - xt) + sqr(y[i] - yt) > b * b

@Cyborg Drone · 17.09.2024, 19:02

Да, лучше так. Стоимость умножения меньше, чем стоимость извлечения квадратного корня.

Новые блоги и статьи Все статьи Все блоги /
Размещения без повторений VistaSV30 31.05.2025 Код возвращает список вариантов размещений A^{k}_{n}=\frac{n!}{(n-k)!} from itertools import permutations def pwr(k, n): # Размещение без повторений (Placement without repetition) if k. . .	Redis и Node.js с TypeScript - решения для высоконагруженных систем Reangularity 31.05.2025 Redis (Remote Dictionary Server) — сверхбыстрое хранилище данных в памяти, способное обрабатывать операции за микросекунды. И что особенно важно для нас — с удивительно простым API. А теперь. . .	Unit-тестирование с моками в Go golander 31.05.2025 Большинство разработчиков предпочитают тестировать код без использования моков. Например, при интеграции с Elasticsearch логичнее запустить контейнер локально и тестировать Go-код непосредственно с. . .	Как работать с PDF в C# stackOverflow 31.05.2025 Нам приходится сталкиваться с PDF по разным причинам. Генерация счетов, создание отчетов, извлечение данных из загруженных пользователем документов, автоматизация рабочих процесов - это лишь верхушка. . .	Двухбуквенные коды стран в шифровании. russiannick 31.05.2025 Человечество издревле манила возможность замены сочетаний букв вымышленными символами, делающие сообщение понятным только для посвещенных. Настала пора внести в это свой вклад. Двухбуквенные коды. . .
Мой опыт в исправлении ошибки приложения Boinc в части заряда батареи смартфона. Programma_Boinc 31.05.2025 Мой опыт в исправлении ошибки приложения Boinc в части заряда батареи смартфона. Хотел бы поделиться опытом в исправлении ошибки приложения в части заряда батареи смартфона. Сразу скажу, что. . .	Добро пожаловать на конкурс PrimeGrid, посвященный 20-летию PrimeGrid Programma_Boinc 31.05.2025 Добро пожаловать на конкурс PrimeGrid, посвященный 20-летию PrimeGrid: 5-дневный обобщенный поиск простых чисел Ферма n = 20 с 12 июня 20:20 UTC по 17 июня 20:20 UTC. 12 июня 2005 года. . .	Вероятность в шансы / Шансы в вероятность VistaSV30 31.05.2025 # Шансы -> Вероятность def Chance_to_Probability(ch): def gcd(a, b): # НОД - нужен для упрощения значений шансов while b != 0: a, b = b, a % b return a. . .	FastAPI и Flask: Отличия, производительность и примеры использования py-thonny 30.05.2025 Если вы разрабатываете веб-приложения на Python, вы наверняка слышали о Flask и FastAPI. Эти два фреймворка часто становятся предметом жарких дискуссий в сообществе разработчиков. И не без основания. . .	ML.NET и TensorFlow.NET: Умные приложения на C# с машинным обучением stackOverflow 30.05.2025 Еще совсем недавно, когда речь заходила о машинном обучении, C# разработчики обреченно вздыхали и тянулись к Python. Мир искуственного интеллекта словно был огражден невидимым забором с табличкой. . .

@banger1 0 / 0 / 0 Регистрация: 16.09.2024 Сообщений: 2

	Определить, в каком числе случаев расстояние между одной из точек и точкой ХТ, YТ превышает заданную величину В 16.09.2024, 12:10. Показов 529. Ответов 3 Метки нет (Все метки) При заданных ХТ, YТ, абсциссах X1,X2, … ,Xn и ординатах Y1,Y2, … ,Yn n точек плоскости X0Y определить, в каком числе случаев расстояние между одной из таких точек и точкой с координатами ХТ, YТ превышает заданную величину В, и найти средние координаты для заданной совокупности точек, исключая точку (ХТ, YТ). Не могу понять,как это решать 0

@Cyborg Drone Модератор 10228 / 5516 / 3372 Регистрация: 17.08.2012 Сообщений: 16,864
	17.09.2024, 19:02
	Да, лучше так. Стоимость умножения меньше, чем стоимость извлечения квадратного корня. 1