分别编一计算某级数部分和的子过程和函数过程,并调用.级数为：1+x+x^2/2+x^3/3+.+x^n/n精度为：x^n/n的绝对值= eps) s = s + t t = t * x / n n = n + 1Loop jishu1 = sEnd Function子过程实现求部分级数和Sub jishu2(s
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 09:47:39
分别编一计算某级数部分和的子过程和函数过程,并调用.级数为：1+x+x^2/2+x^3/3+.+x^n/n精度为：x^n/n的绝对值= eps) s = s + t t = t * x / n n = n + 1Loop jishu1 = sEnd Function子过程实现求部分级数和Sub jishu2(s
分别编一计算某级数部分和的子过程和函数过程,并调用.级数为：1+x+x^2/2+x^3/3+.+x^n/n
精度为：x^n/n的绝对值= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
jishu1 = s
End Function
子过程实现求部分级数和
Sub jishu2(s#,,eps#)
Dim n%,t#
n = 1:s = 0:t = 1
Do While (Abs(t) >= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
End Sub
已知这么多、过程中的 t=t*x/n 我知道是错误的,是另外一个式子的公式
但是我想了好久、想不到正确的公式是什么.
分别编一计算某级数部分和的子过程和函数过程,并调用.级数为：1+x+x^2/2+x^3/3+.+x^n/n精度为：x^n/n的绝对值= eps) s = s + t t = t * x / n n = n + 1Loop jishu1 = sEnd Function子过程实现求部分级数和Sub jishu2(s
除非x是大于-1小于1的小数,不然应该永远达不到你设定的eps,无限循环.
你的公式是错误的,应该是x^n/n
n = 1 : s = 1
Do While (Abs(t) >= eps)
s = s + t
t = x ^ n / n
n = n + 1
Loop
jishu1 = s