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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы