9512.net
甜梦文库
当前位置:首页 >> 其它课程 >>

第1节 计算机解决问题的过程:一元二次方程求解


计算机解决问题的过程

一、课题引入:解方程试题
1、x2+4x+4=0 2、3x2-5x+2=0 3、6x2+5x-50=0 4、4x2-3x+2=0 5、7x2+23x+5=0 6、5x2-10x+17=0 7、2.3x2+3x-4.6=0 8、2x2-2x-99=0 9、35x2+87x-104=0 10、14x2-x-3=0

二、人解决问题的一般过程。
观察、分析问题

收集必要的信息

判断、推理
根据已有的 知识、经验 解决问题

按照一定的 方法和步骤

三、计算机解决问题

利用计算机求解方程:6x2+5x-50=0 问:请同学们思考,你打算利用计算机如何 来完成这个任务呢?

第一步:分析问题

6x2+5x-50=0解决步骤
观察各项系数之间的关系,确定用公式法求解

第二步:用自然语言描述计算方法
第1步、令a为6,b为5,c为-50。

第2步、令d为 b2- 4ac
第3步、如果 d大于或等于0 x 1为
?b ? b2 ? 4ac , 2a b2 ? 4ac, 2a

x2为 ?b ? 转到第4步。

输出 X1,X2

否则输出方程无解,转到第4步。 第4步、结束程序。

算法:简单地说,算法就是解决问题的方法和步骤。

第三步:将算法编写成计算机程序
原因:计算机读不懂算法,必须翻译成 计算机的语言,这就是程序设计语言。

一元二次方程求解程序:
第一步、令a为6,b为5,c为-50。 第二步、令d为 b2- 4ac 第三步、如果 d大于或等于0
a=6 b=5 c=-50 d=b^2-4*a*c If d>=0 then x1=(-b+sqr(d))/(2*a) x2=(-b-sqr(d))/(2*a) Print x1,x2 Else print “方程无解” End if

则输出X1,x1为
X2,x2为 ,

, ?b ?

b2 ? 4ac 2a

?b ? b2 ? 4ac 2a

转到step4。 否则输出方程无解,转到step4。 第四步、结束程序。

Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single, X 1 As Single, X2 As Single

a=6
b=5 c = -50 d = b ^2 - 4 * a * c If d >= 0 Then X1 = (-b + Sqr(d)) / (2 * a) X2 = (-b - Sqr(d )) / (2 * a) Print X1, X2 Else Print "方程无解" End If End Sub

Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single, X 1 As Single, X2 As Single

a =InputBox("请输入a ")
b = InputBox("请输入b ") c = InputBox("请输入c ") d=b^2-4*a*c If d >= 0 Then X1 = (-b + Sqr(d)) / (2 * a) X2 = (-b - Sqr(d)) / (2 * a) Print X1, X2 Else Print "方程无解" End If End Sub

第1次作业的程序

第四步:运行、调试程序,检验结果。 第五步:问题得到解决

总结:计算机解决问题流程图


赞助商链接

更多相关文章:
更多相关标签:

All rights reserved Powered by 甜梦文库 9512.net

copyright ©right 2010-2021。
甜梦文库内容来自网络,如有侵犯请联系客服。zhit325@126.com|网站地图