用计算机程序解决问题讲解.ppt

用计算机程序解决问题 2x2+5x+3=0 2x2+8x+8=0 7x2+8x+9=0 用计算机程序解决问题 普通计算方法： 根据公式： X=-b + Sqr(b * b - 4 * a * c)/ (2 * a) 根的情况： 通过判断D=b*b-4ac的值来确定。 用计算机程序解决问题 读入a,b,c,的值 计算D=b*b-4ac 如果: 1.D0,则方程无实数根； 2.D=0时有两个相同的实数根X1=X2=-b/2a; 3.D0时，有两个不相同的实数根: X1=-b+Sqr(b * b - 4 * a * c)/2a X2=-b- Sqr(b * b - 4 * a * c)/2a 一元二次方程计算程序代码 Private Sub Command1_Click() Print 请输入方程系数a,b,c (a不为0) Let a = InputBox(请输入a) Let b = InputBox(请输入b) Let c = InputBox(请输入c) Print a=; a Print b=; b Print c=; c Let X0 = b * b - 4 * a * c If X0 0 Then Print 无解; Else Let X1 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a) Let X2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a) Print x1=; X1 Print x2=; X2 End If End Sub 程序示例2 韩信点兵程序 “韩信点兵，多多益善”这句话大家都知道，那究竟这“多多”的士兵共有多少呢？韩信说：“如果每3个人编为一队，那最后剩下1个人；如果每5个人编为一队，那最后剩下2个人；如果每7个人编为一队，最后也剩下2个人。请你自己算一个，我有多少士兵？”（假设士兵总数不超过100人） 韩信点兵程序 ◇古代解法 在我国古代的数学著作中，对这个问题也做了非常详细的研究，并总结了解题的方法： 三人同行七十（70）稀， 五树梅花廿一（21）枝， 七子团圆正半月（15）， 余百零五（105）便得知。 意思是说：把除以3、5、7所得的余数，分别乘以70、21、15，加起来的和再减去105的倍数，所得的差小于105时就是我们所求的这个数了。如本题： 1×70+2×21+2×15=142 142-105=37 韩信点兵程序 ◇数学解法 设士兵共有S名。S除以3，5，7所得的商分别为A，B，C，那么由题意，有 3A+1=S 5B+2=S 7C+2=S 韩信点兵算法 韩信点兵算法 S＝100 判断： 如果S除以3余1、S除以5余2、S除以7余2同时成立，那么S就是解，输出解S的值，程序结束 否则，转③ S减1，转②重复这个判断过程。 韩信点兵程序代码执行过程 Dim a1, b1, a2, b2, a3, b3, s, s1 As Long a1 = 3 b1 = 1 a2 = 5 b2 = 2 a3 = 7 b3 = 2 s = 100 Text1.Text＝”” While s 0 If (s Mod a1 = b1) And (s Mod a2 = b2) And (s Mod a3 = b3) Then Text1.Text = 韩信一共有 Str(s) 名士兵 s = -1 ‘ 结束搜索过程 Else s = s - 1 End If end 程序示例3 课本P74页例题 刘丽的妈妈是某公司经理，每天都用电脑处理大量的商业文件。听闻有关计算机信息被盗取的事件报道后，她担心保存在计算机里的重要文件万一被别人窃取后，将会给公司造成不可估量的损失，因此希望找到一个保密方法。 加密程序代码 互动