Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 03.06.2013
Сообщений: 91
1

На оси ОХ расположены три точки а, b, с. Определить, какая из точек b или с расположена ближе к а

29.11.2013, 22:18. Показов 1267. Ответов 5
Метки нет (Все метки)

Помогите решить.Практические сдавать надо,а в этом мало понимаю.
1

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2013, 22:18
Ответы с готовыми решениями:

На оси OX расположены три точки а, b, c. Определить какая из точек b или c расположены ближе к а?
На оси OX расположены три точки а, b, c. Определить какая из точек b или c расположены ближе к а?

Определить, какая из точек b или с расположена ближе к а
1.Дана последовательность целых чисел а1, а2,..., а10, элементы которой образована с помощью...

На оси ОХ расположены три точки a, b, c. Определить какая из точек b, c расположена ближе к а.
На оси ОХ расположены три точки a, b, c. Определить какая из точек b, c расположена ближе к а.

На оси заданы своими координатами три точки a, b, c. Определить, какая из точек b или c расположена ближе
У меня кода нет пожалуйста напишите код к этой задаче функцией На оси заданы своими координатами...

5
759 / 266 / 57
Регистрация: 13.12.2009
Сообщений: 1,051
29.11.2013, 22:57 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim a As Integer, b As Integer, c As Integer
Dim ac As Integer, ab As Integer, f As Integer
Randomize
a = Rnd * 20 - 10
b = Rnd * 20 - 10
c = Rnd * 20 - 10
Cells(1, 1) = "a"
Cells(1, 2) = "b"
Cells(1, 3) = "c"
 
Cells(2, 1) = a
Cells(2, 2) = b
Cells(2, 3) = c
ab = a - b
ac = a - c
Cells(4, 1) = "ac"
Cells(4, 2) = "ab"
Cells(5, 1) = ac
Cells(5, 2) = ab
If Abs(ab) > Abs(ac) Then
MsgBox "Точка с ближе к а"
Else
MsgBox "Точка b ближе к а"
End If
1
4375 / 659 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
29.11.2013, 23:19 3
А так не проще?
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
Sub NEARER()
Dim a&, b&, c&
   a = clng(inputbox("ABSCISSA.  POINT  ""a""", , 5)
   b = clng(inputbox("ABSCISSA.  POINT  ""b""", , 2)
   c = clng(inputbox("ABSCISSA.  POINT  ""c""", , 9)
   MsgBox IIf(Abs(a - b) < Abs(a - c), """b""  located nearer", """c""  located nearer")
End Sub
1
1 / 1 / 0
Регистрация: 03.06.2013
Сообщений: 91
29.11.2013, 23:26  [ТС] 4
Спасибо всем большое!!!
0
4375 / 659 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
29.11.2013, 23:30 5
Я забыл!!! В предыдущем была функция Array! И здесь так нужно, что б в одном стиле! А то подозревать будут...
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
Sub NEARER()
Dim mARR():  mARR = Array(CLng(InputBox("ABSCISSA.  POINT  ""a""", , 5)), _
                        CLng(InputBox("ABSCISSA.  POINT  ""b""", , 2)), _
                           CLng(InputBox("ABSCISSA.  POINT  ""c""", , 9)))
   MsgBox IIf(Abs(mARR(0) - mARR(1)) < Abs(mARR(0) - mARR(2)), """b""  located nearer", """c""  located nearer")
End Sub
1
1 / 1 / 0
Регистрация: 03.06.2013
Сообщений: 91
29.11.2013, 23:41  [ТС] 6
Да ничего.Всё равно спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2013, 23:41

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

Определить, какая из двух точек (B или C) расположена ближе к A
If20. На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B...

Определить, какая из двух точек (B или C) расположена ближе к A
На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C)...

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

Определить, какая из двух точек (B или C) расположена ближе к точке A
На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C)...


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

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

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