0 / 0 / 0
Регистрация: 27.11.2010
Сообщений: 122
1

Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат?

03.05.2011, 12:52. Показов 2219. Ответов 2
Метки нет (Все метки)

Разработайте проект для решения следующей задачи: «Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат?»
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2011, 12:52
Ответы с готовыми решениями:

Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат.
Помогите пожалуйста решить) Заданы координаты двух точек. Определите, лежат ли они на одной...

Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале координат
2. Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с...

Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат
Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале...

Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат
Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале...

2
749 / 548 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
03.05.2011, 13:14 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
Dim x1 As Double, y1 As Double
Dim x2 As Double, y2 As Double
Dim r As Double
x1 = InputBox("Абсцисса первой точки", "Первая точка", "0.0")
y1 = InputBox("Ордината первой точки", "Первая точка", "0.0")
x2 = InputBox("Абсцисса второй точки", "Вторая точка", "0.0")
y2 = InputBox("Ордината второй точки", "Вторая точка", "0.0")
r = InputBox("Радиус окружности", "Радиус", "0.0")
Print "Точка М1(" & x1 & ";" & y1 & ") - " & IIf(point_circle(x1, y1, r) = True, "Принадлежит окружности X^2+Y^2=R^" & r, _
"Не принадлежит окружности X^2+Y^2=R^") & r
Print "Точка М2(" & x2 & ";" & y2 & ") - " & IIf(point_circle(x2, y2, r) = True, "Принадлежит окружности X^2+Y^2=R^" & r, _
"Не принадлежит окружности X^2+Y^2=R^") & r
End Sub
Function point_circle(x As Double, y As Double, r As Double) As Boolean
  If x * x + y * y = r * r Then point_circle = True Else point_circle = False
End Function
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
03.05.2011, 21:45 3
gitarillo , хорошее решение, только ты перестарался
Цитата Сообщение от Webster Посмотреть сообщение
лежат ли они на одной окружности
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2011, 21:45
Помогаю со студенческими работами здесь

Заданы координаты двух точек. Определить, расположены ли они на одной окружности
2. Заданы координаты двух точек. Определите, расположены ли они на одной окружности с центром в...

Определить, лежат ли точки на одной окружности с центром в начале координат
Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале...

Определить, лежат ли точки на окружности радиуса r с центром в начале координат
заданы координаты 2 точек x1,y1.x2,y2. Определить лежат ли они на окружности радиуса r с центром в...

Найти координаты точек пересечения прямой и окружности с центром в начале координат
Пожалуйста,помогите решить ,никак не выходит Найти координаты точек пересечения прямой y=kx+b и...

Определить, лежат ли две заданные точки на окружности с центром в начале координат
Две точки заданы координатами. Определить, лежат ли обе точки на окружности с центром в начале...

Подсчитать число точек, находящихся внутри круга радиусом r с центром в начале координат; координаты заданы массивами
Подсчитать число точек, находящихся внутри круга радиусом r с центром в начале координат;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru