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

@Sahlltear · Регистрация: 06.12.2022

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

Окружность на плоскости может быть задана координатами x, у ее центра и радиусом г.
пример: (1, 3, 4) - окружность
1)Определить, имеются ли среди этих окружностей три попарно пересекающиеся.

@KoGG · 21.12.2022, 13:59

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Peresech_okruzhnostey()
    Dim i&, j&, n&, X!(4), Y!(4), r!(4), Dist!
    X(1) = 1: Y(1) = 1: r(1) = 5
    X(2) = 2: Y(2) = 2: r(2) = 4
    X(3) = 4: Y(3) = 1: r(3) = 3
    X(4) = 1: Y(4) = 10: r(4) = 1
    For i = 1 To UBound(X)
        For j = i + 1 To UBound(X)
            Dist = Sqr((X(j) - X(i)) ^ 2 + (Y(j) - Y(i)) ^ 2)
            If Dist >= Abs(r(j) - r(i)) And Dist <= (r(j) + r(i)) Then
                n = n + 1
            End If
        Next
    Next
    If n >= 3 Then MsgBox "Имеются три попарно пересекающиеся окружности"
End Sub

@Jack Famous · 21.12.2022, 14:08

Sahlltear, и причём тут VBA, если вы даже математического решения не знаете?…

Добавлено через 6 минут
KoGG, почему тип массива Single, а не Long?

@KoGG · 21.12.2022, 14:15

В примере координаты и радиусы целочисленные, но можно установить и дробную часть.

@Jack Famous · 21.12.2022, 14:23

KoGG, понял, спасибо. Я обычно Double использую для дробных (точнее/надёжнее), но лучше умножить на 10/100/1000, чтобы всё равно в Long работать

@Sahlltear · 22.12.2022, 18:24 **[ТС]**

Дорогой друг, я понимаю что задача легкая. Да я знаю как решить эту задачу с помощью математики. Проблема была в том что это задание мне дали, но при этом я не никогда не изучал vba. Я не знаю организацию массива данных в VBA. Спасибо человеку за помощь.

@Narimanych · 23.12.2022, 08:09

Sahlltear,

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

я знаю как решить эту задачу с помощью математики

Можете подсказать как?
Лично я не знаю , но дюже интересно...

shanemac51 · 23.12.2022, 09:27

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

Можете подсказать как?

может сумма радиусов меньше расстояния между центрами

@Punkt5 · 23.12.2022, 09:40

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

может сумма радиусов меньше расстояния между центрами

Могут быть и вложенные друг в друга окружности. Так что более точно:
Расстояние между центрами не меньше разницы радиусов и не больше суммы радиусов.
В вышеприведённом коде KoGG это как раз учтено.

@Narimanych · 23.12.2022, 11:05

Интересует ответ от ТС

@Sahlltear · 23.12.2022, 20:47 **[ТС]**

Narimanych, ((x2 - x1) ** 2 + (y2 - y1) ** 2) ** 0.5 - расстояние между центрами, где x, y координаты центра окружности ---> d; Сумма радиусов R1 + R2
{
пресекаются, при d < (R1 + R2)
пересекаются, и имеют одну общую точку, при d == (R1 + R2)
пересекаются, и имеют все общие точки, при d == 0
не пресекаются, при d > (R1 + R2)
}
Это считается за ответ на ваш провокационный вопрос?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Sahlltear 8 / 8 / 0 Регистрация: 06.12.2022 Сообщений: 44

	Excel Определить, имеются ли среди этих окружностей три попарно пересекающиеся 21.12.2022, 13:36. Показов 859. Ответов 10 Метки нет (Все метки) Окружность на плоскости может быть задана координатами x, у ее центра и радиусом г. пример: (1, 3, 4) - окружность 1)Определить, имеются ли среди этих окружностей три попарно пересекающиеся. 0

@Jack Famous 932 / 365 / 43 Регистрация: 10.05.2021 Сообщений: 1,564 Записей в блоге: 10
	21.12.2022, 14:08
	Sahlltear, и причём тут VBA, если вы даже математического решения не знаете?… Добавлено через 6 минут KoGG, почему тип массива Single, а не Long? 1

@KoGG 5640 / 1622 / 418 Регистрация: 23.12.2010 Сообщений: 2,430 Записей в блоге: 1
	21.12.2022, 14:15
	В примере координаты и радиусы целочисленные, но можно установить и дробную часть. 0

@Jack Famous 932 / 365 / 43 Регистрация: 10.05.2021 Сообщений: 1,564 Записей в блоге: 10
	21.12.2022, 14:23
	KoGG, понял, спасибо. Я обычно Double использую для дробных (точнее/надёжнее), но лучше умножить на 10/100/1000, чтобы всё равно в Long работать 0

@Sahlltear 8 / 8 / 0 Регистрация: 06.12.2022 Сообщений: 44
	22.12.2022, 18:24 [ТС]
	Дорогой друг, я понимаю что задача легкая. Да я знаю как решить эту задачу с помощью математики. Проблема была в том что это задание мне дали, но при этом я не никогда не изучал vba. Я не знаю организацию массива данных в VBA. Спасибо человеку за помощь. 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	23.12.2022, 11:05
	Интересует ответ от ТС 0

@Sahlltear 8 / 8 / 0 Регистрация: 06.12.2022 Сообщений: 44
	23.12.2022, 20:47 [ТС]
	Narimanych, ((x2 - x1) 2 + (y2 - y1) 2) ** 0.5 - расстояние между центрами, где x, y координаты центра окружности ---> d; Сумма радиусов R1 + R2 { пресекаются, при d < (R1 + R2) пересекаются, и имеют одну общую точку, при d == (R1 + R2) пересекаются, и имеют все общие точки, при d == 0 не пресекаются, при d > (R1 + R2) } Это считается за ответ на ваш провокационный вопрос? 1

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

Решение