Определить углы треугольника, длины сторон которого заданы - VB
Формулировка задачи:
задание: Определить углы треугольника, длины сторон которого заданны.
Назначение процедуры: применить теорему половинного угла
нужно применить формулу тангенса с рисунка
у меня вот что получилось (а точнее не получилось):
Решение задачи: «Определить углы треугольника, длины сторон которого заданы»
textual
Листинг программы
a = 5 b = 6 c = 3 Pi = 3.14159265358979 p = (a + b + c) / 2 If a > p Or b > p Or c > p Then MsgBox "Треугольник не существует!" Else angleA = 360 / Pi * Atn(Sqr((p - b) * (p - c) / (p * p - p * a))) angleC = 360 / Pi * Atn(Sqr((p - a) * (p - b) / (p * p - p * c))) angleB = 180 - angleA - angleC End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д