省二程序题Word文档下载推荐.docx
《省二程序题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《省二程序题Word文档下载推荐.docx（108页珍藏版）》请在冰点文库上搜索。
CASE____________
LOOP
CASEY>
500
EXIT
OTHERWISE
Y=Y+X
ENDCASE
Y
SETTALKON
⒈下面的程序是求1到1000的偶数平方和与奇数平方和之差。
（2）更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口
内的②处。
STORE0TOI,S1,S2
=1000
IFMOD（I,2）=0
S1=S1+I^2
S2=S2+I^2
S1-S2
⒉s=3!
+5!
+7!
+...+n!
，求直到s>
=680000为止的最大阶乘数n。
（程序名由考生自定）。
s=0
n=3
t=1
FORi=1TOn
t=t*i
NEXT
s=s+t
IFs>
=680000
______
n
⒈已知S1=1,S2=1+2,S3=1+2+3,...,SN=1+2+...+N,下面的程序是求S20到S80有多少能被17或35整除。
程序有一处错误。
I=20
=80
STORE0TOS
=I
S=S+J
IFMOD（S,17）=0
N
⒉求s=2+（2+4）+（2+4+6）+（2+4+6+8）+...，求直到s>
=60000为止。
在下列程序中填上缺少的语句或另外编写程
序，运行程序，将结果填入答题窗口。
x=2
s0=0
FOR______
s0=s0+i
s=s+s0
=60000
x=x+2
s
⒈下面的程序是计算1*2*3*4*5...的积，要求其积大于10000后结束程序运行，
并给出程序的运行结果。
程序序有一处错误。
（1）输入原程序,记录运行结果,将结果填入答题窗口①处（程序名由考生定）。
STORE1TOX,Y
DOWHILEX<
10
Y=Y*X
IFY>
10000
Y
⒉求s=3!
+...，直到s>
=28000为止。
在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果
填入答题窗口。
x=3
FOR______
=28000
⒈已知三角形最长边是50，其它两边的长度都是正整数，求可以有多少个不同
的三角形。
注意：
在各种可能中，两长边的长短交换成的三角形算作同一个
三角形，如：
其它两边的长度为3,9的三角形与长度为9,3的三角形视为同一
个三角形。
I=1
=50
IFI+J>
50
⒉一个数等于它各位数字的立方和，该数称为阿姆斯特郎数。
求3位数中的
阿姆斯特郎数的个数.（程序名由考生自定）。
在下列程序中填上缺少的语句或
另外编写程序，运行程序，将结果填入答题窗口。
n=0
FORi=100TO999
a=INT（i/100）
b=______
c=MOD（i,10）
IFa^3+b^3+c^3=i
?
'
i='
i,a,b,c
n=n+1
NEXT
⒈下面的程序是求0+2+4+6+.....这样的偶数之和，若累加值大于10000时，结束
累加。
STORE0TOX,Y
DOWHILE.F.
DOCASE
CASEMOD（X,2）<
>
⒉数列xi各元素的值是：
x1＝1，x2＝1＋2,x3＝1＋2＋3,.....
xn＝1＋2＋3＋......＋n。
对数列求和：
S=x1+x2+x3....，直到S>
3000止，
求此时数列中最大的元素值。
在下列程序中填上缺
少的语句或另外编写程序，运行程序，将结果填入答题窗口。
p=0
i=1
DOWHILE.t.
p=p+i
3000
i=i+1
enddo
p
⒈已知正整数C，求正整数A,B（A<
B）使A*B=C且S=A+B的值最小。
运行程序时，从
键盘上输入数：
12345。
INPUT'
请输入正整数:
'
TOC
B=C
S=1+C
=SQRT（C）
IFMOD（C,I）<
S1=I+C/I
IFS>
S1
S=S1
A=I
B=C/I
S
⒉已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+...+n,S=S1+S2+...Sn
以下程序求当n=10时，S的值.（程序名由考生自定）。
在下列程序中填上
缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。
settalkoff
fori=1to10
__________
forj=1toi
sn=sn+j
endfor
s=s+sn
endfor
s
settalkon
return
⒈下面的程序是求2+4+8+16+32+....这样的数之和。
若累加数大于1000时结束
X=2
1000
STORE2*xTOX
⒉求出[100，500]以内同时满足除以7余1，除以5余3,除以3余1的所有整数
的个数。
在下列程序中填上缺少的语句或另外编写程序，
运行程序，将结果填入答题窗口。
clear
sum=0
fori=100to500
if_____________
endif
n
⒈下面的程序是求1到5000以内能被3或7整除的整数的个数.
程序中有一处错误。
（1）输入原程序,记录运行结果,将结果填入答题窗口
①处（程序名由考生自定）。
（2）更正程序中的错误,运行更正后的程序,记录运行结
果,将结果填入答题窗口内的②处。
S=0
DOWHILEI=5000
IFINT（I/3）=I/3.OR.INT（I/7）=I/7
S=S+1
⒉求[2，100]之间质数之和.（程序名由考生自定）。
fori=2to100
flag=0
forj=2tosqrt（i）
ifint（i/j）=i/j
flag=1
_________
ifflag=0
s=s+i
⒈下面的程序是求1到2000之间的能被3或5或7整除的整数之和.
程序中有一处错误。
2000
CASEINT（I/3）=I/3
S=S+I
CASEINT（I/5）=I/5
CASEINT（I/7）=I/7
⒉求[105，625]间能被3和5整除的自然数之和。
在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答
题窗口。
i=105
dowhilei<
=625
if_______________
⒈下面的程序是求1到2000之间的不能被3或5或7整除的整数之和.
I=0
OTHE
⒉求[200，600]间奇数之和。
在下列程序中填上缺少的语句或另外编写程序，运行程
序，将结果填入答题窗口。
fori=200to600
if________
loop
_⒈下面的程序是求100到200间,同时满足除3余2和除5余3条件的数的个数.
I=200
=200
IFMOD（I,3）=2.AND.MOD（I,5）=3
⒉求[2，100]间质数的个数。
flag=0
exit
___________
⒈已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之
和.下面的程序是求出该数列的第35个数的.
DIMEA（35）
A
（1）=1
A
（2）=2
A（3）=3
I=4
DOWHILEI=35
A（I）=A（I-1）+A（I-2）+A（I-3）
A（35）
⒉计算5元、2元和1元兑换50元的方法有多少种.（程序名由考生自定）。
题窗口.
x=0
five=0
dowhilefive<
=20
two=0
dowhiletwo<
one=50-five*5-two*2
ifone>
=0
x=x+1
two=two+1
enddo
x
⒈下列的程序是求S=12!
+13!
+14!
的程序.
I=12
=14
STORE1TOT,J
T=T*J
S=T
S
⒉编程求区间[5000，9999]中所有素数的个数.（程序名由考生自定）。
在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填
入答题窗口.
settalkoff
i=9999
t=0
dowhilei>
=5000
j=2
dowhilej<
=i-1
j=j+1
ifj=i
t=t+1
t
⒈下面的程序是求在1,2,3,4,...,10这10个数中,任意选
两个不同的数,求它们的和能被2整除的数的总对数.
（注意:
象3+5和5+3认为是同一对数）.
SETTALKOFF
=10
IFINT（（I+J）/2）<
（I+J）/2
⒉编程求区间[5000，9999]中按递增顺序，第15大的素数.
在下列程序中填上缺少的语句或另外
编写程序，运行程序，将结果填入答题窗口.
ift=15
i
________
⒈下面的程序是求在1,2,3,4,...,10这10个数中,任意选两个不同的数,求它
们的和能被3整除的数的总对数（注意:
SETTALKOFF
CLEAR
N=0
I=1
DOWHILEI<
IFINT（（I+J）/3）=（I+J）/3
I=I+J
SETTALKON
RETURN
⒉设S=1+1/2+1/3+...+1/N,N为正整数。
编程求当算到1000项
时S的值为多少?
精确到小数点后两位。
在下列程序中填上缺少的语句或另外编写程序,运行程序,将结
果填入答题窗口.
settalkoff
clear
i=1
s=0
dowhilei<
s=s+1/i
return
⒈下面的程序是求3+9+27+81+243+...这样的数之和.若累加数大于500时,
则结束累加.程序中有一处错误。
X=3
Y=0
DOWHILE.F.
STORE3*XTOX
编程求使S不超
过10的最大的N.（程序名由考生自定）。
缺少的语句或另外编写程序，运行程序，将结果填入答题
窗口.
dowhiles<
i-2
settalkon
⒈求S=1+4+7+10+...，直到S>
=250止。
程序中有一个错误。
（1）输入并运行该程序，将结果填入答题窗口的①（程
序名由考生自定）。
（2）更正程序中的错误并运行程序，将结果填入答题窗
口的②。
DOWHILE.T.
=250
⒉求出[3,10000]以内同时能被3，6整除,但不能被8整除的最大正整数.
在下列程序中填上缺少的语句或另外编写程序，运
行程序，将结果填入答题窗口.
i=3
t=0
=10000
if________________
max=i
endif
max
⒈计算S=1+4+7+10+...，直到s>
=250。
求相加各数中最大
的一个数。
DO
升级会员 