Вычисление сторон треугольника по заданным углам и R - VB
Формулировка задачи:
a1 a2 a3 это альфа бета гамма
Error 1 Argument not specified for parameter 'a2' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'.
Error 2 Argument not specified for parameter 'a3' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'.
Error 3 Argument not specified for parameter 'a2' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'.
Error 4 Argument not specified for parameter 'a3' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'.
Error 5 Argument not specified for parameter 'a2' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'.
Error 6 Argument not specified for parameter 'a3' of 'Public Function summa(a1 As Single, a2 As Single, a3 As Single) As Single'.
Error 7 Expression is not a method.
как Вы поняли применял теорему синусов и то что сумма углов ровна 180градусов
помогите разобраться с кодом....очень долго мучаюсь...
заранее благодарен)
Решение задачи: «Вычисление сторон треугольника по заданным углам и R»
textual
Листинг программы
Imports System.Math Public Class Form1 Const pi = 3.14159 Private Sub УголА_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УголА.TextChanged УголВ.Text = 180 - Val(УголА.Text) - Val(УголС.Text) End Sub Private Sub УголВ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УголВ.TextChanged УголС.Text = 180 - Val(УголА.Text) - Val(УголВ.Text) End Sub Private Sub УголС_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УголС.TextChanged УголА.Text = 180 - Val(УголС.Text) - Val(УголВ.Text) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Сторона_А.Text = СТОРОНА(УголА.Text, Радиус.Text) Сторона_В.Text = СТОРОНА(УголВ.Text, Радиус.Text) Сторона_С.Text = СТОРОНА(УголС.Text, Радиус.Text) End Sub Function СТОРОНА(ByVal угол As Integer, ByVal Радиус As Integer) As Integer Dim U U = угол * pi / 180 СТОРОНА = Sin(U) * 2 * Радиус End Function End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д