设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编用循环+选择结构,不要用floop float ftemp 之类的
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 21:17:19
设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编用循环+选择结构,不要用floop float ftemp 之类的
设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编
用循环+选择结构,不要用floop float ftemp 之类的
设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编用循环+选择结构,不要用floop float ftemp 之类的
Private Sub Command1_Click()
Dim n As Long
Dim i As Long
Dim sum As Double
n = Val(Text1.Text)
sum = 1#
For i = 2 To n
'sum = sum + (-1) ^ i * 1 / (2 * (i - 1) + 1)
If 2 * Int(i / 2) = i Then
sum = sum + 1 / (2 * (i - 1) + 1)
Else
sum = sum - 1 / (2 * (i - 1) + 1)
End If
Next i
Label1.Caption = sum
End Sub
{ float fsum=0; int floop=0; float ftemp=0; floop=1; do { if((floop+1)%4==0) { ftemp=floop; fsum=fsum-1/ftemp; } else { ftemp=
s=0
for i=1 to n step 6
s=s+1/i+1/(i+2)-1/(i+4)
next i