(资料图片)
1、要求:误差小于0.00001 Private Sub Command1_Click() Dim i%, n&, t!。
2、 e! e = 2 i = 1 t = 1 Do While t > 0.00001 i = i + 1 t = t / i e = e + t Loop Print "计算了"; i; "项目和是:"; e Print Exp(1) ‘与上句输出值进行对比以证明算法的正确性 End Sub 这种算法是有问题的,不能达到指定的精度的!t<= 0.00001 时结束了循环,这个只是到这一项为止。
3、该项的值比精度小,但是不能保证被舍掉的后面部分(无穷项之和)阶乘的倒数之和比指定的精度小!。
本文分享完毕,希望对大家有所帮助。
上一篇: 【全球聚看点】月咏兔_对于月咏兔简单介绍
下一篇: 最后一页
所有文章、评论、信息、数据仅供参考,使用前请核实,风险自负。
Copyright 2013-2020 高陵经济网 版权所有 京ICP备2022016840号-34
联系邮箱:920 891 263@qq.com glxcb.cn All Rights Reserved