Calculando El Área de Un Triangulo

Elaboraremos un algoritmo que lea los 3 lados de un triangulo cualquiera y que calcule su área considerando que si a,b y c son lados y s el semiperímetro.

Identificadores: Área del Triangulo (AT), Longitud del Lado A (LA), Longitud del Lado B (LB); Longitud del Lado C (LC), Longitud del Semiperímetro (LS)

Solución 

Module Module1
    Dim AT As Integer
    Dim LA As Integer
    Dim LB As Integer
    Dim LC As Integer
    Dim LS As Integer

    Sub Main()
        Console.WriteLine(" Ing longitud del lado A")
        LA = Console.ReadLine()
        Console.WriteLine(" Ing longitud del lado B")
        LB = Console.ReadLine()
        Console.WriteLine(" Ing longitud del lado C")
        LC = Console.ReadLine()
        LS = (LA + LB + LC) / 2
        AT = (LS * (LS - LA) * (LS - LB) * (LS - LC)) ^ 0.5
        Console.WriteLine(" El Area del Triangulo es {0}", AT)
        Console.ReadLine()
    End Sub

End Module