По двум сторонам и углу между ними найти третью сторону треугольника - VB

Формулировка задачи:

По двум сторонам и углу между ними найти третью сторону треугольника. Не идёт программа. Пытался вычислить, но выдаёт нули. Не пойму, в чём проблема. У меня Visual Basic 6.0.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
b = Val(Text1.Text)
c = Val(Text2.Text)
x = Val(Text3.Text)
a = Sqr((b * b) + (c * c) - (2 * b * c * Cos(x * pi / 180)))
Label5.Caption = "a = " + Format(a, "0.0000")
End Sub

Решение задачи: «По двум сторонам и углу между ними найти третью сторону треугольника»

textual
                            Листинг программы 
                        
Const pi = 3.14159265358979

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

15 голосов , оценка 3.867 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы