河南省计算机等级考试-编程题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