河南省计算机等级考试-编程题3-基本编程

三、基编本程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


相关内容

  • 电脑学校简介
  • 电脑学校 电脑学校是专业学电脑的机构. 中国传统文化一向有德与才对于个人立身处事的重要性及其关系处理的明确论断. 开设课程一般有,电脑基础.办公自动化.平面设计.装饰装潢.网页设计.三维动画.影视后期.软件编程.程序开发.网络管理员专业.企业网络架构工程师专业.网站开发运营工程师专业等. 电脑基础包 ...

  • 宏程序在数控编程中的应用技巧及编程实例
  • 2010年6月第38卷第12期 机床与液压 MACHINETOOL&HYDRAULICS Jull.2010V01.38No.12 DOI:10.3969/j.issn.1001-3881.2010.12.011 宏程序在数控编程中的应用技巧及编程实例 韩全立,王宏颖 (河南工业职业技术学院 ...

  • 湖南省计算机等级考试资料选择题(1)
  • 湖南省计算机等级考试资料选择题(一) 题号 试题 答案A 答案B 答案C 答案D 答案 1 3.5英寸软盘片的一个角上有一个滑动块,如果移动该滑动块露出一个小孔,则该盘( ). 不能读但能写 不能读也不能写 只能读不能写 能读写 C 2 把高级语言程序翻译成目标程序用( ) . 编译程序 服务程序 ...

  • 自来水公司办公室主任竞聘演讲稿
  • 尊敬的领导、评委、同志们: 大家好! 首先感谢各位领导、同志们的信任和支持,给我这次参加竞职演讲的机会。我叫***,中共党员,1997年毕业于***,同年分配到郑州市自来水总公司中心化验室从事化验工作。今天我本着锻炼自己,服务大家的宗旨站到这里,竞选办公室主任一职,希望能得到大家的支持与帮助。竞聘这 ...

  • 不看就后悔--计算机专业解惑
  • 0(清华大学)答案:大学里课本里那点东西 一点也不能说明什么 !班里的Top student 奖学金是拿了不少 !但出来工作后,会发现他们有些很难比较快速的融入社会的生活中,很难找到工作 !那种只是上课 ,完成作业 ,考试成绩突出的学生 ,只能是学校里有自己发挥的空间 !永远记住,老板是要你给他赚钱 ...

  • 中学生励志文章3
  • 如果你从高一起,就立志考清北 亲爱的师弟师妹们: 现在我在清华的教室里给你们写这封信是非常荣幸的,但愿我的信能给现在的你们的高中生活和学习提供一些经验和教训. 我在高一的时候有这样一种困惑:我的目标是考上好大学,但是我要考好大学是为了什么?我们为什么一定要走求学这条路?好多家长的答案是 " ...

  • 电子商务专业教学计划(三年高职)
  • 电子商务专业教学计划(三年高职) 一.招生对象与学制 1.招生对象:应.往届普高(职高).普通(职业)中专毕业生.技校毕业生 2.学制:三年 二.培养目标 本专业培养适应社会主义现代化建设需要德.智.体.美全面发展,具备电子商务及相关的经济.法律等方面的基本理论知识和较强的实践能力,能在工.商.金融 ...

  • 计算机专业毕业设计问题与思考
  • 教学园地 高职院校计算机专业毕业设计问题与思考 张清荣 (河南理工大学高职学院,焦作454001) 摘 要:针对扩招对高职院校带来的影响,对毕业设计工作存在的问题及形成原因进行分析, 在此基础上,提出提高学生思想认识,做好相应准备工作,加强毕业设计选题和答辩工作等一系列措施,以提高毕业设计的质量. ...

  • 计算机专业年终工作总结_个人工作总结范文
  • 计算机应用专业毕业总结中专 本人于1998年9月来到长沙电力学院水利水电学院学习计算机应用专业.在学校领导老师们的悉心栽培下,通过自己艰辛的努力,我从一个无忧无虑的农家孩子成长为一名有理想有抱负的社会青年.在这四年当中,我干过许多许多的事情,取得了一定的成绩,同时又存在着大大小小的缺陷,主要情况表现 ...