vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/01 20:56:18
vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思
Private Sub Form_Click()
Dim x%,,i%,q%
x = Val(InputBox("请输入X的值"))
Do While t >= 10 ^ (-5)
s = s + t
n = n + 1
For k = 1 To 2 * n - 1
q = q * k
Next k
t = ((-1) ^ (n - 1)) * (x ^ (2 * n - 1)) \ q
Loop
Print "s="; s
End Sub
当第n项的值小于10^-5时结束
Private Sub Form_Click()
Dim x%,,i%,q%
x = Val(InputBox("请输入X的值"))
Do While t >= 10 ^ (-5)
s = s + t
n = n + 1
For k = 1 To 2 * n - 1
q = q * k
Next k
t = ((-1) ^ (n - 1)) * (x ^ (2 * n - 1)) \ q
Loop
Print "s="; s
End Sub
当第n项的值小于10^-5时结束
Private Sub Form_Click()
Dim x%,s!,i%,q%
x = Val(InputBox("请输入X的值"))
Do While t >= 10 ^ (-5) '问题出在这里,因为t的初值是0,所以t
再问: 不对,我试了下,可以再帮我看看嘛,新手学VB,灰常感谢
再答: 其实我是学Pascal的,但是在学校的计算机课上学了些VB。 我编的程序如下,因为比如说5!=3!*4*5,x^5=x^3*x^2,所以可以把程序化简一下: Private Sub Form_Click() Dim i As Long, n As Long, t As Double, s As Double x = Val(InputBox("Input x")) t = x s = 0 n = 1 Do While Abs(t) >= 10 ^ (-5) s = s + t t = t / ((n + 1) * (n + 2)) * (-1) * x ^ 2 n = n + 2 Loop Print "s="; s End Sub 如果要用你以前的方法,那么就像下面: Private Sub Form_Click() Dim x As Long, k As Long, n As Long, s As Double, q As Double, t As Double x = Val(InputBox("请输入X的值")) Do While True q = 1 For k = 1 To 2 * n - 1 q = q * k Next k t = ((-1) ^ (n - 1)) * (x ^ (2 * n - 1)) / q If Abs(t) < 10 ^ (-5) Then Exit Do s = s + t n = n + 1 Loop Print "s="; s End Sub 数据定义的时候可以阔气一点,多用一些Long、Double,少用一些Integer和Real,但是也要依情况而定。
Dim x%,s!,i%,q%
x = Val(InputBox("请输入X的值"))
Do While t >= 10 ^ (-5) '问题出在这里,因为t的初值是0,所以t
再问: 不对,我试了下,可以再帮我看看嘛,新手学VB,灰常感谢
再答: 其实我是学Pascal的,但是在学校的计算机课上学了些VB。 我编的程序如下,因为比如说5!=3!*4*5,x^5=x^3*x^2,所以可以把程序化简一下: Private Sub Form_Click() Dim i As Long, n As Long, t As Double, s As Double x = Val(InputBox("Input x")) t = x s = 0 n = 1 Do While Abs(t) >= 10 ^ (-5) s = s + t t = t / ((n + 1) * (n + 2)) * (-1) * x ^ 2 n = n + 2 Loop Print "s="; s End Sub 如果要用你以前的方法,那么就像下面: Private Sub Form_Click() Dim x As Long, k As Long, n As Long, s As Double, q As Double, t As Double x = Val(InputBox("请输入X的值")) Do While True q = 1 For k = 1 To 2 * n - 1 q = q * k Next k t = ((-1) ^ (n - 1)) * (x ^ (2 * n - 1)) / q If Abs(t) < 10 ^ (-5) Then Exit Do s = s + t n = n + 1 Loop Print "s="; s End Sub 数据定义的时候可以阔气一点,多用一些Long、Double,少用一些Integer和Real,但是也要依情况而定。
vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n
求和:Sn=1-3x+5x^2-7x^3+.+(2n+1)(-x)^n(n属于N*)
求和:Sn=1+3x+5x*x+7x*x*x+……+(2n-1)x^n-1 (x不为0和1)
求和:Sn=1+3x+5x+7x+…+﹝2n-1﹞x^n-1
错位相减法数列求和Sn=x+3x+5x^2+7x^3+…+(2n-1)*x^(n-1)(x≠0)
\求和Sn=1+2x+3x^2+```+(n-1)x^(n-2)+n*x^(n-1)
求和:Sn=1+3x+5x+7x+...+(2n-1)x^(n-1)谢谢了,
求和Sn=1+2x+3x^2+4x^3+5x^4……+nx^n-1
求和:1+3x+5x的平方+……+(2n-1)x的n-1次方
求和:Sn=1+3x+5x2+7x3+…+(2n-1)x(n-1)
求和1+2x+3x²+…+nx^n-1(n-1为指数)
求和:1+2x+3x^2+...+nx^(n-1)