Определить, в каком числе случаев расстояние между одной из точек и точкой ХТ, 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

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

Новые блоги и статьи Все статьи Все блоги /
JS String.prototype.localeCompare() mr_dramm 02.06.2025 скопировано из этой темы чтобы не потерялось. localeCompare без указания локали для сравнения строк под капотом использует Intl. Collator , который работает согласно Unicode Collation Algorithm. . .	Облако проектов russiannick 01.06.2025 Слава Джа, написал прогу для компиляции. Значит написал компилятор? Обьем кода 300+ строк. Язык-яву. Вводим данные, заполняем поля, тычем радиобаттоны. И по итогу в поле результат получам листинг. . .	Rust и квантовые вычисления: интеграция с Q# и Qiskit golander 01.06.2025 Мир квантовых вычислений традиционно оставался закрытым клубом для высокоуровневых языков типа Python и специализированных DSL вроде Q#. Однако в последние годы Rust начал тихую революцию в этой. . .	Кэш REDIS и C# UnmanagedCoder 01.06.2025 Redis (Remote Dictionary Server) - это ультраскоростное хранилище данных в оперативной памяти, работающее по принципу "ключ-значение". Суть проста: данные хранятся не на диске, а прямо в RAM, что. . .	Lenovo IH110CX Rev: 1.0 motherboard manual Maks 01.06.2025
Размещения без повторений 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 Человечество издревле манила возможность замены сочетаний букв вымышленными символами, делающие сообщение понятным только для посвещенных. Настала пора внести в это свой вклад. Двухбуквенные коды. . .

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

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

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

Опции темы