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.
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 p>
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.