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

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

21.11.2012, 02:44. Просмотров 1326. Ответов 1
Метки нет (Все метки)

Не могу не как понять какую формулу писать
Вот задания
Заданы координаты двух точек А(х,у) и В(х,у) и радиус окружности r. Определить какая из точек лежит на окружности, какая внутри окружности, а какая вне окружности.
Сделал набросок...но формула явно не правильная
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
25
26
e Sub CommandButton1_Click()
Dim a As Single, r As Single, b As Single
 
a = Val(Cells(3, 1).Value)
b = Val(Cells(3, 2).Value)
r = Val(Cells(3, 3).Value)
Dim Otvet1 As String
Dim Otvet2 As String
'Г°Г*Г±Г·ВёГІ
Skv = a ^ 2
Sk = 3.14 * r ^ 2
If Skv >= Sk Then
Otvet1 = "Òî÷êГ* ëåæèò ГўГ*óòðè îêðóæГ*îñòè"
ElseIf Skv < Sk Then
Otvet2 = "Òî÷êГ* ëåæèò ГўГ*ГҐ îêðóæГ*îñòè"
End If
'Âûâîä ðåçóëüòГ*òîâ
Cells(6, 2).Value = Otvet1
Cells(7, 2).Value = Otvet2
End Sub
Private Sub CommandButton2_Click()
Cells(3, 1).Value = " "
Cells(3, 2).Value = " "
Cells(7, 2).Value = " "
Cells(6, 2).Value = " "
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2012, 02:44
Ответы с готовыми решениями:

Определить сколько треугольников лежит внутри окружности радиуса R с центром в начале координат
Доброго времени суток) хочу попросить о спасении своей никчемной жизни) Буду...

Подпрограммы: определить, сколько треугольников лежит внутри окружности радиуса R с центром в начале координат
заданы координаты вершин трёх треугольников.определить сколько треугольников...

Определить, какая из переменных является радиусом, какая – диаметром
Здравствуйте! Вот такое задание дали, в университете, пытаюсь разобраться, но...

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

Есть множество точек в которое необходимо вписать окружность и определить центр окружности и радиус.
Здравствуйте! Не направите или не подскажите как реализовать идею. Задача...

1
anvg
172 / 18 / 3
Регистрация: 14.12.2010
Сообщений: 50
21.11.2012, 04:23 2
Neturing,
Если центр окружности в начале координат, то
Visual Basic
1
2
3
4
5
6
7
8
9
Dim Dist As Double 'расстояние от центра до точки
Dist = Math.Sqr(X * X + Y * Y) 'расстояние точки от начала координат
If Dist > r Then
    MsgBox "Точка вне"
ElseIf Dist < r Then
    MsgBox "Точка внутри"
Else
    MsgBox "Точка на"
End If
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2012, 04:23

На оси ОХ расположены три точки а, b, с. Определить, какая из точек b или с расположена ближе к а
Помогите решить.Практические сдавать надо,а в этом мало понимаю.

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

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


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

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

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