Qbasic用海伦公式求三角形面积

Qbasic用海伦公式求三角形面积¹

【例 2-1】求三角形的面积，设三角形的三条边长 a 、 b 、 c 分别为 10、12、15。
从数学知识可知，三角形面积公式为：area = √s(s-a)(s-b)(s-c)，半周长为：s =1/2(a+b+c)

QBASIC 源程序如下：

REM 已知三角形的三条边的边长直接求三角形面积
REM HERON'S FORMULA
REM area = √s(s-a)(s-b)(s-c)
REM s =1/2(a+b+c)
REM the area of triangle
LET a = 3: LET b = 4: LET c = 5
IF a + b <= c OR b + c <= a OR c + a <= b THEN GOTO a
LET s = (a + b + c) / 2
LET area = SQR(s * (s - a) * (s - b) * (s - c))
PRINT "area="; area
a: END

结果显示为：
area= 6

---

1. http://idl.hbdlib.cn/book/00000000000000/pdfbook3/018/017/109792.pdf ↩︎