Pages

miércoles, 23 de enero de 2013

Determinar si forma un triangulo Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que dadas tres longitudes, decir mediante un mensaje si forma un triángulo o no (cada lado tiene que ser menor que de las otras dos).

Solución
  • Entrada: 3  4  5
  • Salida: Si forma un triangulo
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Double
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        If ((Math.Abs(a - c) < b) And (b < (a + c))) Then
            TextBox4.Text = "Si Forma un triangulo"
        Else
            TextBox4.Text = "No Forma un triangulo"
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada