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

@Серый1994 · Регистрация: 18.10.2012

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

Даны две точки с координатами (X1; y1) ; (x2 ; y2) определить которая из точек находится ближе к началу координат

@~~Апострофф~~ · 18.10.2012, 20:42

Visual Basic

1	msgbox iif(sqr(x1x1+y1y1)<sqr(x2x2+y2y2),"первая","вторая")

@Казанский · 18.10.2012, 20:43

Вопрос для 5 класса школы: на каком расстоянии от начала координат находится точка с координатами (X1; y1)?

Добавлено через 1 минуту
Апострофф, sqr не нужен

Комментарий модератора

sqr не нужен

Я знаю, но может не знать ТС

@Серый1994 · 18.10.2012, 21:34 **[ТС]**

Сообщение от Апострофф

Visual Basic

1	msgbox iif(sqr(x1x1+y1y1)<sqr(x2x2+y2y2),"первая","вторая")

Блин не получается,я просто чайник в ВБА

Комментарий модератора

Блины - национальное русское блюдо и отношения к теме не имеют.
Придерживайте эмоции,
лучше напишите, что тут могло не получиться
и как Вы этого добились

Добавлено через 43 минуты

Я скопировал эту строчку и мне выдало ошибку

@~~Апострофф~~ · 18.10.2012, 21:57

Сообщение от Серый1994

Я скопировал эту строчку и мне выдало ошибку

Куда скопировал?
Какую ошибку выдало?

Не по теме:

В партизанов играть изволите?

@Серый1994 · 18.10.2012, 22:08 **[ТС]**

В MS Visual Basic

@~~Апострофф~~ · 18.10.2012, 22:19

Серый1994, скажите пожалуйста:
1. какой версии Ваш MS Visual Basic?
2. имеет ли он какое-то отношение к VBA?
3. в каком виде от Вас требуют результат?

Комментарий модератора

Ещё один подобный ответ и последствия могут быть непредсказуемыми!

@Серый1994 · 18.10.2012, 22:29 **[ТС]**

Сообщение от Апострофф

Куда скопировал?
Какую ошибку выдало?

Не по теме:

В партизанов играть изволите?

Напишете пожалуйста полностью код включая название программы

Добавлено через 9 минут
в Microsoft Office 2007 при нажатии на клавишу Alt+F11

@~~Апострофф~~ · 18.10.2012, 22:38

Visual Basic

Private Sub CommandButton1_Click()
x1# = InputBox("X1=")
y1# = InputBox("Y1=")
x2# = InputBox("X2")
y2# = InputBox("Y2=")
MsgBox IIf(Sqr(x1 * x1 + y1 * y1) < Sqr(x2 * x2 + y2 * y2), "первая", "вторая") & " точка ближе"
End Sub

Кнопку на форму сможете добавить?

@Серый1994 · 18.10.2012, 22:40 **[ТС]**

Спасибо большое)

@Серый1994 0 / 0 / 1 Регистрация: 18.10.2012 Сообщений: 31
		1
	Определить, которая из точек находится ближе к началу координат 18.10.2012, 20:32. Показов 2738. Ответов 9 Метки нет (Все метки) Даны две точки с координатами (X1; y1) ; (x2 ; y2) определить которая из точек находится ближе к началу координат 0

@~~Апострофф~~ Заблокирован
	18.10.2012, 21:57	5
	Сообщение от Серый1994 Я скопировал эту строчку и мне выдало ошибку Куда скопировал? Какую ошибку выдало? Не по теме: В партизанов играть изволите? 0

@Серый1994 0 / 0 / 1 Регистрация: 18.10.2012 Сообщений: 31
	18.10.2012, 22:08 [ТС]	6
	В MS Visual Basic 0

@Серый1994 0 / 0 / 1 Регистрация: 18.10.2012 Сообщений: 31
	18.10.2012, 22:29 [ТС]	8
	Сообщение от Апострофф Куда скопировал? Какую ошибку выдало? Не по теме: В партизанов играть изволите? Напишете пожалуйста полностью код включая название программы Добавлено через 9 минут в Microsoft Office 2007 при нажатии на клавишу Alt+F11 0

@Серый1994 0 / 0 / 1 Регистрация: 18.10.2012 Сообщений: 31
	18.10.2012, 22:40 [ТС]	10
	Спасибо большое) 0

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

Решение