Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат? - VB

Узнай цену своей работы

Формулировка задачи:

Разработайте проект для решения следующей задачи: «Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат?»

Решение задачи: «Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат?»

textual
Листинг программы
Private Sub Command1_Click()
Dim x1 As Double, y1 As Double
Dim x2 As Double, y2 As Double
Dim r As Double
x1 = InputBox("Абсцисса первой точки", "Первая точка", "0.0")
y1 = InputBox("Ордината первой точки", "Первая точка", "0.0")
x2 = InputBox("Абсцисса второй точки", "Вторая точка", "0.0")
y2 = InputBox("Ордината второй точки", "Вторая точка", "0.0")
r = InputBox("Радиус окружности", "Радиус", "0.0")
Print "Точка М1(" & x1 & ";" & y1 & ") - " & IIf(point_circle(x1, y1, r) = True, "Принадлежит окружности X^2+Y^2=R^" & r, _
"Не принадлежит окружности X^2+Y^2=R^") & r
Print "Точка М2(" & x2 & ";" & y2 & ") - " & IIf(point_circle(x2, y2, r) = True, "Принадлежит окружности X^2+Y^2=R^" & r, _
"Не принадлежит окружности X^2+Y^2=R^") & r
End Sub
Function point_circle(x As Double, y As Double, r As Double) As Boolean
  If x * x + y * y = r * r Then point_circle = True Else point_circle = False
End Function

Оцени полезность:

7   голосов , оценка 3.571 из 5
Похожие ответы