Imports System
Public Class Program
Public Shared Sub Main()
Dim a As Double = 5
Dim _base As Double = 8
Dim altitude As Double = Math.Sqrt((a * a) - ((_base * _base) / 4))
Console.Write("Altitude (Height) of Isosceles Triangle = " & altitude)
End Sub
End Class
' run:
'
' Altitude (Height) of Isosceles Triangle = 3
'