程序真题选附部分答案Word格式文档下载.docx
- 文档编号:17194823
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:32
- 大小:24.66KB
程序真题选附部分答案Word格式文档下载.docx
《程序真题选附部分答案Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《程序真题选附部分答案Word格式文档下载.docx(32页珍藏版)》请在冰豆网上搜索。
s=0
forn=1to100
s=s+n(改为s=s+sqrt(n))
ifs>
500
exit
s
83)
5.求出100以内的最大的自然数n,使得算式1+1/(1+2)+…+1/(1+2+…+n)的值小于1.9。
t=0
s=s+1/n
t=t+s
ift>
=1.9
n-1
6.求出100以内使得算式1+1/(1*2)+…+1/(1*2*…*n)的值大于1.71828的最小自然数n。
a=1.00000000
s=0.00000000
a=a*n
s=s+a
ifs<
=1.71828
7.已知数列:
1,2,4,7,11,16,…,其规律是相邻两项之差依次是1,2,3,4,5,…。
求100以内最小的自然数n使得此数列的前n项之和大于800。
a=0
a=a+n
*?
n,a,s
800
exit
8.求出[13,1300]之间非素数非偶数之和。
fori=13to1300
forj=2toi
ifmod(i,j)=0ormod(i,2)=1
s=s+i
exit
endif
endfor
s
return(答案:
296984)
9.求出100以内使得算式1*3+2*5+…+n*(2*n+1)的值小于10000的最大的自然数n。
a=n*2*(n+1)
=10000
10.求出[200,800]内被3除余1并且被5除余3的整数的和。
forx=200to800
ifmod(x,3)=1ormod(x,5)=3(改为and)
s=s+1(改为s=s+x)
20020)
11.已知一个由分数组成的数列:
1/2,3/5,8/13,21/34,…,其特点是:
从其中第2个分数起,每个分数的分子都是前一分数的分子分母之和而其分母都是其分子与前一分数的分母之和。
试求出此数列的前25项中其值大于0.618的项数。
f1=1
f2=2
fork=1to25
f=f1/f2
iff>
0.618
f1=f2
f2=f1
12.编写程序,计算10000以内个位数为6且该数能被9整除的所有数之和。
forI=1to10000
sw=mod(I,10)
ifsw=6
ifmod(I,10)=9
n=n+I
N
13.已知数列:
1、2、4、7、10、15、…,其特点是:
相邻两项之差恰好构成自然数列:
1、2、3、4、5、…。
求此数列的前100项中能被4整除的项的个数。
a=1
k=0
ifmod(n,4)=0
k=k+1
k
14.设一数列{f(n)}:
f
(1)=1,当n>
1时f(n)=1/(f(n-1)+1)。
试求出此数列的前20项中小于0.618的项的数目。
f=1.000000
fork=1to20
f=1/f+1
iff<
endif
k,f,n
15.将小于2000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后,求最后20个数之和。
x=2000
dowhilek<
=20
x=x+1
ifmod(x,4)=0andmod(x,6)=0
s=s+x
k=k+1
enddo
16.求出100以内使得算式1/(1*2)+1/(2*3)+…+1/(n*(n+1))的值小于0.952的最大的自然数n。
clears=0
s=s+1/n*(n+1)
0.952
17.求出9269和8671的最小公倍数。
[算法提示:
a与b的最小公倍数是a的倍数中第1个被b整除的数]
a=9269
b=8671
k=a
dowhilemod(k,a)=0
k=k*a
18.求出100以内使算式(1-1/2)+(1/3-1/4)+…+(1/n-1/(n+1))的值大于0.682的最小的奇数n
a=1/n-1/(n+1)
=0.682
19.求1000-10000内的第57个素数。
fori=1000to10000
forj=2toi(改为forj=2toi-1)
iff=0(改为iff=1)
ifk=57
k(改为?
i)
1427)
20.求出[100,600]内被3除余2并且被5除余3的整数的个数。
forx=100to600
ifmod(x,3*5)=2*3
(改为ifmod(x,3)=2andmod(x,5)=3)
n=x+1(改为n=n+1)
33)
21.求满足条件A*B=45678且使A+B的值最小的自然数对A、B中较小的一个数。
(提示:
设A<
=B,当A越大时A+B越小)**
c=45678
k=int(sqrt(c))
fora=1tok(改为fora=kto1step-1)
b=int(a/c)(改为b=int(c/a))
ifa*b=c
a0=b(改为a0=a)
a0
138)
22.求出[99,999]内所有能被7和9中至少一个数整除的整数的个数。
forx=99to999
ifmod(x,7)=0andmod(x,9)=0(把and改为or)
n=n+x(改为n=n+1)
215)
23.求出100以内使得算式1/(1*1)+1/(2*3)+…+1/(n*(2n-1)的值大于1.35的最小的自然数n。
a=n*(2*n-1)
1.35
24.设某四位数的各位数字的平方和等于100,问满足这种条件的四位数且是素数的数共有多少个?
forx=1000to9999
fori=2toint(sqrt(x))
ifmod(x,i)=0
iff=0
a=int(x/1000)
b=int((x-a*1000)/100)
c=mod(x,100)
d=mod(x,10)
ifa*a+b*b+c*c+d*d=100
25.求出100以内最大的奇数n使得算式(1-1/2)+(1/3-1/4)+…+(1/n-1/(n+1))的值小于0.68。
forn=1to100step2
0.68(改为ifs>
=0.68)
n-2
35)
程序填空
阅读下面程序,填写程序中的空白,然后运行程序,并将运行后得到的正确结果填入指定的方框中。
1.下面程序求1!
+3!
+5!
+…+(2K+1)!
,要求在其和大于20000时中止程序运行。
填空完成程序,然后运行程序得出正确结果。
(答案填程序运行结果,保留整数位)(下同)**
CLEA
I=0
S=0
DOWHILE.T.
I=I+1
IFI/2=________(填:
int(i/2))
LOOP
ENDIF
J=1
SUB=1
DOWHILEJ<
=I
___________(填:
sub=sub*j)
J=J+1
ENDDO
S=S+SUB
IFS>
20000
EXIT
I
RETURN(答案:
9)
2.求12000以内能同时被13和17整除的数的和。
SETTALKOFF
CLEAR
I=1
DOWHILEI<
12000
IF___________
S=S+I
ENDIF
__________
S
SETTALKON
RETURN
3.大马、小马和马驹共100匹,大马一驮三,小马一驮二,马驹二驮一,共100片瓦一次驮完,三种马都驮,共有多少种组合。
DM=1
DOWHILEDM<
=100/3
XM=1
DOWHILEXM<
=(100-DM*3)/2
MJ=100-DM-XM
IF____________
S=S+1
DM=DM+1
RETU
4.求40000以内不能被13整除的数的个数。
IF__________
S=S+1
EXIT
5.求[1000,3000]范围内满足这样条件的数的个数:
这个数的所有因子之和(不包括这个数本身)能够被3整除。
count1=0
fori=1000to3000
sum2=0
forj=1toi-1
ifi%j=0
____________(填:
sum2=sum2+j)
if____________(填:
mod(sum2,3)=0)
count1=count1+1
count1
retu(答案:
593)
6.求[1000,3000]范围内满足这样条件的数之和:
这个数的所有因子之和(不包括这个数本身)能够被17整除。
sum1=0
sum2=0
______________(填:
ifsum2%17=0
______________(填:
sum1=sum1+1)
sum1
121)
7.求能被3整除且有一位数字为6的三位数的个数。
SETTALkOFF
X=100
DOWHILEX<
999
IF___________(填:
x%3=0)
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF____________(填:
a=6orb=6orc=6)
X=X+1
RETU(答案:
84)
8.求能被6整除且有一位数字为8的三位数的和。
x%6=0)
a=8orb=8orc=8)
s=s+x)
S(答案:
33114)
9.下列程序的功能是求500到1000之间的所有奇数的平方和并显示结果。
Sum=0
x=500
DOWHILEx<
=1000
IF_________(填:
x%2=1)
Sum=__________(填:
sum=sum+x)
__________(填:
x=x+1)
Sum
145833250)
10.fibonacci数列:
fib
(1)=1,fib
(2)=1,fib(n)=fib(n-1)+fib(n-2)n>
=3。
求数列中第一个大于100的素数项是数列的第几项。
dimefib(100)
fib
(1)=1
fib
(2)=1
________________(填:
i=3)
dowhile.t.
fib(i)=fib(i-1)+fib(i-2)
if____________(填:
fib(i)>
100andsu(i))
?
i
i=i+1
retu
functionsu(x)
forj=2tosqrt(x)
ifx%j=0
return(.f.)
ifj>
sqrt(x)
return(.t.)
endif(答案:
13)
11.求[1,50]之间,所有能构成直角三角形的三边的整数的组数。
例如:
3*3+4*4=5*5,它们构成直角三角形,所以{3,4,5}作为一组,但{4,3,5},{5,4,3}等视为跟{3,4,5}相同的一组。
____________(填:
count1=0)
fori=1to50
forj=i+1to50
fork=j+1to50
if_______________(填:
i*i+j*j=k*k)
retu(答案:
20)
12.求1234680的因子中素数因子的和是多少。
fori=2to1234680
if___________(填:
1234680%i=0andsu(i))
sum1=__________(填:
sum1+i)
retu
functionsu(x)
return(.f.)
10299)
13.已知A,B为正整数,A<
B,A*B=2698,且要求A+B取最小值,求满足上述条件的A+B的最小值。
min1=2698
fora=1to2698
forb=a+1to2698
if_____________(填:
a*b=2698)
a+b<
min1)
min1=a+b
min1
Retu(答案:
109)
14.求在1,2,3,…,80这80个数中,任意选两个不同的数,它们的和能被4和9整除的数的总对数(1+35和35+1认为是同一对数)。
N=0
=80
J=1(此处应改为j=i+1)
DOWHILE_____________(填:
j<
=80)
IFMOD(I+J,4)=0.AND.MOD(I+J,9)=0
_______(填:
n=n+1)
i=i+1)
N
86)
15.(A,B)满足条件:
A是素数,B是素数,A+B的和也是一个素数,又777>
B>
A>
=2。
求这样的(A,B)中所有A的和是多少。
fora=2to777
forb=a+1to777
if______(填:
su(a)andsu(b)andsu(a+b))
sum1=_______________(填:
sum1+a)
endfor(答案:
60)
16.(A,B)满足条件:
求这样的(A,B)中所有A+B的和是多少。
sum1=__________(填:
sum1+a+b)
7948)
17.求2468640的因子中素数有多少个。
fori=2to2468640
if_______(填:
2468640%i=0andsu(i))
count1=_______(填:
count1+1)
e
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 真题选附 部分 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)