Окружность с треугольником

@Янис Дельта · Регистрация: 06.05.2011

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

Привет участникам форума, есть ещё одна задача:

С центром в точке А(Х0,Y0) построена окружность радиусом R и ориентированна по осям координат равносторонний треугольник со стороной D. Составить программу определяющая принадлежность точки S (X,Y)-внешней области обеих объектов, одному из объектов, обеим объектам.

Соглашусь, задача из класса "лёгких", но решение её здесь я не нашёл... надеюсь руки не кривые =)

@Янис Дельта · 11.05.2011, 06:37 **[ТС]**

Люди! Help! Сессия скора!

@Янис Дельта · 13.06.2011, 09:57 **[ТС]**

Помощь не нужна, спасибо, что никто вообще не помог
Код для тех, кому попадётся таже задача:

Private Sub Command1_Click()
Const Pi = 3.1415926
Dim X0 As Single, Y0 As Single, R As Single, D As Single, Y1 As Single
Dim Sx As Single, Sy As Single, Rs As Single, in_tr As Boolean, in_okr As Boolean
X0 = Val(Text1.Text)
Y0 = Val(Text2.Text)
R = Val(Text3.Text)
D = Val(Text4.Text)
Sx = Val(Text5.Text)
Sy = Val(Text6.Text)
Rs = Sqr((Sx - X0) ^ 2 + (Sy - Y0) ^ 2)
If Rs <= R Then in_okr = True Else in_okr = False
Y1 = (0.5 * D - Abs(Sx - X0)) * Sqr(3)
If (Sy - Y0) <= Y1 And Sy >= Y0 Then in_tr = True Else in_tr = False
If in_okr And in_tr Then
Label4.Caption = "Точка принадлежит обеим объектам"
ElseIf in_okr And Not in_tr Then
Label4.Caption = "Точка принадлежит только окружности"
ElseIf Not in_okr And in_tr Then
Label4.Caption = "Точка принадлежит только треугольнику"
Else
Label4.Caption = "Точка не принадлежит объектам"
End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Янис Дельта 0 / 0 / 0 Регистрация: 06.05.2011 Сообщений: 14

	Окружность с треугольником 06.05.2011, 06:01. Показов 1045. Ответов 2 Метки нет (Все метки) Привет участникам форума, есть ещё одна задача: С центром в точке А(Х0,Y0) построена окружность радиусом R и ориентированна по осям координат равносторонний треугольник со стороной D. Составить программу определяющая принадлежность точки S (X,Y)-внешней области обеих объектов, одному из объектов, обеим объектам. Соглашусь, задача из класса "лёгких", но решение её здесь я не нашёл... надеюсь руки не кривые =) 0

@Янис Дельта 0 / 0 / 0 Регистрация: 06.05.2011 Сообщений: 14
	11.05.2011, 06:37 [ТС]
	Люди! Help! Сессия скора! 0

@Янис Дельта 0 / 0 / 0 Регистрация: 06.05.2011 Сообщений: 14
	13.06.2011, 09:57 [ТС]
	Помощь не нужна, спасибо, что никто вообще не помог Код для тех, кому попадётся таже задача: Private Sub Command1_Click() Const Pi = 3.1415926 Dim X0 As Single, Y0 As Single, R As Single, D As Single, Y1 As Single Dim Sx As Single, Sy As Single, Rs As Single, in_tr As Boolean, in_okr As Boolean X0 = Val(Text1.Text) Y0 = Val(Text2.Text) R = Val(Text3.Text) D = Val(Text4.Text) Sx = Val(Text5.Text) Sy = Val(Text6.Text) Rs = Sqr((Sx - X0) ^ 2 + (Sy - Y0) ^ 2) If Rs <= R Then in_okr = True Else in_okr = False Y1 = (0.5 * D - Abs(Sx - X0)) * Sqr(3) If (Sy - Y0) <= Y1 And Sy >= Y0 Then in_tr = True Else in_tr = False If in_okr And in_tr Then Label4.Caption = "Точка принадлежит обеим объектам" ElseIf in_okr And Not in_tr Then Label4.Caption = "Точка принадлежит только окружности" ElseIf Not in_okr And in_tr Then Label4.Caption = "Точка принадлежит только треугольнику" Else Label4.Caption = "Точка не принадлежит объектам" End If End Sub 0