计算s=1-2x2/3!+4x4/5!-6x6/7!+…的VB程序
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/30 02:11:18
计算s=1-2x2/3!+4x4/5!-6x6/7!+…的VB程序
Public Sub Command1_Click()
Dim i As Integer,n As Integer,s As Integer
Dim p As Integer
p = -1 '用来切换符号
s = 1
n = Val(InpuBox("请输入大于2的整数!")
For i = 2 To n
s = s + p * i ^ 2 / f(i+1)
Next i
Print "s="; s
End Sub
Public Function f(n As Integer)
Dim i As Integer,s As Integer
s = 1
For i = n To 1 Step -1
s = s * i
Next i
f = s
End Function
注明:本人是直接在这回答界面编写的,未经调试,原因是没有安装VB6.0
欢迎加入“程序设计(1103616)”群.
Dim i As Integer,n As Integer,s As Integer
Dim p As Integer
p = -1 '用来切换符号
s = 1
n = Val(InpuBox("请输入大于2的整数!")
For i = 2 To n
s = s + p * i ^ 2 / f(i+1)
Next i
Print "s="; s
End Sub
Public Function f(n As Integer)
Dim i As Integer,s As Integer
s = 1
For i = n To 1 Step -1
s = s * i
Next i
f = s
End Function
注明:本人是直接在这回答界面编写的,未经调试,原因是没有安装VB6.0
欢迎加入“程序设计(1103616)”群.
编写程序:输入x的值,按照下列公式计算cos(x) cos(x)=1-x2/2!+ x4/4!- x6/6!+...精确
用秦九韶算法计算当X=3时多项式f(x)=7X7+6x6+5x5+4x4+3X3+2x2+X的值
1x2+2x4+3x6+4x8+5x10+.+20x40 简便计算
1x2+2x4+3x6+4x8 ------------------------------- 2x3+4x6+6x9+
计算:1/1x2+1/2x3+1/3x4+1/4x5+1/5x6+1/6x7+1/7x8+1/8x9+1/9x10.
1x1-2x2+3x3-4x4+5x5-6x6.-100x100+101x101
(2X2)/1X3+(4X4)/(3X5)+(6X6)/(5X7)+...+(20X20)/(19X21)==?
利用秦九韶算法计算多项式f(x)=3x6+4x5+5x4+6x3+7x2+8x+1当x=4的值的时候需要做乘法和加法的次
用秦九韶算法计算多项式f(x)=6x6+5x5+4x4+3x3+2x2+x+7在x=0.6时的值时,需做加法与乘法的次数
用秦九韶算法计算多项式f(x)=3x6+4x5+5x4+6x3+7x2+8x+1当x=0.7时的值时,需要做乘法和加法运
用秦九韶算法计算多项式f(x)=3x6+4x5+5x4+6x3+7x2+8x+1,当x=0.4时的值时,需要做乘法和加法
(1x2+2x4+3x6+4x8)/(2x3+4x6+6x9+8x12)