Определить углы треугольника, длины сторон которого заданы - 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

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


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

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

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