Контрольная по програмированию на visual basic 6.0

a = InputBox(a)
b = InputBox(b)
c = InputBox(c)
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox (s)
P.S. И не забудь объявить переменные, а то VB площадь неправильно посчитает, он может!

 

Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox(a)
b = InputBox(b)
c = InputBox(c)
If a = b And b = c And c = a Then
MsgBox ("Равносторонний")
ElseIf a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then
MsgBox ("Прямоугольный")
ElseIf a = b Or b = c Or a = c Then
MsgBox ("Равнобедренный")
Else
MsgBox ("Это не треугольник, это фигня какая-то")
End If

 

If Text1.Text = "пароль" Then
MsgBox "правильно"
End If

 

Online
"If a = b And b = c And c = a Then"
Транзетивность для дийствитильных цифр уже отменили??
Зачем сровнение c = a??

 

Вы абсолютно правы, оно лишнее, но! В тот момент в голове был равносторонний треугольник. Долго вспоминал, что это такое. Это тот треугольник, у которого 3 стороны равны. Поэтому 3 сравнения Простите меня, пожалуйста. На результате это никак не скажется.