下载此文档

常用算法介绍精选课件.ppt


文档分类:IT计算机 | 页数:约77页 举报非法文档有奖
1/77
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/77 下载此文档
文档列表 文档介绍
关于常用算法介绍
第一页,本课件共有77页
算法1:累加和累乘
累加形式:V=V+e
连乘形式:V=V*e
其中:V是变量,e是递增表达式。累加和连乘一般通过循环结构来实现。
注意:需在执行循环体前对变量V赋初值。一般的,累加时置初值0;连乘时置初值为1。
第二页,本课件共有77页
例如
求N!的结果。
Private Sub Command1_Click()
Dim n%, i%, s&
n = Val(InputBox("输入n"))
s = 1
For i = 1 To n
s = s * i
Next i
Print s
End Sub
第三页,本课件共有77页
错误的例子
Private Sub Command1_Click()
Dim n%, i%, s&
n = Val(InputBox("输入n"))
For i = 1 To n
s = 1 ‘赋初值语句位置不对!
s = s * i
Next i
Print s ‘输出s的值为n,而不是n!
End Sub
第四页,本课件共有77页
根据下列公式,求自然对数e的的近似值。
要求:
Private Sub Command1_Click()
Dim i%, n&, t!, e!
e = 2
i = 1
t = 1
Do While t >
i = i + 1
t = t / i
e = e + t
Loop
Print "计算了"; i; "项目和是:"; e
Print Exp(1) ‘与上句输出值进行对比以证明算法的正确性
End Sub
第五页,本课件共有77页
解题技巧
1)        由于这类题目往往是根据精度要求来求值,因此我们不能预知具体循环次数,所以这类题目一般用Do循环,很少用For循环。设定循环变量和通项变量,注意各变量的初值;
2)        分解通项表达式中各因子,并分别将各因子用循环变量表示;
3)        如果步骤2中有的因子比较复杂,难以直接用变量表示,此时可以考虑使用Function过程;
4)        根据步骤1、2、3,写出通项表达式;
5)        根据精度要求(往往是通项小于10负多少次方这样一个关系表达式),写出一条满足精度要求后跳出循环的语句。通常是用:if 通项表达式>10^(-N) then exit do ,注意这句话一般需放在累加或者连乘式之前。
第六页,本课件共有77页
根据X值计算:
n=1,2,……
要求:n项绝对值小于等于10-6为止。
注意:如果调试运行时死循环,可以按Ctrl+Break中断死循环,不需要重新启动机器。(或者Ctrl+Scroll Lock)
第七页,本课件共有77页
private Function comp(n as long)as long
dim I as long
dim result as long
result=1 ‘此处注意,由于是连乘,初值为1
for I=1 to 2*(n-1)
result=result*I
next I
comp=result
End Function
第八页,本课件共有77页
Private Sub Command1_Click()
Dim n As Long, dblCos As Double, x As Double
x = Val()
n = 1
Do
dblCos = (-1) ^ (n + 1) * x ^ (2 * (n - 1)) / comp(n)
If Abs(dblCos) <= 10 ^ (-6) Then Exit Do
Sum = Sum + dblCos
n = n + 1
Loop
Print Sum
End Sub
Private Function comp(n As Long) As Long
Dim I As Long
Dim result As Long
result = 1 '此处注意,由于是连乘,初值为1
For I

常用算法介绍精选课件 来自淘豆网m.daumloan.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数77
  • 收藏数0 收藏
  • 顶次数0
  • 上传人文库新人
  • 文件大小1.27 MB
  • 时间2021-12-20
最近更新