程序改错填空编写答案Word文档下载推荐.docx
《程序改错填空编写答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《程序改错填空编写答案Word文档下载推荐.docx（60页珍藏版）》请在冰点文库上搜索。
?
4、求出[1234，6789]内中间两位数字之和等于首尾两位数字之积的数的个数。
（正确答案175）
FORx=1234to6789
b=INT（（x-a*1000）/100）
c=INT（（x-a*1000-b*100）/10）
d=x-a*1000-b*100-c*10
IFb+c=a*d
5、求所有符合算式ab*ba=3627的最大的两位数ab（即a*10+b）。
（其中a、b是1-9之间的整数）（正确答案93）
FORx=11to99
a=INT（x/10）
b=MOD（x,10）
y=b*10+a
IFx*y=3627
exit
y
6、求前[1，100]以内能被6或8整除的所有自然数的平方根的和（将第一位小数四舍五入，结果只保留整数）。
（正确答案162）
s=0
FORn=1to100
IFMOD（n,6）=0orMOD（n,8）=0
s=s+SQRT（n）
ROUND（s,0）
7、回文指的是正读和反读都一样的字符串，如121、1221。
试求出[1234，9876]内回文数的个数。
（正确答案85）
FORx=1234to9876
d=x-a*1000-b*100-c*10
IFa=dandb=c
8、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。
例如：
由于7396=86^2,且7+3+9+6=25=5^2,则称7396是“四位双平方数”。
求所有四位双平方数的个数。
（正确答案17）
FORi=1000to9999
a=INT（i/1000）
b=INT（MOD（i,1000）/100）
c=INT（MOD（i,100）/10）
d=MOD（i,10）
x=a+b+c+d
IFINT（SQRT（i））=SQRT（i）andINT（SQRT（x））=SQRT（x）
二、整除与余数，数字包含
1、求出【100，600】内被3除余2并且被5除余3的整数的个数。
（正确答案33）
Clear
N=0
Forx=100to600
Ifmod（x,3）=2andmod（x,5）=3
N=n+1
Endif
Endfor
2、求出将十进制整数98765432等值转换为二进制形式表示后其中数字1的个数。
（正确答案13）
a=98765432
p=2
n=0
dowhilea>
IFr=1
n=n+1
3、求出将十进制小数0.56789等值转换为八进制形式表示后前18位小数中数字3的个数。
（正确答案3）
X=0.56789
Fork=1to18
X=x*8
Z=int（x）
X=x-z
Ifz=3
Endif
4、求出[100，800]内所有既不能被5整除也不能被7整除的整数的个数。
（正确答案480）
FORx=100to800
IFMOD（x,5）<
>
0andMOD（x,7）<
5、求出559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。
（正确答案73）
a=559399
FORn=2toa-1
IFMOD（a,n）=0
exit
ENDFOR
6、求出[10，1000]内所有能被7整除和9中至少一个数整除的整数的个数。
（正确答案236）
FORx=10to1000
IFMOD（x,7）=0orMOD（x,9）=0
7、求出20677和42067的最大公约数。
（正确答案713）
a=20677
b=42067
FORd=1toa
IFMOD（a,d）=0andMOD（b,d）=0
max=d
?
8、求出42253和20677的最小公倍数。
（正确答案971819）
clear
a=42253
b=20677
ford=1tob
ifmod（a,d）=0andmod（b,d）=0
c=d
endif
endfor
k=a*b/c
k
9、已知24有8个正整数因子（即：
1,2,3,4,6,8,12,24）,而24正好能被其因子个数8整除。
求[200，300]之间能被其因子数目整除的数中且能被3整除的数之和。
（正确答案1713）
sum=0
FORn=200to300
s=0
FORi=1ton
IFMOD（n,i）=0
s=s+1
IFMOD（n,s）=0andMOD（n,3）=0
sum=sum+n
sum
10、求出[1234，6789]内至少有两位数字是7的所有整数之和（注意at（）函数和str（）函数的功能）。
（正确答案678981）
FORx=1234to6789
IFAT（"
7"
STR（x）,2）>
s=s+x
ENDIF
s
11、编写程序计算10000以内所有十位数为6且该数能被7整除的数之和。
（正确答案719222）
FORi=1to10000
sw=INT（MOD（i,100）/10）
IFsw=6
IFMOD（i,7）=0
n=n+i
三、求素数类。
1、求100-200内的所有素数的个数。
（素数是指只能被1和本身整除的数）（正确答案21）
FORi=100to200
f=1
FORj=2toi-1
IFMOD（i,j）=0
f=0
EXIT
IFf=1
2、梅森尼数是指能使2^n-1为素数的数n,求[1，21]范围内的梅森尼数的个数？
（正确答案7）
s=2
FORx=2to21
s=s*2
flag=1
FORi=2toINT（SQRT（s-1））
IFMOD（s-1,i）=0
flag=0
IFflag=1
3、求100-1000内最大的素数。
（素数是指只能被1和本身整除的数）（正确答案997）
FORi=100to1000
n=i
4、设某四位数的各位数字的平方和等于100，问满足这种条件的最大的四位数且是素数的数是多少？
（正确答案9133）
FORi=2tox-1
IFMOD（x,i）=0
EXIT
IFf=1
c=INT（mod（x,100）/10）
IFa*a+b*b+c*c+d*d=100
5、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。
如13，试求两位数中最大的绝对素数。
正确答案97
clear
max=0
fori=10to99
j=mod（i,10）*10+int（i/10）
f1=1
fork=2toi-1
ifmod（i,k）=0
f1=0
iff1=1
f2=1
fork=2toj-1
ifmod（j,k）=0
f2=0
iff2=1
max=i
endif
四、数列、数组类。
1、求方程4x+9y=1000的正整数解的个数。
（正确答案27）
Forx=1to249
Y=int（（1000-4*x）/9）
If4*x+9*y=1000
N=n+1
2、某国在2000年的人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。
（正确答案2024）
s=1
FORn=2001to2100
s=s*1.03
IFs>
=2
3、设等比数列：
1，3，9，27……求使得此数列的前n项之和小于9876543的最大的自然数n。
（正确答案15）
a=1
s=s+a
9876543
a=a*3
n-1
4、设一数列{f（n）}：
f
（1）=1，,f
（2）=4,当n=3,4,5,….时f（n）=3*（f（n-1）-f（n-2）。
试求出此100以内最大的自然数n使得此数列的前n项之和首次大于75364321。
（正确答案19）
dimensionf（100）
f
（1）=1
f
（2）=4
s=5
forn=3to100
f（n）=3*f（n-1）-f（n-2）
s=s+f（n）
ifs>
75364321
5、设一数列{f（n）}：
f
（1）=1，当n>
1时f（n）=1/（f（n-1）+1）。
试求出此数列的前20项中大于0.618的项的数目。
f=1
n=1
FORk=2to20
f=1/（f+1）
IFf>
0.618
6、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过678米。
h=100
s=100
FORn=2to100
h=h*3/4
s=s+2*h
678
7、求S=1-1/3+1/5-1/7+……的前100项之和（精确到小数点后4位）（正确答案0.7829）
f=-1
FORi=1to99
s=s+f/（2*i+1）
f=-f
round（s,4）
8、已知数列1,2,4,7,11,16...其规律是相邻两项之差依次是1,2,3,4,5,...试求出此数列中小于6000的最大的项。
（正确答案5996）
FORn=1to1000
IFa+n>
6000
a=a+n
a
9、设一个数列的前3项都是1，从第4项开始，每一项都是其前3项之和。
试求出此数列的前25项中大于54321的项数（正确答案5）
store1tof1,f2,f3
fork=1to22
f=f1+f2+f3
iff>
54321
f1=f2
f2=f3
f3=f
10、已知一个由分数组成的数列：
1/2，,3/5,8/13,21/34,…其特点是：
从第二个分数起，每个分数的分子是前一项的分子与分母之和，其分母是其分子与前一分数分母之和，试求出此数列的前25项中其值大于0.618的项数。
（正确答案20）
f1=1
f2=2
fork=1to25
f=f1/f2
f1=f1+f2
f2=f2+f1
n
11、求出100以内最大的奇数n使得算式（1-1/2）+（1/3-1/4）+……+（1/n-1/（n+1））的值小于0.68。
（正确答案35）
forn=1to100step2
a=1/n-1/（n+1）
0.68
n-2
五、勾股数类。
1、对自然数A、B、C,若A<
B<
C且A*A+B*B=C*C，则称{A,B,C}为一组勾股弦数，其中A、B、C分别称为勾股弦。
求出弦值为1300的勾股弦组数。
c=1300
fora=1toc-1
b1=sqrt（c*c-a*a）
b=int（b1）
ifb=b1andb<
endfor
2、对自然数A、B、C,若A<
求出弦值为2500的勾股数组中A+B+C的值最大为多少？
（正确答案6000）
c=2500
b=INT（sqrt（c*c-a*a））
ifA*A+B*B=C*Canda<
b
IFmax<
a+b+c
max=a+b+c
3、*对自然数A、B、C,若A<
求出弦值为[100,300]内符合条件的数有多少组（正确答案159）
forc=100to300
FORb=1toc-1
FORa=1tob-1
ifA*A+B*B=C*C
六、组合关系。
1、下列程序解百马百瓦问题。
大马、小马和马驹共100匹，大马一驼三、小马一驼二，马驹二驼一，共100片瓦一次驼完，三种马都驼，共有多少种组合。
（11）
S=0
Dm=1
Dowhiledm<
=100/3
Xm=1
Dowhilexm<
=（100-dm*3）/2
Mj=100-dm-xm
Ifdm*3+xm*2+mj/2=100
S=s+1
Xm=xm+1
Enddo
Dm=dm+1
2、把一张一元钞票，换成一分、二分和五分硬币，每种至少1枚，问兑换后其中二分的硬币恰有20枚的方案共有多少种？
（正确答案11）
foryi=1to100
forwu=1to20
er=20
ifyi+er*2+wu*5=100
3、已知24有8个正整数因子（即：
求[200，300]之间能被其因子数目整除的数中最小的数。
（正确答案204）
min=300
IFMOD（n,i）=0
IFMOD（n,s）=0
min=n
exit
min
4、把一张一元钞票，换成一分、二分和五分硬币，每种至少1枚，问兑换后硬币总数最多的和硬币总数最少的枚数之差是多少？
min1=100
max1=0
FORer=1to50
ifyi+er*2+wu*5=100
t=yi+er+wu
IFt>
max1
max1=t
IFmin1>
t
min1=t
max1-min1
5、求方程3x-7y=1在条件|x|<
100且|y|<
40下的所有整数解的|x|+|y|的最小值。
min=140
forx=-99to99
y=int（（3*x-1）/7）
z=abs（x）+abs（y）
if3*x-7*y=1andabs（x）<
40andz<
min=z
6、若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。
如5和76都是自同构数，因为它们的平方分别是25和5776。
求[2，99999]内所有自同构数之和。
（正确答案101114）。
FORx=2to99999
y=x*x
m=LEN（LTRIM（STR（x）））
IFMOD（y,10^m）=x
s=s+x
7、求满足条件A*B=54321且使A+B的值最小的自然数对A、B中较大的一个数。
（正确答案953）
c=54321
k=INT（SQRT（c））
FORa=1tok
b=INT（c/a）
IFa*b=c
max=b
（二）、程序填空题。
（二级考生使用）
1、下列程序是计算小于或等于35的所有正奇数的积和正偶数的和，并显示符合条件的正奇数的积。
答案有误！
S1=1
S2=0
Fori=1to35
Ifint（i/2）<
i/2
S1=s1*i
Else
S2=s2+i
s1
2、下列程序求三位数中，个位数字与十位数字之积除以3所得的余数是十位数字的偶数和，填空完成程序。
（保留整数位）（正确答案32022）
X=100
Dowhilex<
=999
A=int（x/100）
B=int（x/10）-a*10
C=x-a*100-b*10
Ifmod（x,2）=0andmod（c*b,3）=b
S=s+x
X=x+1
3、求出100-999内的水仙花数的个数。
（4）
fori=100to999
a=int（i/100）
b=int（mod（i,100）/10）
d=mod（i,10）
ifa^3+b^3+d**3=i
endif
4、求所有数字的和为16的四位数的个数，填空完成程序。
（保留整数位）（正确答案564）
t=0
fori=1000to9999
j=alltrim（str（i））
a=left（j,1）
b=substr（j,2,1）
c=substr（j,3,1）
d=right（j,1）
ifval（a）+val（b）+val（c）+val（d）=16
t=t+1
5、已知S1=1，S2=1+2，S3=1+2+3，…SN=1+2+3+…+N，求S1，S2，S3，…S2800中有多少个能被3或7整除的数。
填空完成程序。
（保留整数位）（答案不对。
正确答案2133）
i=1
dowhilei<
=2800
j=1
dowhilej<
=i
s=s+j
j=j+1
enddo
ifINT（s/3）=s/3orINT（s/7）=s/7
i=i+1
6、下面的程序是求1+3+5+…的奇数之和，若累加数大于123699时则结束累加。
（保留整数位）（正确答案1
升级会员 