Home » VB.Net » VB.Net Programs

VB.Net program to find the hyperbolic cosine of the specified angle

By Nidhi Last Updated : November 14, 2024

Finding the hyperbolic cosine of the specified angle

Here, we will find the hyperbolic cosine of the specified angle and print the result on the console screen.

VB.Net code to find the hyperbolic cosine of the specified angle

The source code to find the hyperbolic cosine of the specified angle is given below. The given program is compiled and executed successfully.

'VB.Net program to find the hyperbolic cosine 
'of the specified angle.

Module Module1

    Sub Main()
        Dim hyperCosine As Double = 0

        hyperCosine = Math.Cosh(2)
        Console.WriteLine("Hyperbolic Cosine is: {0}", hyperCosine)

        hyperCosine = Math.Cosh(0.3584)
        Console.WriteLine("Hyperbolic Cosine is: {0}", hyperCosine)

        hyperCosine = Math.Cosh(0.0)
        Console.WriteLine("Hyperbolic Cosine is: {0}", hyperCosine)
    End Sub
    
End Module

Output:

Hyperbolic Cosine is: 3.76219569108363
Hyperbolic Cosine is: 1.06491571143776
Hyperbolic Cosine is: 1
Press any key to continue . . .

Explanation:

In the above program, we created a module Module1 that contains the Main() method. In the Main() method we created a variable hyperCosine initialized with 0.

hyperCosine = Math.Cosh(2)
Console.WriteLine("Hyperbolic Cosine is: {0}", hyperCosine)

hyperCosine = Math.Cosh(0.3584)
Console.WriteLine("Hyperbolic Cosine is: {0}", hyperCosine)

hyperCosine = Math.Cosh(0.0)
Console.WriteLine("Hyperbolic Cosine is: {0}", hyperCosine)

In the above code, we find the hyperbolic cosine of the specified angle values and then printed them on the console screen.

VB.Net Basic Programs »

---