内容正文:
3.1 用解析法解决问题
在分析具体问题的基础上,抽取出一个数学模型
这个数学模型能用若干个解析表达式表示出来
表达式
问题
解决
解决
什么是解析法
第一步:建立数学模型
第二步:分析出解析表达式
第三步:选择合适的程序结构完成算法
解析法的一般步骤:
1.某商场为了对苹果进行促销,规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序程序计算购买x千克苹果的应付款。
Private Sub Command1_Click( )
Dim x As single
if x <2 then
print 1.5*x
else
endif
Print 1.5*0.8*x
解析法
c
S<=12000
解析法
5.算法设计与程序实现(求三角形面积)
已知a、b、c分别为三角形的三条边长,
利用海伦公式求三角形面积
p =
s =
编程实现:输入边长a ,b ,c,如果能构成三角形,输出面积,否则输出“No Answer!”
【参考程序】
Dim a As Single
Dim b As Single
Dim c As Single
Dim p As Single
Dim s As Single
a = Val ( text1.text )
b = Val ( text2.text )
c = Val ( text3.text )
If Then
p = ( a+b+c )/ 2
s = Sqr(p*(p-a)*(p-b)*(p-c))
text4.text = format(s,”0.00”) ‘结果保留两位小数
Else
text4.text = “No Answer!”
End If
根据上述回答下列问题:(8分,每空4分)
(1)利用海伦公式求三角形面积的算法是 (填:解析法/枚举法/排序法/查找法)
(2)填写处参考程序中空白处的表达式 (填写字母:A/B/C/D)。
A. a+b>c or a+c>b and b+c>a
B. a+b>c or a+c>b