Найти стороны треугольника - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д