Hàm tính diện tích tam gíac

[thanhquyenlk]

chào các bro, mình là thành vien mới, mình có làm 1 bài tập tính diên tích nhung làm cả đêm không được, các bro chỉ giùm
Public Function tamgiac(a, b, c)
If a > b + c Or b > a + c Or c > a + b Then
tamgiac = 0
elsae
P = (a + b + c) / 2
tamgiac = sgi(P * (P - a) * (P - b) * (P - c))
End If
End Function

 

[ptm0412]

Public Function tamgiac(a, b, c)
If a > b + c Or b > a + c Or c > a + b Then
tamgiac = 0
Else
P = (a + b + c) / 2
tamgiac = Sqr(P * (P - a) * (P - b) * (P - c))
End If
End Function

 

[SA_DQ]

Hay là vui thêm chút, như sau

Public Function TamGiac(a As Double, b As Double, c As Double)
If a > b + c Or b > a + c Or c > a + b Then
   TamGiac = 0
ElseIf a > 0 And b > 0 And c > 0 Then
   P = (a + b + c) / 2
   TamGiac = (P * (P - a) * (P - b) * (P - c)) ^ (1 / 2)
Else
   TamGiac = "Di Cho Khac Choi!"
End If
End Function