Определить, является ли треугольник равнобедренным, равносторонним или разносторонним - VB
Формулировка задачи:
Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним.
НУЖЕН ПРОГРАММНЫЙ КОД В VISUAL BASIC, БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН.
Решение задачи: «Определить, является ли треугольник равнобедренным, равносторонним или разносторонним»
textual
Листинг программы
Private a, b, c As Single Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = b and b = c Then Label4.Caption = "Равносторонний" Else If a <> b and b <> c and a <> c Then Label4.Caption = "Разносторонний" Else Label4.Caption = "Равнобедренный" End If End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д