Найти стороны треугольника - VB

Узнай цену своей работы

Формулировка задачи:

Вычислить стороны треугольника A и B при условии, что заданы сторона C и углы треугольника α и ß . Назначение процедуры: Вычисление стороны треугольника по формуле A=C*(SIN(α)/(SIN(γ)) ,где α - угол, противолежащий стороне A, γ - угол, противолежащий стороне C

Решение задачи: «Найти стороны треугольника»

textual
Листинг программы
Option Explicit
Private Const Pi = 3.1415926
 
Private Sub Command1_Click()
    Dim Alfa As Single, Beta As Single, Gamma As Single
    Dim A As Single, B As Single, C As Single
    C = InputBox("Введите длину стороны C", "Ввод данных", 10)
    Alfa = InputBox("Введите угол Alfa (в градусах)", "Ввод данных", 90)
    Beta = InputBox("Введите угол Beta (в градусах)", "Ввод данных", 60)
    Gamma = 180 - (Alfa + Beta)
    A = C * (Sin(DTR(Alfa)) / Sin(DTR(Gamma)))
    B = C * (Sin(DTR(Beta)) / Sin(DTR(Gamma)))
    MsgBox "A = " & A & vbCrLf & "B = " & B
End Sub
 
' Функция перевода Degrees To Radians
Private Function DTR(ByVal Degrees As Single) As Double
    DTR = Degrees * Pi / 180
End Function

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


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

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

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