Developing.ru

Задан массив, размером n строк на 3.(Const n=10, элементы массива типа байт) Первые два элемента строки координаты центра окружности, третий элемент ее радиус. Найти число пересекающихся окружностей. (Ответ: № окружности число пересечений)
P.S. буду очень благодарен!

Расстояние между двумя точками вычисляется по теореме Пифагора.
Две окружности пересекаются, если расстояние между их центрами меньше суммы их радиусов.

Хыиуду, задачка то с подковыркой... :-)

&quot писал(а):Две окружности пересекаются, если расстояние между их центрами меньше суммы их радиусов.

к сожалению, не так... они могут и не пересекаться в случае когда меньшая окружность полностью внутри большей...

Спасибки большое, мож кому пригодиться текст программы:

Var a:array[1..n] of real;
b:array[1..n] of real;
r:array[1..n] of real;
i,KolvoPeresecheni: integer;
sum,d,L:real;
count:integer;
Begin
Clrscr;
writeln('Vvedite ', n , ' elementov massiva dlya x');
for i:=1 to n do
readln(a);

writeln('vvedite ',n, ' elementov massiva dlya y');
for i:=1 to n do
readln(b);

writeln('vvedite ', n, ' radiusov okryznostey');
for i:=1 to n do
readln(r);
if r<0 then writeln ('vvedeno nevernoe chislo radiysov');

KolvoPeresecheni := 0;
i:= 0;
for i:=1 to n-1 do
begin
L:=sqrt(sqr(a-a[i+1])+sqr(b-b[i+1]));
if L < r+r[i+1] then KolvoPeresecheni := KolvoPeresecheni + 1;
end;
Writeln(' okryznosti peresekaitsa -', KolvoPeresecheni, 'raz.');
Readln;
End.

Serge_Bliznykov писал(а):Хыиуду, задачка то с подковыркой... :-)

к сожалению, не так... они могут и не пересекаться в случае когда меньшая окружность полностью внутри большей...

Тогда "Меньше суммы их радиусов, но больше разности"

Хыиуду писал(а):Две окружности пересекаются, если расстояние между их центрами меньше суммы их радиусов, но больше разности радиусов

Хыиуду, угу, вот теперь полностью согласен!
проблема только в том, что, похоже, автор топика не стал заморачиваться с подобными сложностями и сделал как мог... :-)))
ну, как говорится, дай Бог :-)

&quot писал(а):Спасибки большое, мож кому пригодиться текст программы:

Не думаю... Почитай написанное ниже. Код неправильный.
1)это не ошибка, но зачем i присваивать ноль перед циклом "for?
2)if l <r+r[i+1] надо заменить на if (l<r+r[i+1])and(l>abs(r-r[i+1])
3)но даже принципиально кодж неверен. Почему вы сравниваете только радиусы i и i+1? окружность ведь пересекается не только с соседней!
цикл надо делать такой: понимаешь, почему так, или объяснить?

ладно, сразу объясню.

в условии вы написали:

&quot писал(а):Найти число пересекающихся окружностей

Надо найти кол-во ОКРУЖНОСТЕЙ.
Но т.к вы также написали

&quot писал(а):(Ответ: № окружности число пересечений)

то надо найти кол-во ПЕРЕСЕЧЕНИЙ.
А у двух окружностей могут быть 2 пересечения либо одно(когда они кассаются).
Дальше надеюсь, всё понятно.

З.Ы. вот я и senior developer=)

Medved, поздравляю с повышением
DemonRed, у вас нечетко сформулировано задание. "Найти число пересекающихся окружностей. (Ответ: № окружности число пересечений)" - это бред. Ответ, данный в скобках, предполагает вопрос "Найти число пересечений для каждой окружности". А "найти число пересекающихся окружностей" (кстати, не число, а количество) - это, по моему мнению, количество разных пар окружностей, таких, что окружности в каждой паре пересекаются.
Еще остается открыт вопрос, считать ли касание окружностей пересечением.
В общем, по-хорошему такие вопросы должны быть объяснены в задании. Но я еще не видел преподавателя, который давал бы нормальные задания.

Хыиуду,
Medved,
я, конечно, могу ошибаться, но, мне кажется, что господин АвторТопика давно уже потерял интерес к теме (программу? как мы видим, он написал, и, не исключаю, что уже и сдал :-) что ему теперь тут делать? Похоже теоретическо-философские изыски, как правильно решить задачу и считается ли касание пересечением его не интересуют... :-)