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

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

21.11.2012, 02:44. Просмотров 2288. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2012, 02:44
Ответы с готовыми решениями:

Определить какая из точек лежит внутри а какая - снаружи треугольника
Пытаюсь разобраться помогите пожалуйста .Створиты класс Triangle и класс Point. Объявить массив из...

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

Определить, сколько точек лежит внутри окружности
Задана окружность (x - a) 2 +(y - b) 2 =r и две точки P= (p1,p2) и F= (f1,f2). Выяснить и...

Лежит ли точка А (a,b) на окружности , внутри или вне её.
Добрый день, я новичок в этом и поэтому я немножко запутался(не могу понять тчо нужно делать)...

1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2012, 04:23

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

Определить лежит ли точка в окружности (с вводом центра окружности)
У меня есть часть кода для того что бы дать ответ на вопрос: Лежит ли точка? Но загвоздка в том что...

Определите, лежит ли точка А (a,b) на окружности x2+y2=r2 , внутри или вне её.
Определите, лежит ли точка А (a,b) на окружности x2+y2=r2 , внутри или вне её.

Сколько точек лежит внутри окружности
1)Задана окружность (x-a)2 + (y-b)2 = R2 и точки Р(р1, р2), F(f1, f2), L(l1, l2). Выяснить и...

Определить лежит ли точка внутри или вне круга,ограниченного указанной окружностью, или на окружности
помогите пожалуйста)) Даны координаты точки (x,y), радиус r и координаты центра окружности (x,y....


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

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

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