三、基编本程3
.. 编写程序1,计算输出下面并列数n前设(=n5)4项所有偶数中项和。的
×213×2×3×4,,×4×5,3…,…×nn(+)×1n+2)(,……要求:在运行程序时
采用适,当的式方行输进(入n)输和(计出结果算。)D
imn sA nIetegr
Prviat Sube oCmamn1_dClcik()
iDms AsL ong
n = Val(npIutoBx"输入(n的")值
)Fr io= 2 To n Step 2 s
=s i * +i(+ 1 *)( +i 2)
Netxi
rinP t数"列的中偶数和项: "; 是s
En duSb3.2.
写编程序,计算输并下面出列前数53的和。项1
2××3,2×-34×3×4×,5,-…,…(+1)^(--n1×)n(×(+n1)(×+n2))
(中其(-:)1^(-n1)示表1-的n-()次方1)要求
在:行程运时,采用适当序方式的进行输入(n和)输(出算结计)。
果iDm Ans InteergP
rvite aSb uomCmnad1C_likc()
iD sm As Lno
g =n aVl(InutpoB("输x入n值的")
s)= 0Fo
ir =1 To n
s = s +(-) ^1( i- )1* i*( i +1 *) i( +2)
extNi
Pritn "列中前3数项5的和: 是; s"
ndE Sub3
3. 编写.程,求下序面数前列50的项。和结果取位小4数。
,11/3(3),×/(15×5,)/1(×7)7…,…1,(/(n-1)2(2×n1))-…,…
求要在:运程行时序采用适当,的式方进行输(n入)输和出计算(结)。
果Dimn As ntIegre
Pivrae tSub Cmomand_1Cick(l)
Dm is s LongA
n= Va (InpltBox(u输入"的值n"))s=0
F
o ir= 1 T ons
=s+ 1/( 2( *i- )*(12* -1i))
exNti
s=In t(s* 10000 + .0)/150000
Prnt i数"中的列5前项0和是 ";: sEn
dubS3
..4 编写程序,计算输并下面出列中前n(设数n8=项)的和结。果取位小4。
1/数1,1!/!2,13/!1,/!,……41/n!,…,… (其 ,中!表示 求阶乘
)要求在运:程序时行,采适当用方式进的输行(入n和输出(计)算果结。)D
m n As Iintgere
Pivrtea SubC omanmd_C1icl()k
Di ms A Longs , tA Dosblue
s =0 n =
alVI(putnoBx"输入(n 值 ")
)t= 1 F
or i= 1To n
t = t* i
s = +st
Nex it
rPnt "si=;"s
nd ESub
35. .写编序,程算并输出下计面数前列n的项(设n和5=,0=0.x4)要求结果保留,位4数。小
ins()/x2,si(2nx/),s4i(3xn/)6,……s,innx)(/n,…2 … ( 中其si,为正n函弦)
要数:在运求程序时,行用适采的当方进式输行(入、x)和n输(出算结计)果。
Priavt Seu bCmomad1_Cnlcki()
Dmi nsA Inetegr i As In,etgerD
i m As Sinsgel x,A Ssnige, lt As Sngiel
s= 0x
= alVI(nutpBo("输x x入 ")值)
n = Val(nIutpoB("x输 入 n"值))For
i = 1 T o n
t =S n(i2* x) /( 2 *)
is s = +
teNxti
Print "s "= Int;( * 1s000 0+0 .5 )/100 0
E0ndSu b3.
. 6编程写序,计出算100到00之间所5有满足列下件条整的数:整数的每位和字数的能整除整数本身和。要:求在行程运序,时用采当适的式方出输算结计。果
P
ivrat eSu boCmanmd_1lCck(i)
iDms1 As In etge,r s As2In egetr
im Ds3 sA Itneer
goF ra= 1 0 0o T500s1
a=Mod 1 0
s2 = (a \ 1)0M d 10o
3 s= \ 10a0I
af oM (ds 1+s2 s+3 ) 0 T=en
Lihs1t.AdItem d
aEd nIf
extN a
nEdSub
.73写编序程,计算输出下并面数中前n列(设=2n)项5和的。结果4取位小数
。1/(×12)1/,(2×3,1/(3)×)4……,,1/n×((+n1)),……要
:在求运行序程,时用适采的方当式行输入(进n和)输出计(结果)算。
Dimn A Isnegtre
Piratve Sb Cummoand_Cli1ck()
Dims A sLog
nn V=alI(pnuBtxo"输入n(的"值)
s)=0
Fori =1 To
sn= s+ 1 /i(* (i 1))+
Nex it
s I=n(ts* 1 0000 0.+5/100)0
Pr0nit "数列的中50前项是和: ; s"
Ed Subn
.38.编 写序,计算程输出下并数列前35面的和项结,取4位果数。小1/
22/,33,4,4/5,/56/,6/7,7/,8…… , n/( +1n,)……要求:
运在程行序,时用适采的当方进式行输入(n和输出)计(结果算)
。iD mnAs ItngerePrivat
eSbu Cmoandm_Click1)(D
m s isAL ngo
n= Val(In utBpo("输x入n值的)")
s=0 Fo
r i =1 oTn
s =s i+/(i+1))
eNtx
i s=nt(I s*10 000 0+5)/.10000Print
"数 中列的前50项是:和 " ;s
Ed Snbu
3.9. 编写程,计序算10出0到0005之0间被3能整除但能不被13整的所除有数的平方根的和整保留。4小数。位要:在运求程行序,采时适当的用方输出式计算结果
P。riate vSb Comumadn1_liCkc)(
Dim sA siSngleF
o ar= 1 00 0T 50o00I
f a Mod = 0 3Ad a Mond1 30 hTen
s = s +qS(ar)E
nd fINe
tx a
s =nI(t *s1 00 + 00.5)/ 100
P0rit "ns"; s=End
uS
3b10. .编程写,序算计输并出下面数列前04项的,和结果4取小数。位2/1
,32,4/3/,/54,/6,57/6,87, /… ,(n+1)…n,/…
…要求在:行运序程,时采适当用方式的进输入行()和n出(输计算果)。结
参看3(.)8
.131 .编写程,序下面数求的列S和当某项(即,1n/)的值!于小.0050求和终时止并输出,该项参加求s和。结取果4位小。数
11!,//12,!/31,……!,/1n!,…… 其中(! 表示求阶,)乘
要:求在行程序时,运采用适当方的输出计算式结。果P
irvaetS bu Cmoamnd_1lick(C
)Dmis sAS ngil,et A s ouDbel, An sIntgeer
= 0
n =s0
t=
1oD
n= n+
1t =t *
ns= + s1 /t
oopLUn ilt /1t
n ts="" s;E
nd uS b3
.1.2编 程写序计算并,出输面数列下n前的和(设项n50=,=0.x),要求4结果留4保小位数
c。osx)/(,2cso2x()/4,cs(o3x)6/,…,…oc(ns)/xn2……, (其中, cso为余弦数)函
要求:运行程序在,采时适用的方式进行当入(输nx、和)输出计算(结果)
。参(3看5)
3..31 .写程序编,计下算数面列和的O,当第一S次现出数和于大5000时求终止并和出输结。果
1×,-2×2,3×43-4×5,,,…-1()^n(-1×)n×(n1)+,… (…其,中 表^幂运示算)要求:在运行
程序时,用采当适的方输出计算结果式。
Pirate Sub Covmamd1n_liCk(c
D)i oms s AinSgel t As,Do uble n,A s Itneer
og =s0
n=
t0 = 1
oD
=nn +1t
= n * ( + 1n)
o s =s o (-+1 ^ )( n -)1* t
Loo Upntlio >s5 000
Prit n"o="; ossEn
d Sub
3.4.1编写 序,计算并程输出下面列数前35项和的结果,取4位数小
3/1。,/537/5,9,7,11//,913/1,15113/……,,(n2+1/)2(-n1)
要求:运行程序时在采,适当用的方进式输入行()n输出和计算(果结)
。参看(3.8)
3.51编写程.序求下面,列前数4项的0。和果结取位小4。
1,1数2/4^,1/^3,1/444^……,,/n^1,4…(…其,中^ 表幂运示算)
求要:运在行程序时采,用当适方式进的输行入()和输出n(算计结)。果Pri
vate Sb Comumna1dC_lck()i
im sD As iSnlg,e tAs ouDbl,e n A sIntgeer
s= 1
t= 1
n= alVI(npuBtxo("输入项"数))For i
=2 o nT
= t1 /i ^4
s= s t+N
xt ei
riPn "s=t"; nIts *( 10000 +0. )5/ 1 0000
nEd Sb
u
3.1.6编写程序求,下面数列5前0项的。结和果取位4数。小
1,1/-2^4,13^4/,1-/4^4……,(-1,^(n)1-)/^n,……(其4,^中 表示运幂)算要求
在运:行序程,时采适用当方的式进输入(n行和)出输(算结果)。计
rPiavte ub CoSmamd1n_liCc()kD
i m Ass iSgnle,t A sDoube, l An sIteneg
s = r1
t = 1
n= V a(IlnptBou("输入项x"))数
Fori =2To n
t 1= /i ^
s 4=s + -1()(^-n1)*
tNxte
irPitn s="";I t(sn * 1000 0 +05) / 10.00
E0nd uS b
三、基编本程3
.. 编写程序1,计算输出下面并列数n前设(=n5)4项所有偶数中项和。的
×213×2×3×4,,×4×5,3…,…×nn(+)×1n+2)(,……要求:在运行程序时
采用适,当的式方行输进(入n)输和(计出结果算。)D
imn sA nIetegr
Prviat Sube oCmamn1_dClcik()
iDms AsL ong
n = Val(npIutoBx"输入(n的")值
)Fr io= 2 To n Step 2 s
=s i * +i(+ 1 *)( +i 2)
Netxi
rinP t数"列的中偶数和项: "; 是s
En duSb3.2.
写编程序,计算输并下面出列前数53的和。项1
2××3,2×-34×3×4×,5,-…,…(+1)^(--n1×)n(×(+n1)(×+n2))
(中其(-:)1^(-n1)示表1-的n-()次方1)要求
在:行程运时,采用适当序方式的进行输入(n和)输(出算结计)。
果iDm Ans InteergP
rvite aSb uomCmnad1C_likc()
iD sm As Lno
g =n aVl(InutpoB("输x入n值的")
s)= 0Fo
ir =1 To n
s = s +(-) ^1( i- )1* i*( i +1 *) i( +2)
extNi
Pritn "列中前3数项5的和: 是; s"
ndE Sub3
3. 编写.程,求下序面数前列50的项。和结果取位小4数。
,11/3(3),×/(15×5,)/1(×7)7…,…1,(/(n-1)2(2×n1))-…,…
求要在:运程行时序采用适当,的式方进行输(n入)输和出计算(结)。
果Dimn As ntIegre
Pivrae tSub Cmomand_1Cick(l)
Dm is s LongA
n= Va (InpltBox(u输入"的值n"))s=0
F
o ir= 1 T ons
=s+ 1/( 2( *i- )*(12* -1i))
exNti
s=In t(s* 10000 + .0)/150000
Prnt i数"中的列5前项0和是 ";: sEn
dubS3
..4 编写程序,计算输并下面出列中前n(设数n8=项)的和结。果取位小4。
1/数1,1!/!2,13/!1,/!,……41/n!,…,… (其 ,中!表示 求阶乘
)要求在运:程序时行,采适当用方式进的输行(入n和输出(计)算果结。)D
m n As Iintgere
Pivrtea SubC omanmd_C1icl()k
Di ms A Longs , tA Dosblue
s =0 n =
alVI(putnoBx"输入(n 值 ")
)t= 1 F
or i= 1To n
t = t* i
s = +st
Nex it
rPnt "si=;"s
nd ESub
35. .写编序,程算并输出下计面数前列n的项(设n和5=,0=0.x4)要求结果保留,位4数。小
ins()/x2,si(2nx/),s4i(3xn/)6,……s,innx)(/n,…2 … ( 中其si,为正n函弦)
要数:在运求程序时,行用适采的当方进式输行(入、x)和n输(出算结计)果。
Priavt Seu bCmomad1_Cnlcki()
Dmi nsA Inetegr i As In,etgerD
i m As Sinsgel x,A Ssnige, lt As Sngiel
s= 0x
= alVI(nutpBo("输x x入 ")值)
n = Val(nIutpoB("x输 入 n"值))For
i = 1 T o n
t =S n(i2* x) /( 2 *)
is s = +
teNxti
Print "s "= Int;( * 1s000 0+0 .5 )/100 0
E0ndSu b3.
. 6编程写序,计出算100到00之间所5有满足列下件条整的数:整数的每位和字数的能整除整数本身和。要:求在行程运序,时用采当适的式方出输算结计。果
P
ivrat eSu boCmanmd_1lCck(i)
iDms1 As In etge,r s As2In egetr
im Ds3 sA Itneer
goF ra= 1 0 0o T500s1
a=Mod 1 0
s2 = (a \ 1)0M d 10o
3 s= \ 10a0I
af oM (ds 1+s2 s+3 ) 0 T=en
Lihs1t.AdItem d
aEd nIf
extN a
nEdSub
.73写编序程,计算输出下并面数中前n列(设=2n)项5和的。结果4取位小数
。1/(×12)1/,(2×3,1/(3)×)4……,,1/n×((+n1)),……要
:在求运行序程,时用适采的方当式行输入(进n和)输出计(结果)算。
Dimn A Isnegtre
Piratve Sb Cummoand_Cli1ck()
Dims A sLog
nn V=alI(pnuBtxo"输入n(的"值)
s)=0
Fori =1 To
sn= s+ 1 /i(* (i 1))+
Nex it
s I=n(ts* 1 0000 0.+5/100)0
Pr0nit "数列的中50前项是和: ; s"
Ed Subn
.38.编 写序,计算程输出下并数列前35面的和项结,取4位果数。小1/
22/,33,4,4/5,/56/,6/7,7/,8…… , n/( +1n,)……要求:
运在程行序,时用适采的当方进式行输入(n和输出)计(结果算)
。iD mnAs ItngerePrivat
eSbu Cmoandm_Click1)(D
m s isAL ngo
n= Val(In utBpo("输x入n值的)")
s=0 Fo
r i =1 oTn
s =s i+/(i+1))
eNtx
i s=nt(I s*10 000 0+5)/.10000Print
"数 中列的前50项是:和 " ;s
Ed Snbu
3.9. 编写程,计序算10出0到0005之0间被3能整除但能不被13整的所除有数的平方根的和整保留。4小数。位要:在运求程行序,采时适当的用方输出式计算结果
P。riate vSb Comumadn1_liCkc)(
Dim sA siSngleF
o ar= 1 00 0T 50o00I
f a Mod = 0 3Ad a Mond1 30 hTen
s = s +qS(ar)E
nd fINe
tx a
s =nI(t *s1 00 + 00.5)/ 100
P0rit "ns"; s=End
uS
3b10. .编程写,序算计输并出下面数列前04项的,和结果4取小数。位2/1
,32,4/3/,/54,/6,57/6,87, /… ,(n+1)…n,/…
…要求在:行运序程,时采适当用方式的进输入行()和n出(输计算果)。结
参看3(.)8
.131 .编写程,序下面数求的列S和当某项(即,1n/)的值!于小.0050求和终时止并输出,该项参加求s和。结取果4位小。数
11!,//12,!/31,……!,/1n!,…… 其中(! 表示求阶,)乘
要:求在行程序时,运采用适当方的输出计算式结。果P
irvaetS bu Cmoamnd_1lick(C
)Dmis sAS ngil,et A s ouDbel, An sIntgeer
= 0
n =s0
t=
1oD
n= n+
1t =t *
ns= + s1 /t
oopLUn ilt /1t
n ts="" s;E
nd uS b3
.1.2编 程写序计算并,出输面数列下n前的和(设项n50=,=0.x),要求4结果留4保小位数
c。osx)/(,2cso2x()/4,cs(o3x)6/,…,…oc(ns)/xn2……, (其中, cso为余弦数)函
要求:运行程序在,采时适用的方式进行当入(输nx、和)输出计算(结果)
。参(3看5)
3..31 .写程序编,计下算数面列和的O,当第一S次现出数和于大5000时求终止并和出输结。果
1×,-2×2,3×43-4×5,,,…-1()^n(-1×)n×(n1)+,… (…其,中 表^幂运示算)要求:在运行
程序时,用采当适的方输出计算结果式。
Pirate Sub Covmamd1n_liCk(c
D)i oms s AinSgel t As,Do uble n,A s Itneer
og =s0
n=
t0 = 1
oD
=nn +1t
= n * ( + 1n)
o s =s o (-+1 ^ )( n -)1* t
Loo Upntlio >s5 000
Prit n"o="; ossEn
d Sub
3.4.1编写 序,计算并程输出下面列数前35项和的结果,取4位数小
3/1。,/537/5,9,7,11//,913/1,15113/……,,(n2+1/)2(-n1)
要求:运行程序时在采,适当用的方进式输入行()n输出和计算(果结)
。参看(3.8)
3.51编写程.序求下面,列前数4项的0。和果结取位小4。
1,1数2/4^,1/^3,1/444^……,,/n^1,4…(…其,中^ 表幂运示算)
求要:运在行程序时采,用当适方式进的输行入()和输出n(算计结)。果Pri
vate Sb Comumna1dC_lck()i
im sD As iSnlg,e tAs ouDbl,e n A sIntgeer
s= 1
t= 1
n= alVI(npuBtxo("输入项"数))For i
=2 o nT
= t1 /i ^4
s= s t+N
xt ei
riPn "s=t"; nIts *( 10000 +0. )5/ 1 0000
nEd Sb
u
3.1.6编写程序求,下面数列5前0项的。结和果取位4数。小
1,1/-2^4,13^4/,1-/4^4……,(-1,^(n)1-)/^n,……(其4,^中 表示运幂)算要求
在运:行序程,时采适用当方的式进输入(n行和)出输(算结果)。计
rPiavte ub CoSmamd1n_liCc()kD
i m Ass iSgnle,t A sDoube, l An sIteneg
s = r1
t = 1
n= V a(IlnptBou("输入项x"))数
Fori =2To n
t 1= /i ^
s 4=s + -1()(^-n1)*
tNxte
irPitn s="";I t(sn * 1000 0 +05) / 10.00
E0nd uS b