【算法思想】
找出问题的条件与结果之间的数学表达式,再通过表达式的计算来实现问题求解。
【算法实例】
输入已知三角形三条边的长a、b、c,利用海伦公式求三角形面积。
流程图:
VB程序:
Dim a As Single
Dim b As Single
Dim c As Single
Dim s As Single
Dim x As Single
a =InputBox("a:")
b = InputBox("b:")
c = InputBox("c:")
s= (a + b + c) / 2
x = Sqr(s * (s - a) * (s - b) * (s - c))
Print x
网友评论