最新用计算机程序解决问题.pptVIP

Unit of measure * Source: Hamersley/040401/SH-GG(2000) CONFIDENTIAL Document Date This report is solely for the use of client personnel. No part of it may be circulated, quoted, or reproduced for distribution outside the client organization without prior written approval from McKinsey Company. This material was used by McKinsey Company during an oral presentation; it is not a complete record of the discussion. Working Draft 信息的加工与表达（下） 用计算机程序解决问题 2007年 12月 高一年级信息技术基础 建大附中 用计算机程序解决问题 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 1。提示在文本框中输入方程的三个系数A,B,C 2。输出三个系数的值。 1。让XO等于B平方减4*A*C 2。如果XO的值小于0，则输出无解 3.否则输出结果 1.输出方程的解X1,X2 2.程序结束 程序示例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，