(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!.当第n项的值小于10-5时结束,x为弧度.主调程序同时调用Mysin和标准函数sin,进行验证.提示:1.本题的关键是找部分级
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/10 03:32:03
![(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!.当第n项的值小于10-5时结束,x为弧度.主调程序同时调用Mysin和标准函数sin,进行验证.提示:1.本题的关键是找部分级](/uploads/image/z/7056634-58-4.jpg?t=%EF%BC%882%EF%BC%89%E7%BC%96%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%E8%BF%87%E7%A8%8BMysin%28x%29%2C%E6%B1%82Mysin%28x%29%3Dx%2F1-x3%2F3%21%2Bx5%2F5%21-x7%2F7%21%2B%E2%80%A6%2B%28-1%29n-1%2Ax2%2An-1%2F%282%2An-1%29%21.%E5%BD%93%E7%AC%ACn%E9%A1%B9%E7%9A%84%E5%80%BC%E5%B0%8F%E4%BA%8E10-5%E6%97%B6%E7%BB%93%E6%9D%9F%2Cx%E4%B8%BA%E5%BC%A7%E5%BA%A6.%E4%B8%BB%E8%B0%83%E7%A8%8B%E5%BA%8F%E5%90%8C%E6%97%B6%E8%B0%83%E7%94%A8Mysin%E5%92%8C%E6%A0%87%E5%87%86%E5%87%BD%E6%95%B0sin%2C%E8%BF%9B%E8%A1%8C%E9%AA%8C%E8%AF%81.%E6%8F%90%E7%A4%BA%EF%BC%9A1%EF%BC%8E%E6%9C%AC%E9%A2%98%E7%9A%84%E5%85%B3%E9%94%AE%E6%98%AF%E6%89%BE%E9%83%A8%E5%88%86%E7%BA%A7)
(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!.当第n项的值小于10-5时结束,x为弧度.主调程序同时调用Mysin和标准函数sin,进行验证.提示:1.本题的关键是找部分级
(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!.当第n项的值小于10-5时结束,x为弧度.主调程序同时调用Mysin和标准函数sin,进行验证.
提示:
1.本题的关键是找部分级数和的通项,表示如下:
Ti+2=-1*Ti*x*x/((i+1)*(i+2)) i=1,3,5…
2.本题的形参为x,传值方式;函数的返回值是求得的部分级数和.
3.判断某一项的值是否达到精度,本题要使用Abs()函数,因为通项有正有负.
设计界面如下:
(2)编一个函数过程Mysin(x),求Mysin(x)=x/1-x3/3!+x5/5!-x7/7!+…+(-1)n-1*x2*n-1/(2*n-1)!.当第n项的值小于10-5时结束,x为弧度.主调程序同时调用Mysin和标准函数sin,进行验证.提示:1.本题的关键是找部分级
所要求的程序贴上,
Private Sub Command1_Click()
Dim x As Double
x = Val(Text1.Text)
Text2.Text = mysin(x)
Text3.Text = Sin(x)
End Sub
Function mysin(ByVal x As Double) As Double
Dim y As Double,t As Double
y = x
t = y
i = 1
Do
t = -t * x * x / ((i + 1) * (i + 2))
y = y + t
i = i + 2
Loop Until Abs(t) < 0.00001
mysin = y
End Function