Пары пересекающихся окружностей

@NoxMage · Регистрация: 28.06.2010

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

Заданы тройки чисел(координаты центра и радиус). Найти наибольшее количество пар пересекающихся окружностей.
Очень нужна помощь не знаю как она решается. Жду любых советов.

@Puporev · 07.07.2010, 18:40

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

Найти наибольшее количество пар пересекающихся окружностей.

Где найти?

@yamilramilev · 07.07.2010, 18:41

Перебираешь всевозможные пары окружностей и проверяешь, если расстояние между центрами окружностей равна сумме их радиусов, то они пересекающиеся

@Puporev · 07.07.2010, 18:42

Вот функция определяет пересекаются ли 2 окружности.

Pascal

Function Peres(a,b:okr):boolean;
var s:real;
begin
s:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
Peres:=(s<a.r+b.r)and(s>abs(a.r-b.r));
end;

Добавлено через 45 секунд

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

Это касаются, а не пересекаются.

@NoxMage · 07.07.2010, 18:43 **[ТС]**

Puporev, Это все условие которое у меня есть. Чего то не хватает?
Хотя скорее всего тут входной файл должен быть.

@Puporev · 07.07.2010, 18:45

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

Чего то не хватает?

Самих окружностей не хватает и что искать...

@NoxMage · 07.07.2010, 18:52 **[ТС]**

Я вот тоже чувствую что что-то не так ладно.

@Puporev · 07.07.2010, 19:13

Может задан массив окружностей, может и в файле, и нужно найти окружность, имеющую больше всего пересечений?

@NoxMage · 07.07.2010, 19:42 **[ТС]**

Найти просто количество пар пересекающихся окружностей.

@Puporev · 07.07.2010, 19:49

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

Найти наибольшее количество пар

Вот это как понимать?

@NoxMage · 07.07.2010, 20:16 **[ТС]**

Сам не знаю. Я написал сюда условие которое мне дано. Думаю нужно просто опустить слово наибольшее и искать количество пар.

Добавлено через 23 минуты
Все всем спасибо, вот конечное решение.

Pascal

program a2;
//uses crt;
var x,y,r:array[1..100]of real;
i,j,n,z:integer;
 
function okr(x1,y1,x2,y2:real):real;
begin
 okr:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
 
 begin
 write('N -> ');
 readln(n);
 for i:=1 to N do
 begin
  write(i,'-я точка -> ');
  readln(x[i],y[i],r[i]);
 end;
 
 writeln('Всевозможные пары пересекающихся окружностей');
 for i:=1 to N do
 for j:=i+1 to N do if okr(x[i],y[i],x[j],y[j])<r[i]+r[j] then 
 begin
 inc(z);
 writeln(i,' - ',j);
 end;
 writeln(z);
 readln;
 end.

@NoxMage 1 / 1 / 0 Регистрация: 28.06.2010 Сообщений: 24
		1
	Пары пересекающихся окружностей 07.07.2010, 18:29. Показов 1929. Ответов 10 Метки нет (Все метки) Заданы тройки чисел(координаты центра и радиус). Найти наибольшее количество пар пересекающихся окружностей. Очень нужна помощь не знаю как она решается. Жду любых советов. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.07.2010, 18:40	2
	Сообщение от NoxMage Найти наибольшее количество пар пересекающихся окружностей. Где найти? 0

@yamilramilev 267 / 258 / 47 Регистрация: 08.10.2009 Сообщений: 554
	07.07.2010, 18:41	3
	Перебираешь всевозможные пары окружностей и проверяешь, если расстояние между центрами окружностей равна сумме их радиусов, то они пересекающиеся 0

@NoxMage 1 / 1 / 0 Регистрация: 28.06.2010 Сообщений: 24
	07.07.2010, 18:43 [ТС]	5
	Puporev, Это все условие которое у меня есть. Чего то не хватает? Хотя скорее всего тут входной файл должен быть. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.07.2010, 18:45	6
	Сообщение от NoxMage Чего то не хватает? Самих окружностей не хватает и что искать... 0

@NoxMage 1 / 1 / 0 Регистрация: 28.06.2010 Сообщений: 24
	07.07.2010, 18:52 [ТС]	7
	Я вот тоже чувствую что что-то не так ладно. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.07.2010, 19:13	8
	Может задан массив окружностей, может и в файле, и нужно найти окружность, имеющую больше всего пересечений? 0

@NoxMage 1 / 1 / 0 Регистрация: 28.06.2010 Сообщений: 24
	07.07.2010, 19:42 [ТС]	9
	Найти просто количество пар пересекающихся окружностей. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.07.2010, 19:49	10
	Сообщение от NoxMage Найти наибольшее количество пар Вот это как понимать? 0

	07.07.2010, 20:16