VB编程求前N项和过程y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)补充代码 y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)public sub progession(sum#,,eps#)dim n%,t#n=2sum=1t=1do while (abs(t)>=eps)t=sum=sum+tn=loopend subprivate sub form_click()dim p1#call
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/14 13:54:54
VB编程求前N项和过程y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)补充代码 y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)public sub progession(sum#,,eps#)dim n%,t#n=2sum=1t=1do while (abs(t)>=eps)t=sum=sum+tn=loopend subprivate sub form_click()dim p1#call
VB编程求前N项和过程y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)
补充代码
y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)
public sub progession(sum#,,eps#)
dim n%,t#
n=2
sum=1
t=1
do while (abs(t)>=eps)
t=
sum=sum+t
n=
loop
end sub
private sub form_click()
dim p1#
call progession(p1,4,0.00001)
print "p1=";p1
end sub
VB编程求前N项和过程y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)补充代码 y=1+ x^2/(2!)+x^4/(4!)+.x^(2n)/((2n)!)public sub progession(sum#,,eps#)dim n%,t#n=2sum=1t=1do while (abs(t)>=eps)t=sum=sum+tn=loopend subprivate sub form_click()dim p1#call
t=x^2 * t / n / (n-1)
n=n+2