'Jason Nacionales

'10/20/21

'Volume of a Cone

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim radius, height As Single 'declaring variable

        Dim volume As Single

        Const PI as Single = System.Math.Pi

        Console.WriteLine("What is the radius of the cone?") ' get user input

        radius = Console.ReadLine()

        Console.WriteLine("What is the height of the cone?")

        height = Console.ReadLine()

        volume = (1/3) * PI *(radius ^ 2) * height 'calculations

        Console.WriteLine("The volume of the cone is " & volume & ".") 'output

    End Sub

End Module