На VBA найти площадь треугольника

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

Нахождение площади треугольника, если три заданных числа a,b,c задают длины его сторон

Решение задачи: «На VBA найти площадь треугольника»

textual
                            Листинг программы 
                        
sub GetTriangleSquare(a As Variant, b As Variant, c As Variant) 
 
    Dim p As Variant
    Dim s As Variant
    
    p = (a + b + c) / 2
    
    s = Sqr(p * (p - a) * (p - b) * (p - c))
    
    MsgBox "Площадь треугольника равна " & s
End sub

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

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

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

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

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