Разработайте алгоритм для решения задачи.Результаты представить в виде массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д