Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д