VBNet - Форум - Задача! Прямая и окружность

Вопрос: Задача! Прямая и окружность Добавлено: 25.10.08 16:56

Автор вопроса: vio

Всем привет. Помогите, пожалуйста, решить задачку(я не лентяй, у меня не получается решить ее, наверное, потому что с математикой плохо ) Во-общем, вот само условие:

Определить, сколько точек пересечения имеют окружность радиуса R с центром в начале координат и произвольная прямая y=kx+e. Вычислить координаты точек пересечения.

Private Sub cmdВычисление_Click()

R = Val(txtR.Text) 'присваивание переменных значений
k = Val(txtk.Text) 'введенных в соответсвующие текстовые поля
e = Val(txte.Text)
a = 1 + k ^ 2 'вспомогательные переменные
b = 2 * k * e
c = e ^ 2 - R ^ 2
D = b ^ 2 - 4 * a * c 'вычисление дискриминанта
txtD.Text = Str(D)
    Select Case D
        Case Is < 0
        lblТочки.Caption = "Нет точек пересечения"
        fraX1.Visible = False
        fraX2.Visible = False
        fraY1.Visible = False
        fraY2.Visible = False
    Case 0
        lblТочки.Caption = "Одна точка пересечения. Прямая - касательная"
        X1 = ...
        fraX1.Visible = True
        fraX2.Visible = False
        fraY1.Visible = True
        fraY2.Visible = False
        Y1 = ...
        txtX1.Text = Str(X1)
        txtY1.Text = Str(Y1)
    Case Else
        fraX1.Visible = True
        fraX2.Visible = True
        fraY1.Visible = True
        fraY2.Visible = True
        lblТочки.Caption = "Две точки пересечения. Прямая - секущая"
        X1 = ...
        txtX1.Text = Str(X1)
        X2 = ...
        txtX2.Text = Str(X2)
        Y1 = ...
        txtY1.Text = Str(Y1)
        Y2 = ...
        txtY2.Text = Str(Y2)
     End Select
End Sub

Необходимо заполнить формулы для Х1, Х2, Y1, Y2. Я наверное настолько туп, но сделать это не могу, хотя мне кажется, что это что то элементарное. Помогите разобраться.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: s12 Вопросов: 24 Ответов: 363	Профиль \| \| #1	Добавлено: 26.10.08 18:32
	Помогём... Ближе к ночи. Счас некогда, учебник по вышке искать Ответить

Номер ответа: 2 Автор ответа: vio Вопросов: 1 Ответов: 1	Профиль \| \| #2	Добавлено: 26.10.08 19:16
	ой спс! я тут уже весь гугл измучал, но все безуспешно... Ответить

Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #3	Добавлено: 26.10.08 19:47
	Какая вышка? Это геометрия девятого класса... Стыдно не знать. http://files.school-collection.edu.ru/dlrstore/b20277eb-3501-4e8c-bb18-590adb91f106/Textbook/Module3/Chapt_3_02.pdf Читай про касательные к гразику функции... http://mat.1september.ru/2001/16/no16_01.htm Ответить

Номер ответа: 4 Автор ответа: s12 Вопросов: 24 Ответов: 363	Профиль \| \| #4	Добавлено: 26.10.08 23:35
	Executioner пишет: Какая вышка? Это геометрия девятого класса... Сорри, образование 8 классов средней школы +ср. специальное +неоконченное высшее (9 класс незнаю =() Ответить

Страница: 1 |