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

@Ashmotev · Регистрация: 12.12.2013

Cоставить программу на языке Visual Basic Net, которая определяет, какая из двух точек находится дальше от начала координат. Проиллюстрировать решение наглядно, то есть построить оси координат, пересекающиеся в начале и изобразить данные точки.

@tezaurismosis · 19.05.2014, 11:14

Расстояние от начала координат до точки есть длина радиус-вектора, а она равна:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?|\bar{a}| = \sqrt{{a}^{2}_{x}+{a}^{2}_{y}}$
Чем меньше длина, тема ближе точка к началу координат.
Этот метод определяет, ближе ли первая точка, чем вторая

vb.net

Module MainModule
    Function IsFirst(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Boolean
        Dim len1 = Math.Sqrt(x1 * x1 + y1 * y1)
        Dim len2 = Math.Sqrt(x2 * x2 + y2 * y2)
        If len1 > len2 Then
            Return True
        End If
        Return False
    End Function
 
    Sub Main()
        Console.WriteLine(IsFirst(50, 30, 1, 2))
    End Sub
End Module

@Ashmotev 2 / 2 / 0 Регистрация: 12.12.2013 Сообщений: 83
		1
	Определить, какая из двух точек находится дальше от начала координат? 19.05.2014, 07:41. Просмотров 834. Ответов 1 Метки нет (Все метки) Cоставить программу на языке Visual Basic Net, которая определяет, какая из двух точек находится дальше от начала координат. Проиллюстрировать решение наглядно, то есть построить оси координат, пересекающиеся в начале и изобразить данные точки. 0

Опции темы

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

Решение