vb_lab.vbx

vb_lab.vbx

        Public Function Lab13(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) As Decimal            

            Dim decimalResult as Decimal = 
                (
                    a + Math.Sqrt(2*(a + b)) + 5
                ) /
                (
                    4 * Math.Sin(c/2)
                ) +
                (a * b^2) ^ 1/3 +
                18 +
                Math.Cos(c) ^ (a-b)
            
            Return decimalResult
        End Function


        Public Sub Main(args() As string)
            Const pi As Double = 3.14159265358979
            
            Dim result As Decimal = Lab13(7, 3, pi)
            
            Console.WriteLine(result)
        End Sub