vb求cos(x)的近似值,cos(x)=1-x^2/2!+x^4/4!-.+(-1)^(n=1)*x(2*n-2)/(2*n-2)!精确到10^-6Private Sub Command1_Click()Dim i As Integer,b As Integer,c As Integerx = Text1.Textb = 0For i = 1 To nb = b + a(i)c = Abs(b \ 1 - b)If c < 10 ^ (-6) ThenText2

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 01:32:32
xSkPWNrۦiSZTMiґ9:A6 P')RZn^|%9;|~_NVqG/T۝e# NUTƩ+)>xU9\Q4%$z?/|_}6vjf5zPqd45 ַvVYLԅāTts,apD)@jT)cRAA: *p*SS&IV¿k} 1KXKRau|M¼bQ*ݧ»Xr= HvG!aU01=*4VCG4,Ew'TvZ4AJ4l_]; F?&lHfShX Þ7w