По координатам центров окружностей и их радиусам найти пару пересекающихся окружностей.

@MrMkirill1 · Регистрация: 22.09.2014

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

Окружности

Входной файл input.txt,

Выводной файл output.txt.

Ограничение по времени, сек 2

Ограничение по памяти, мегабайт 64

На плоскости заданы N разных окружностей. Две окружности пересекаются, если

они имеют хотя бы одну общую точку.

Напишите программу, которая по координатам центров окружностей и их

радиусам найдет пару пересекающихся окружностей.

Формат входных данных

В первой строке входного файла содержится целое число N (1≤N≤10 000) . В

каждой из последующих N строк содержатся три натуральных числа X, Y, R меньших

10 000, которые задают координаты центра окружности (X, Y) и его радиус R.

[COLOR="rgb(154, 205, 50)"]Формат выходных данных[/COLOR]

Единственная строка выходного файла должна содержать пару номеров

пересекающихся окружностей, либо единственное число 0, если никакие две

окружности не пересекаются. Окружности нумеруются соответственно порядку во

входном файле, начиная с 1 до N. Если существует несколько пар пересекающиеся

окружностей, выведите любую из них. Элементы пары могут быть выведены в

произвольном порядке.

Пример

Входные данные:
5
5 10 4
6 20 3
10 15 3
12 8 2
13 13 1
Выходные данные:
5 3
Нужен полный код

@Антон1985 · 22.09.2014, 22:08

Code
1
2
3
4
5
6
7
8
9
Алгоритм:
открыть файл input.txt для записи;
прочесть первое число (кол-во окружностей);
прочесть из файла и записать в массив данные окружностей;
закрыть файл input.txt;
анализ массива (метод перебора);
открыть файл output.txt для записи
записать в файл результат анализа массива;
закрыть файл output.txt

Добавлено через 1 час 40 минут

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
const
  max=10000;
type
  Tobj=record
    x,y,r:integer;
  end;
var
  f:text;
  m:array [1..max] of Tobj;
  N,i,j,o1,o2:integer;
begin
  assign(f,'input.txt'); reset(f);
  readln(f,N);
  if N>max then exit;
  for i:=1 to N do
    readln(f,m[i].x,m[i].y,m[i].r);
  close(f);
  o1:=0; o2:=0;
  for i:=1 to N-2 do
    for j:=i+1 to N do
      if sqr(m[i].x-m[j].x)+sqr(m[i].y-m[j].y) <= sqr(m[i].r+m[j].r) then
      begin
        o1:=i; o2:=j;
      end;
  assign(f,'output.txt'); rewrite(f);
  writeln(f,o1,' ',o2);
  close(f);
end.

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@MrMkirill1 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 11

	По координатам центров окружностей и их радиусам найти пару пересекающихся окружностей. 22.09.2014, 19:36. Показов 3241. Ответов 1 Метки нет (Все метки) Окружности Входной файл input.txt, Выводной файл output.txt. Ограничение по времени, сек 2 Ограничение по памяти, мегабайт 64 На плоскости заданы N разных окружностей. Две окружности пересекаются, если они имеют хотя бы одну общую точку. Напишите программу, которая по координатам центров окружностей и их радиусам найдет пару пересекающихся окружностей. Формат входных данных В первой строке входного файла содержится целое число N (1≤N≤10 000) . В каждой из последующих N строк содержатся три натуральных числа X, Y, R меньших 10 000, которые задают координаты центра окружности (X, Y) и его радиус R. [COLOR="rgb(154, 205, 50)"]Формат выходных данных[/COLOR] Единственная строка выходного файла должна содержать пару номеров пересекающихся окружностей, либо единственное число 0, если никакие две окружности не пересекаются. Окружности нумеруются соответственно порядку во входном файле, начиная с 1 до N. Если существует несколько пар пересекающиеся окружностей, выведите любую из них. Элементы пары могут быть выведены в произвольном порядке. Пример Входные данные: 5 5 10 4 6 20 3 10 15 3 12 8 2 13 13 1 Выходные данные: 5 3 Нужен полный код 0

По координатам центров окружностей и их радиусам найти пару пересекающихся окружностей.

Решение