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