Разработайте алгоритм для решения задачи.Результаты представить в виде массива

28.04.2013, 17:26. **Показов** 2057. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Даны две прямые, заданные уравнением у=к1х+b1 y=k2x+b2, вводятся к1 b1 к2 b2, определить являются ли данные прямые перпендикулярными и найти их точку пересечения.

@sco43 · 28.04.2013, 17:57

...

@Казанский · 28.04.2013, 18:04

По-моему, критерий перпендикулярности к1*к2=-1

@antonboom · 28.04.2013, 21:26

sco43, причем здесь формула для угла между векторами?

Visual Basic

Private Sub Form_Load()
Me.AutoRedraw = True
Dim k1, k2, b1, b2, x, y As Double
k1 = InputBox("ââåäèòå ïåðâûé êîýôôèöèåíò")
b1 = InputBox("ââåäèòå ÷èñëî b1")
k2 = InputBox("ââåäèòå âòîðîé êîýôôèöèåíò")
b2 = InputBox("ââåäèòå ÷èñëî b2")
 
If k1 * k2 = -1 Then
x = (b2 - b1) / (k1 - k2)
y = k1 * x + b1
Print "Ïðÿìûå ïåðïåíäèêóëÿðíû è ïåðåñåêàþòñÿ â òî÷êå À(" + Str(x) + ";" + Str(y) + ")"
ElseIf k1 = k2 Then Print "Ïðÿìûå ïàðàëëåëüíû"
Else
x = (b2 - b1) / (k1 - k2)
y = k1 * x + b1
Print "Ïðÿìûå ïåðåñåêàþòñÿ â òî÷êå À(" + Str(x) + ";" + Str(y) + ")"
End If
 
End Sub

ДашульКО
		1
	Разработайте алгоритм для решения задачи.Результаты представить в виде массива 28.04.2013, 17:26. Показов 2057. Ответов 3 Метки нет (Все метки) Даны две прямые, заданные уравнением у=к1х+b1 y=k2x+b2, вводятся к1 b1 к2 b2, определить являются ли данные прямые перпендикулярными и найти их точку пересечения.

@sco43 670 / 163 / 22 Регистрация: 27.01.2012 Сообщений: 372
	28.04.2013, 17:57	2
	... Изображения 1

@Казанский 15153 / 6426 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	28.04.2013, 18:04	3
	По-моему, критерий перпендикулярности *к1к2=-1** 1

	28.04.2013, 21:26

Разработайте алгоритм для решения задачи.Результаты представить в виде массива

Решение