Подскажите, задали сделать макрос: найти биссектрису треугольника, как это сделать? Разобрался как начать запись и как остановить..
Код:
Sub Макрос1()
Dim a As Double, b As Double, y As Double
Dim L As Double
Dim Ch As Double, Zn As Double
' Запись данных в переменные.
a = 1
b = 1
y = 1
' Расчёт числителя.
Ch = 2 * a * b * VBA.Cos(y / 2)
' Расчёт знаменателя.
Zn = a + b
' Расчёт биссектрисы.
L = Ch / Zn
' Сообщение с результатом.
MsgBox "Биссектриса равна: " & L
End Sub
Спасибо.
Вот что ответил преподаватель:
вход - должен быть координаты вершин А В С на выходе Координаты Высот и биссектрис.
Сможете помочь?
Вот нашел калькулятор, со всеми формулами
http://mathhelpplanet.com/static.php?p=onlain-reshit-treugolnik
stawr, я на этом сайте не нашёл ни одной формулы. Я там вижу программу: юзер вводит числа и получает результат.
Вот скрины
[вложение удалено администратором]
stawr, нет, в этом я не стану разбираться, т.к. много.
Вы знаете математику и понимаете Ваше задание? Или Вы не знаете вообще математики?
Если знаете математику и понимаете Вашу задачу, то пробуйте просто формулы вписывать в код, как в моём коде.
Спасибо, попробуем.