1、程序设计初步数学问题何为算法？o 算法是一个有穷规则的集合，这些规则确定了解决某类问题的一个运算序列。o 算法具有以下基本特征：有穷性，确定性，有效性，有零个或多个输入，有一个或者多个输出。计算机与数学问题o 计算机最初发明时就是用来解决数值计算的问题，因此，解决数学问题是计算机最主要的特长。但用计算机解决数学问题与一般的数学方法是有些不同的。计算机与数学问题o 不同之处：在数学问题中，我们主要讲究的是解题的技巧。而在计算机中，我们主要讲究的是解题的方法。o 相同之处：无论在数学中还是计算机中，我们最终的目的是得到题目最终的正确结果。计算机在数学中的应用：o 一、年龄问题o“年龄问题”是小学数
2、学中常见的问题。用小学数学方法解决这个问题时，通常采用的是“画线段图”的方法，而在初中则采用“解方程”的方法解决，现在我们采用计算机编程来解决上述问题。计算机在数学中的应用：o 现在我们采用计算机编程来解决上述问题，又有另外一种不同的方法-“穷举法”。o 穷举法：按照事物发展规律，尝试把问题所有可能的答案都列出来，最后找到正确答案的一种方法。“穷举法”求年龄流程图否否是是开始结束输出a+x(a+x)+(b+x)=65?A=6,b=15,x=1X累加1For循环求年龄o Dim a,b,x As Integero a=6：b=15：x=1o For x=1 To 100 Step 1o If(a
3、+x)+(b+x)=65 Theno Label1.Caption=a+xo Exit Foro Elseo Label1.Caption=“此题无解!o End Ifo Next XWhile循环求年龄o Dim a,b,x,c As Integero a=6：b=15：x=1o While(a+x)+(b+x)65o x=x+1o If x 45 Theno Label1.Caption=“此题无解！o Exit Subo End Ifo Wendo Label1.Caption=a+x求鸡兔同筒问题o Dim x,a As Integero For x=1 To 30 Step 1o I
4、f 2*X+(30-X)*4=96 Theno Label1.Caption=“鸡有”&X&“只，兔子有&30-X&只！o Exit Foro End Ifo Next X计算机在数学中的应用o 把316这个数表示为两个数之和，使其中一个数能被13整除，而另一个数能被11整除，求解这两个数。计算机在数学中的应用o Dim a,b As Integero For a=13 To 316 Step 1o For b=11 To 316-a Step 1o If a Mod 13=0 And b Mod 11=0 And a+b=316 Theno Label1.Caption=X的值是：&a&，&
5、Y的值是：&bo Exit Subo End Ifo Nexto Next课后习题一（流程图）课后习题一（源代码）o For I=1 TO 23n If I*3+(24 I)*4=86 THENn Label1.Caption=三轮摩托车共：&X&辆！“n END IFn NEXT I课后习题二（流程图）课后习题二（源代码）o FOR I=49 TO 1 STEP-1 IF I+5=4*（50-I+5）THEN Label1.Caption=父：&X&,儿子：&50-XEXIT FOR END IF NEXT I END思考题：求“水仙花”数o 存在着这样的一种三位数：它的个位，十位，百位上的
6、数字的3次方之和等于这个数的本身。例如：153 13 +53+33 用流程图来表示求水仙数。求水仙花数的源程序o Dim I As Integero Dim X,y,z As Integero For I=100 To 999 Step 1o z=Int(I/100)o y=Int(I-z*100)/10)o X=Int(I-z*100-y*10)o If z 3+y 3+X 3=I Theno temp=temp&I&,o Label1.Caption=tempo End Ifo Next a求PI值.9171513114以上是一个求PI近似值的公式，请用流程图表示出来。求PI值的源程序oD
7、im Mvalue As DoubleoMvalue=CDbl(Text1.Text)oDim n As DoubleoDim temp As DoubleoDim Sum As Doubleon=0oWhile n Mvalueotemp=(-1)n/(1+2*n)oSum=temp+Sumon=n+1oWendoLabel1.Caption=Sum*4求自然数的阶乘算法o Dim P,I as Integero P=1:I=2o For I=2 to 10 Step 1o P=P*Io Next Io Label1.Caption=10的阶乘是：&P随堂练习 第 3题o 流程图o 程序源码
8、阶乘流程图计算1!+2!+3!+4!+5!的值o Dim sum,n,k,Mvalue As Integero If Text1.Text=Theno MsgBox 请输入有效数字！o Elseo Mvalue=CInt(Text1.Text)o k=1o n=1o sum=0o For n=1 To Mvalue Step 1o k=k*no sum=sum+ko Nexto Label1.Caption=Mvalue&的阶乘是：&ko Label3.Caption=总和是：&sumo End If随堂练习 第 4题（过程图）随堂练习 第 4题（源码1）o Dim a,b,c,d,i As Integero a=8o b=5o c=3o d=2o i=0o While(i b And a c And a d Theno a=a-3o b=b+1o c=c+1o d=d+1o i=i+1随堂练习 第 4题（源码2）o ElseIf b a And b c And b d Theno b=b-3o a=a+1o c=c+1o d=d+1o i=i+1o Elseo d=d-3o a=a+1o b=b+1o c=c+1o i=i+1o End Ifo Wend
