程序改错填空编写答案Word文档下载推荐.docx
- 文档编号:3600929
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:60
- 大小:30.70KB
程序改错填空编写答案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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 改错 填空 编写 答案