设计求数列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 之类的

设计求数列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

设计求S=1+3+5+.+2007和T=1*3*5*.*2007 设计求数列1,1,2,3,5,8,13,21,34的前30项和的算法 数列a(n)=n (n+1)(n+2)(n+3), 求S(n)怎么用高中数列原理解答? 数列递推数列数列an中,a[1]=1 a[n]>0 s[n+1]+s[n]=((a[n+1])^2+3)/4,求a[n] s[n] 数列a(n)=n (n+1)(n+2)(n+3),求S(n) 设计一个算法求s=1的平方 +2的平方 +3+ 100的平方 设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用for next i 循环体编用循环+选择结构,不要用floop float ftemp 之类的 数列an,a1=4,Sn+S(n+1)=5/3an+1,an数列an,a1=4,Sn+S(n+1)=5(a(n+1))/3,求an 已知数列{按}中,a1=3, a2=5,其前n项和sn满足sn+s(n-2)=2s(n-1)+2^(n-1)(n>=3).试求数列{an}的通项公式 数列a1=3,数列满足2an=Sn乘以S(n-1),求通项公式. 奥数数列难题S= 50∑n=1 (3a)S= m∑n=5 (k+9)求m 等于什么79 高中数列求和s=1!+2!+3!+...+n! 求自动控制原理 采用频率特性设计一超前校正(使用matlab)G(s)=K/s(s+1)(s+5)阶跃响应≤40% Kv≥4 在数列{An}中,A1=2,An+1=3An+3n.求数列{An}的前项n和S(高一数学) 数列{an}首项为a1=2/3,a(n+1)=2an/(an+1) 求数列an的通项公式 求数列n/an的前n项和S数列{an}首项为a1=2/3,a(n+1)=2an/(an+1)求数列an的通项公式求数列n/an的前n项和S 设计一个计算简单算法设计一个计算S=1+3+5+.+49的流程图并写出相应程序 设计s=1+2+3+4.+50的算法 已知数列{an}的前n项和S=(n^2)+1 一求:写出数列{an}的前五项,并判断这个数列是否为等差数列 二求:数列{an}的通项公式