Макрос в Excel

[stawr]

Подскажите, задали сделать макрос: найти биссектрису треугольника, как это сделать? Разобрался как начать запись и как остановить..

[Администратор]

Код:

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

[свернуть]

[stawr]

Спасибо.

[stawr]

Вот что ответил преподаватель:
вход - должен быть координаты вершин А В С на выходе Координаты Высот и биссектрис.

Сможете помочь?

[stawr]

Вот нашел калькулятор, со всеми формулами

http://mathhelpplanet.com/static.php?p=onlain-reshit-treugolnik

[Администратор]

stawr, я на этом сайте не нашёл ни одной формулы. Я там вижу программу: юзер вводит числа и получает результат.

[stawr]

Вот скрины

[вложение удалено администратором]

[Администратор]

stawr, нет, в этом я не стану разбираться, т.к. много.
Вы знаете математику и понимаете Ваше задание? Или Вы не знаете вообще математики?

Если знаете математику и понимаете Вашу задачу, то пробуйте просто формулы вписывать в код, как в моём коде.

[stawr]

Спасибо, попробуем.