如何编这一题:计算S=1+ 1/2+1/4+1/7+1/11+1/16+1/22+1/29.,当第i项的值
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/10/04 17:06:58
如何编这一题:计算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)在实际存储数据中都会对小数位数多的产生一定误差.
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)在实际存储数据中都会对小数位数多的产生一定误差.
如何编这一题:计算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+…………,当第i项的值
用vb计算s=1+2\3+3\5+4\7+.,当第i项的值小于10^-5时结束
VB编程计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+...,当第i项的值<10的-4次方
VB表达式:计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+···当第i项的值
vb程序,计算1/2+1/4+1/6+1/8+1/10 ,当第i项的值
用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值
VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值
用VB计算 S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…当i项值
棱长为a的小正方体,第1层1个,第2层3个,第3层6个,第4层10个,.,第n层S个,当n=10时,S为多少?
编写s=1+4+9+16+...+n^2 的M函数文件,并计算当n=20 时 s的值
第1-3宇宙速度是如何计算得出的?