TOP

Visual Basic Consola - Condicionales 06




06.  Obtenga y visualice el área de un triangulo siempre que los lados que se ingresen por teclado formen un triangulo. Utilice el teorema de Herón para el cálculo del área.


Imports System.Console
Module Module6
    Dim L1, L2, L3, Area, semi As Double
    Sub Main()
        Write("Ingrese Lado 01 : ")
        l1 = ReadLine()
        Write("Ingrese Lado 02 : ")
        l2 = ReadLine()
        Write("Ingrese Lado 03 : ")
        l3 = ReadLine()
        If (L1 + L2) > L3 And (L2 + L3) > L1 And (L3 + L1) > L2 Then
            WriteLine("Los lados insertados forman un Triángulo")
            'Hallar el Semiperímetro
            semi = (L1 + L2 + L3) / 2
            WriteLine("Semiperímetro : " & semi)
            'Hallar el Área usando Teorema de Herón
            Area = (semi * (semi - L1) * (semi - L2) * (semi - L3))
            Area = Math.Sqrt(Area)
            WriteLine("Área del Triángulo, usando la fórmula de Herón : " & Area)
        Else
            WriteLine("Los lados no pertenecen a un Triángulo")
        End If
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.