如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/28 21:36:21
![如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值](/uploads/image/z/1142581-13-1.jpg?t=%E5%A6%82%E4%BD%95%E7%BC%96%E8%BF%99%E4%B8%80%E9%A2%98%3A%E8%AE%A1%E7%AE%97S%3D1%2B+1%2F2%2B1%2F4%2B1%2F7%2B1%2F11%2B1%2F16%2B1%2F22%2B1%2F29.%2C%E5%BD%93%E7%AC%ACi%E9%A1%B9%E7%9A%84%E5%80%BC)
xSOPWՕ;%| &>Uq2`dˈ0FA0fatDlevOX&$"U)OR2-y,XX3,zF
a#1g "Azb5a|MT)y4p7x9*(w[?%(t
:tݼpk[BǪΥG*E6wijr'h0
*C@XtX:mm~ky.Ff3+̊p0+j[!-[KNm^GO usD[P]=Qz}NԨ6ĦZjjǓr粆
2:Ph hu3j?h/D9O
如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值
如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值
如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值
第一种方式:
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim S As Double
a = 1
i = 1
S = 0
Do While (1 / a) > (1 / 10000)
a = a + (i - 1)
S = S + (1 / a)
i = i + 1
If i = 141 Then Print i; S
Loop
Print S
Print i
End Sub
第二种方式
Dim a As Integer
Dim i As Integer
Dim S As Double
a = 1
i = 1
S = 0
Do
a = a + (i - 1)
S = S + (1 / a)
i = i + 1
If i = 141 Then Print i; S
Loop While (1 / a) > (1 / 10000)
Print S
Print i
注:i为项数、S为总合.如果把while改为until则符号“>”改为“.
对了,第141项为2.35936…虽然和你说的结果有点误差,但是,这是在计算机合理的范围内,因为保存数据的需要,单精度(single)和双精度(double)在实际存储数据中都会对小数位数多的产生一定误差.
如何计算时间复杂度的计算比如说i=-1;s=0;while(s
边长为1的正六边形面积如何计算S=6S'=3(√3)1²/2怎么计算?
如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值
如何计算1+2+3+.+100=?
s^3+4s^2+4s+1=0怎么计算?如题
如何计算1-lg5,
用循环结构编程计算s=1!+2!+...+n!
程序设计计算S=1+2+3+------+100的值
VFP编写程序,计算:s=1!+2!+3!+.+10!
编写一个程序,计算s=1!+2!+…..+10!
VFP 计算S=1+2+3...+N
高二数学 棱台V=1/3*(S+S+(S*S)^1/2)*H如何推导?
当S服从指数分布,E(S(S-1))怎么计算
3-x=1/x如何计算
1+2+3.50等于多少?如何计算?
1,2两题数学如何计算
8*(1/2)的平方如何计算
坡度1:2如何计算来的