Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
2 / 2 / 0
Регистрация: 12.12.2013
Сообщений: 83
1

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

19.05.2014, 07:41. Просмотров 834. Ответов 1
Метки нет (Все метки)


Cоставить программу на языке Visual Basic Net, которая определяет, какая из двух точек находится дальше от начала координат. Проиллюстрировать решение наглядно, то есть построить оси координат, пересекающиеся в начале и изобразить данные точки.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2014, 07:41
Ответы с готовыми решениями:

Определить какая из трех заданных точек на плоскости дальше от начала координат
Определить какая из 3-х заданных точек на плоскости дальше от начала координат. Делал в Visual...

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

Определить, какая из точек находится дальше от начала координат
На площині дано дві точкі. Визначити, яка з них заходиться далі від початку координат. На площине...

Определить, какая из точек находится дальше от начала координат
Даны координаты двух точек A(x1,y1) и B(x2,y2). Какая из этих точек находится дальше от начала...

1
Администратор
Эксперт .NET
9014 / 4289 / 744
Регистрация: 17.04.2012
Сообщений: 9,095
Записей в блоге: 14
19.05.2014, 11:14 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Расстояние от начала координат до точки есть длина радиус-вектора, а она равна:
https://www.cyberforum.ru/cgi-bin/latex.cgi?|\bar{a}| = \sqrt{{a}^{2}_{x}+{a}^{2}_{y}}
Чем меньше длина, тема ближе точка к началу координат.
Этот метод определяет, ближе ли первая точка, чем вторая
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2014, 11:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить, какая из точек дальше от начала координат
Даны координаты двух точек в прямоугольной системе координат. Составить программу, с помощью...

Две точки задаются своими координатами. Определить, какая их них находится дальше от начала координат
Две точки задаются своими координатами. Определить, какая их них находится дальше от: начала...

Определить, какая из двух точек находится ближе к началу координат
Даны две точки с координатами x1, y1, x2, y2. Определить, какая из двух точек находится ближе к...

Выяснить, какая из точек находится на минимальном расстоянии от начала координат
На плоскости заданы координаты трех точек А, В, С. Выяснить, какая из точек находится на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.