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

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


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

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

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