Определить, находится ли точка одновременно и в круге, и в квадрате или вне их

@Skoya · Регистрация: 17.05.2015

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

На плоскости заданы точка, круг радиуса R с центром в начале координат и вписанный в него квадрат, со сторонами, параллельными осям координат. Определить находится ли точка одновременно и в круге, и в квадрате или вне их.

@KoGG · 18.05.2015, 14:49

Visual Basic

Sub Is_Into_Circle_Quadrate()
    Dim X!, Y!, R!, S$
    X = 1.2: Y = -1.5: R = 2
    If Abs(X) < Sqr(R) / 2 And Abs(Y) < Sqr(R) / 2 Then S = "Точка внутри квадрата. " Else S = "Точка не внутри квадрата. "
    If X ^ 2 + Y ^ 2 < R ^ 2 Then S = S & "Точка внутри круга." Else S = S & "Точка не внутри круга."
    MsgBox S
End Sub

Аксима · 18.05.2015, 15:26

Уравнение окружности:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}+{y}^{2}={R}^{2}$

Уравнение прямой, проходящей через левый нижний и правый верхний углы квадрата:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x=y$

Откуда:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?2{x}^{2}={R}^{2}$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}=\frac{{R}^{2}}{2}$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x=\pm \frac{R}{\sqrt{2}},\; y=\pm \frac{R}{\sqrt{2}}$

Следовательно, в решении KoGG необходимо переместить функцию извлечения корня с радиуса на двойку (не сомневаюсь, что он так и хотел сделать изначально, а ошибка вызвана спешкой).

Visual Basic

Sub Is_Into_Circle_Quadrate()
    Dim X!, Y!, R!, S$
    X = 1.2: Y = -1.5: R = 2
    If Abs(X) < R / Sqr(2) And Abs(Y) < R / Sqr(2) Then S = "Точка внутри квадрата. " Else S = "Точка не внутри квадрата. "
    If X ^ 2 + Y ^ 2 < R ^ 2 Then S = S & "Точка внутри круга." Else S = S & "Точка не внутри круга."
    MsgBox S
End Sub

С уважением,

Аксима

@Skoya · 18.05.2015, 23:29 **[ТС]**

Большое спасибо, выручили)

@Skoya 0 / 0 / 0 Регистрация: 17.05.2015 Сообщений: 9
		1
	Определить, находится ли точка одновременно и в круге, и в квадрате или вне их 18.05.2015, 00:04. Показов 2026. Ответов 3 Метки нет (Все метки) На плоскости заданы точка, круг радиуса R с центром в начале координат и вписанный в него квадрат, со сторонами, параллельными осям координат. Определить находится ли точка одновременно и в круге, и в квадрате или вне их. 0

@Skoya 0 / 0 / 0 Регистрация: 17.05.2015 Сообщений: 9
	18.05.2015, 23:29 [ТС]	4
	Большое спасибо, выручили) 0

Определить, находится ли точка одновременно и в круге, и в квадрате или вне их

Решение