Вычисление площади пятиугольника - VB

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

Помогите написать прогу))) Даны действительные числа a,b,c,d. Наидите площадь выпуклого пятиугольника, стороны которого 1,a,b,c,d. Длина диоганалей 2; 2.5. Используйте подпрограмму вычисления площади треугольника по трем сторонам.

Решение задачи: «Вычисление площади пятиугольника»

textual
                            Листинг программы 
                        

                            Dim S
Private Sub Command1_Click()
a = 3: b = 3: c = 4: d = 5
d1 = 2: d2 = 2.5
S = 0
Call tr(1, a, d1)
Call tr(d1, b, d2)
Call tr(d2, c, d)
MsgBox S
End Sub
 
Private Sub tr(a, b, c)
On Error GoTo 1
p = (a + b + c) / 2
S = S + Sqr(p * (p - a) * (p - b) * (p - c))
Exit Sub
1 S = 0
MsgBox "Error"
End Sub
                        

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

14 голосов , оценка 4 из 5

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