Red de conocimiento informático - Material del sitio web - Utilice Vb. para escribir un programa que primero determine si los tres lados dados pueden formar un triángulo. Si es así, calcule y genere el área del triángulo.

Utilice Vb. para escribir un programa que primero determine si los tres lados dados pueden formar un triángulo. Si es así, calcule y genere el área del triángulo.

Sub abc() 'Ingresa las longitudes de los tres lados del triángulo y calcula su área

Dim a, b, c, s

Do

s = InputBox (" Ingrese las longitudes de los tres lados del triángulo, separados por comas." & Chr(13) & "Finalice el programa cuando ingrese -1.")

If Val(s) = - 1 luego Salir Do

a = Val(s)

s = Mid(s, InStr(s, ","") + 1)

b = Val( s)

c = Val(Mid(s, InStr(s, ","") + 1))

Si a + b > c And a + c > b Y b + c > a Entonces

MsgBox "Las longitudes de los tres lados son:" & a & " & b & " & c & Chr(13) & "El área del triángulo es: " & Sqr( (a + b + c) * (a + b - c) * (a + c - b) * (b + c - a)) / 4

Else

MsgBox "Ingresaste datos incorrectos. No puede formar un triángulo, ¡vuelve a ingresar!"

End If

Loop

End Sub

'El código anterior cumplirá con sus requisitos. Cuando la longitud del tercer lado es la misma que la longitud del segundo lado, el tercer lado se puede omitir y la longitud de solo un lado puede ser. ingresado para un triángulo equilátero.