Пересечение окружностей.

[Liubashka]

Очень плохо дружу с Delphi 7.0
Помогите написать в консольном меню решение задачи "Даны координаты центров окружностей и их радиусы. Определить число пересекающихся окружностей"

[Hacker19_90]

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

[Liubashka]

Так то и я могу сказать))) А как код написать?!

[Hacker19_90]

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

А как код написать?!

Ну это зависит от методов ввода информации в компьютер! Вод допустим я код пишу путём нажатий на клавиши клавиатуры
Кто знает мож у вас голосовое управление?

[Liubashka]

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

Ну это зависит от методов ввода информации в компьютер! Вод допустим я код пишу путём нажатий на клавиши клавиатуры
Кто знает мож у вас голосовое управление?

Нет,точно так же как и у вас.Путем нажатия на клавиши

[Hacker19_90]

Ну ладно! Давай те сначала! Каким образом задаются координаты?
И что значит

в консольном меню

Вам нужно создать меню?

[Serge_Bliznykov]

поиском пользоваться религия запрещает?!

вот тема, где эта задача была решена:
Задача на окружности

[Liubashka]

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

поиском пользоваться религия запрещает?!

вот тема, где эта задача была решена:
Задача на окружности

Религия тут не причем. Там задача на 2 окружности, а если их допустим будет 10,20...и т.д.

[Asker13]

Разницы нет. Вам нужно создать функцию:

function F(x1,x2,y1,y2: integer): integer;
begin
  F := Sqrt(Sqr(x1-x2)+Sqr(y1-y2))
end;

А уже в основной части программы перебором проверить все окружности на пересечение друг с другом, хоть их 10, хоть 20.

[Liubashka]

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

Разницы нет. Вам нужно создать функцию:

function F(x1,x2,y1,y2: integer): integer;
begin
  F := Sqrt(Sqr(x1-x2)+Sqr(y1-y2))
end;

А уже в основной части программы перебором проверить все окружности на пересечение друг с другом, хоть их 10, хоть 20.

Спасибо Вам. Буду пробовать.