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

Найти координаты точек пересечения прямой и окружности

13.02.2010, 09:18. Показов 3708. Ответов 3
Метки нет (Все метки)

Несколько лаб сдала, а вот оставшиеся никак(((...
Помогите плс..
Заранее гигантское спасибо)))
1) на цикл if
Найти координаты точек пересечения прямой y=kx+b и окружности радиусом R и с центром в начале координат. В каких координатных четвертях находятся точки пересечения? Если точек пересечения нет или прямая касается окружности выдать соответствующее сообщение.
2) Найти на отрезке [п,р] натуральное число, имеющее наибольшее количество делителей.
Пожалуйста, помогите, добрые человеки)))))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.02.2010, 09:18
Ответы с готовыми решениями:

Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат?
Разработайте проект для решения следующей задачи: «Заданы координаты двух точек. Определить, лежат...

Найти географические координаты точки на окружности
Здравствуйте. У меня есть географические координаты центра окружности (x,y) и географические...

Найти площадь наибольшего треугольника и выдать координаты точек или их номера
Задание заданы координаты 5 точек найти площадь наибольшего треугольника и выдать координаты точек...

Определить точки пересечения параболы и прямой
Помогите, пожалуйста. Надо программно найти точки пересечения 3x^2-y+1=0 и прямой 5a1x-5a2y=0....

3
11476 / 3768 / 676
Регистрация: 13.02.2009
Сообщений: 11,126
13.10.2011, 20:54 2
sasfmlzr,
Не заблудился?

Добавлено через 5 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim k As Single, b As Single, R As Single, x As Single, x1 As Single, x2 As Single, y1 As Single, y2 As Single
k = InputBox("Введите коэффициент k", "Ввод данных", 5)
b = InputBox("Введите свободный член b", "Ввод данных", -6)
MsgBox ("Уравнение прямой y=" & k & "x+" & b)
R = InputBox("Введите гадиус  r", "Ввод данных", 6)
Cls
Scale (-10, 10)-(10, -10)
Line (-10, 0)-(10, 0)
Line (0, -10)-(0, 10)
Line ((10 + b) / (0 - k), -10)-((-10 + b) / (0 - k), 10)
Circle (0, 0), R, vbvlack
D = R ^ 2 * (k ^ 2 + 1) - b ^ 2
If D > 0 Then
x1 = (-k * b - Sqr(D)) / (k ^ 2 + 1): y1 = k * x1 + b
x2 = (-k * b + Sqr(D)) / (k ^ 2 + 1): y2 = k * x2 + b
MsgBox "2 точки пересечения : (" & x1 & ";" & y1 & ") и (" & x2 & ";" & y2 & ")."
End If
If D = 0 Then MsgBox "Прямая и окружность имеют 1 точку пересечения (" & x1 & ";" & y1 & ")": Exit Sub
If D < 0 Then MsgBox "не пересекается"
End Sub
1
Psihoakustik
15.03.2012, 00:51 3
Ребят, никак не пойму, вот формула: D = R ^ 2 * (k ^ 2 + 1) - b ^ 2 - как вообще получается?
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
15.03.2012, 01:47 4
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
27
Private Sub Command1_Click()
n = 10: p = 100
mx = 1
For i = n To p
k = 1
For j = 2 To i \ 2
If i Mod j = 0 Then k = k + 1
Next
If mx < k Then mx = k
Next
List1.Clear
For i = n To p
k = 1
For j = 2 To i \ 2
If i Mod j = 0 Then k = k + 1
Next j
If mx = k Then
 s = ""
  For j = 2 To i \ 2
    If i Mod j = 0 Then
      s = s & j & " , "
    End If
  Next j
  List1.AddItem i & vbTab & "k=" & mx + 1 & vbTab & s
End If
Next i
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2012, 01:47
Помогаю со студенческими работами здесь

Как отметить точку пересечения прямой с осью х
Код программы: Private Sub Command1_Click() Dim i As Double Picture1.Scale (-2.213,...

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

Найти координаты точек пересечения прямой и окружности
1) на цикл if Найти координаты точек пересечения прямой y=kx+b и окружности радиусом R и с центром...

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


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

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

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