Определить, является ли треугольник равнобедренным, равносторонним или разносторонним - 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

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы