程序题.docx
- 文档编号:10083913
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:26
- 大小:17.55KB
程序题.docx
《程序题.docx》由会员分享,可在线阅读,更多相关《程序题.docx(26页珍藏版)》请在冰点文库上搜索。
程序题
1、输出1到1000之间除以44的余数和除以4的商相等的数的个数。
3
Settalkoff
Clear
N=0
ForI=1to1000
Ifmod(I,44)=int(i/4)
N=n+1
Endif
Endfor
?
n
Settalkon
Return
2、在1到1000之间除以66的余数和除以6的商相等,求其中的最大数。
395
Settalkoff
Clear
M=0
ForI=1to1000
Ifmod(I,66)=int(i/6)
M=i
Endif
Endfor
?
m
Settalkon
Return
3、编程序求1~55的平方根的和并输出结果。
(保留小数点两位)。
275.43
Settalkoff
Clear
s=0
ForI=1to55
S=s+sqrt(i)
Endfor
?
round(s,2)
Settalkon
Return
4、编程序求1~99的平方根的和并输出结果。
(保留小数点两位)661.46
Settalkoff
Clear
s=0
ForI=1to99
S=s+sqrt(i)
Endfor
?
round(s,2)
Settalkon
Return
5、编程序求出1~100所有整数的平方和并输出结果。
(结果为整数解)。
338350
Settalkoff
Clear
s=0
ForI=1to100
S=s+i^2
Endfor
?
s
Settalkon
Return
6、编程序求出1~200所有整数的平方和并输出结果(结果为整数解)。
2686700
Settalkoff
Clear
s=0
ForI=1to200
S=s+i^2
Endfor
?
s
Settalkon
Return
7、编程序求出1-5000以内能被37整除的整数之和。
339660
Settalkoff
Clear
S=0
ForI=1to5000
Ifmod(I,37)=0
S=s+i
Endif
Endfor
?
s
Settalkon
Return
8、编程序统计1~1000能被3整除的数的个数。
333
Settalkoff
Clear
N=0
ForI=1to1000
Ifmod(I,3)=0
N=n+1
Endif
Endfor
?
n
Settalkon
Return
9、编程序求出1-100以内的能被3整除的数的平方和。
(结果为整数解)112761
Settalkoff
Clear
S=0
ForI=1to100
Ifmod(I,3)=0
S=s+i^2
Endif
Endfor
?
s
Settalkon
Return
10、编程序求出1-200以内的能被7整除的数的平方和。
(结果为整数解)。
377986
Settalkoff
Clear
S=0
ForI=1to200
Ifmod(I,7)=0
S=s+i^2
Endif
Endfor
?
s
Settalkon
Return
11、编程序求出1-100以内的能被9整除的数的平方和。
(结果为整数解)40986
Settalkoff
Clear
S=0
ForI=1to100
Ifmod(I,9)=0
S=s+i^2
Endif
Endfor
?
s
Settalkon
Return
12、编程序求出1到5000之间的能被5整除的前若干个偶数之和,当和大于500时程序退出。
550
Settalkoff
Clear
S=0
ForI=1to5000
Ifmod(I,10)=0
S=s+i
Endif
Ifs>500
Exit
endif
Endfor
?
s
Settalkon
Return
13、求1到1000之间同时能被3和4整除的数的和。
41832
Settalkoff
Clear
S=0
ForI=1to1000
Ifmod(I,12)=0
S=s+i
Endif
Endfor
?
s
Settalkon
Return
14、编写程序,求[100,5000]既能被6整除又能被7整除的数之和。
299754
Settalkoff
Clear
S=0
ForI=100to5000
Ifmod(I,42)=0
S=s+i
Endif
Endfor
?
s
Settalkon
Return
15、编程序求在5000以内被17或者23整除的正整数数的个数。
499
Settalkoff
Clear
n=0
ForI=1to5000
Ifmod(I,17)=0ormod(I,23)=0
N=n+1
Endif
Endfor
?
n
Settalkon
Return
16、编程序求出1-7000以内能被3或者7整除数的个数。
3000
Settalkoff
Clear
n=0
ForI=1to7000
Ifmod(I,3)=0ormod(I,7)=0
N=n+1
Endif
Endfor
?
n
Settalkon
Return
17、编程序求出1-4000以内能被3或者11整除数的个数。
1575
Settalkoff
Clear
n=0
ForI=1to4000
Ifmod(I,3)=0ormod(I,11)=0
N=n+1
Endif
Endfor
?
n
Settalkon
Return
.18、编程序求出1-6000以内能被3或者5整除数的个数。
2800
Settalkoff
Clear
n=0
ForI=1to6000
Ifmod(I,3)=0ormod(I,5)=0
N=n+1
Endif
Endfor
?
n
Settalkon
Return
.19、求[551,732]之间所有不能被3整除,但能被8整除的整数的和。
9632
Settalkoff
Clear
s=0
ForI=551to732
Ifmod(I,3)!
=0andmod(I,8)=0
S=s+i
Endif
Endfor
?
s
Settalkon
Return
20、求1到300之间不能被3整除并且不能被7整除的数的和。
25884
Settalkoff
Clear
s=0
ForI=1to300
Ifmod(I,3)!
=0andmod(I,7)!
=0
S=s+i
Endif
Endfor
?
s
Settalkon
Return
.21、计算1000-5000之间能被13或15或17整除的数。
问:
这些整数的和是多少?
2274282
Settalkoff
Clear
s=0
ForI=1000to5000
Ifmod(I,13)=0ormod(I,15)=0ormod(I,17)=0
S=s+i
Endif
Endfor
?
s
Settalkon
Return
22、编程序求出300到500之间同时满足除3余2和除5余3条件的数的个数。
13
Settalkoff
Clear
n=0
ForI=300to500
Ifmod(I,3)=2andmod(I,5)=3
N=n+1
Endif
Endfor
?
n
Settalkon
Return
23、编程序求出1到500之间同时满足除7余2和除9余5条件的数的和。
1948
Settalkoff
Clear
s=0
ForI=1to500
Ifmod(I,7)=2andmod(I,9)=5
S=s+i
Endif
Endfor
?
s
Settalkon
Return
24、计算1!
+2!
+3!
+…+10!
的值。
4037913
SETTALKOFF
clear
N=1
T=0
P=1
DOWHILEN<=10
P=P*N
T=T+P
N=N+1
ENDDO
?
T
SETTALKON
RETURN
.25、编程求S=1*3+2*4+3*5+…+198*200。
2646501
Settalkoff
Clear
s=0
ForI=1to198
A=i*(i+2)
S=s+a
Endfor
?
s
Settalkon
Return
.26、计算1+2*2+3*3+…+100*100的值。
338350
Settalkoff
Clear
s=0
ForI=1to100
S=s+i^2
Endfor
?
s
Settalkon
Return
.27、计算1*2+2*3+3*4+…+60*61的值。
75640
Settalkoff
Clear
s=0
ForI=1to60
A=i*(i+1)
S=s+a
Endfor
?
s
Settalkon
Return
28、计算1*3+3*5+5*7+…+61*63的值。
41633
Settalkoff
Clear
s=0
ForI=1to61step2
A=i*(i+2)
S=s+a
Endfor
?
s
Settalkon
Return
.29、计算1+1/2+1/3+…+1/100的值。
(按四舍五入的方式精确到小数点后第二位)5.19
Settalkoff
Clear
s=0
ForI=1to100
S=s+1/i
Endfor
?
round(s,2)
Settalkon
Return
.30、计算1/2+1/4+1/6+…+1/100的值。
(按四舍五入的方式精确到小数点后第二位)2.25
Settalkoff
Clear
s=0
ForI=1to50
S=s+0.5/i
Endfor
?
round(s,2)
Settalkon
Return
.31、设S=1+1/2+1/3+…1/n,n为正整数,求使S不超过10(S≤10)的最大的n。
12367
Settalkoff
Clear
s=0
n=1
dowhile.t.
S=s+1/n
Ifs>10
Exit
Endif
N=n+1
Enddo
?
n
Settalkon
Return
32、编写程序,求三位数的偶数中,所有各位数字之和是15的倍数的数的和。
20454
Settalkoff
Clear
s=0
ForI=100to998step2
A=i%10
B=int(I/10)%10
C=INT(i/100)%10
Ifmod(a+b+c,15)=0
S=s+i
endif
Endfor
?
s
Settalkon
Return
.33、编写程序,求在四位数的奇数中,所有各位数字之和是25的倍数的数的和。
1298515
Settalkoff
Clear
s=0
ForI=1001to9999step2
A=i%10
B=int(I/10)%10
C=INT(i/100)%10
D=int(i/1000)%10
Ifmod(a+b+c+d,25)=0
S=s+i
endif
Endfor
?
s
Settalkon
Return
34、编写程序,求在四位数的偶数中,所有各位数字之和是30的倍数的数的和。
288840
Settalkoff
Clear
s=0
ForI=1000to9998step2
A=i%10
B=int(I/10)%10
C=INT(i/100)%10
D=int(i/1000)%10
Ifmod(a+b+c+d,30)=0
S=s+i
endif
Endfor
?
s
Settalkon
Return
35、编写程序,求三位数的奇数中,所有各位数字之和是15的倍数的数的和。
19731
Settalkoff
Clear
s=0
ForI=101to999step2
A=i%10
B=int(I/10)%10
C=INT(i/100)%10
Ifmod(a+b+c,15)=0
S=s+i
endif
Endfor
?
s
Settalkon
Return
36、编写程序,求三位数的奇数中,所有各位数字之和是12的倍数的数的和。
20292
Settalkoff
Clear
s=0
ForI=101to999step2
A=i%10
B=int(I/10)%10
C=INT(i/100)%10
Ifmod(a+b+c,12)=0
S=s+i
endif
Endfor
?
s
Settalkon
Return
37、编写程序,求所有符合算式ij*ji=1300的最大数ij(即i*10+j)。
其中i、j是1~9之间的一位整数。
52
Settalkoff
Clear
ForI=1to9
Forj=1to9
If(i*10+j)*(j*10+i)=1300
M=i*10+j
Endif
Endfor
Endfor
?
m
Settalkon
Return
38、编写程序,求所有符合算式ij*ji=1300的最小数ij(即i*10+j)。
其中i、j是1~9之间的一位整数。
25
Settalkoff
Clear
ForI=1to9
Forj=1to9
If(i*10+j)*(j*10+i)=1300
M=i*10+j
Exit
Endif
Endfor
If(i*10+j)*(j*10+i)=1300
M=i*10+j
Exit
Endif
Endfor
?
m
Settalkon
Return
39、编写程序,求共有几组I、j、k符合算式ijk+kji=1333,其中I、j、k是0~9之间的一位整数。
6
Settalkoff
Clear
N=0
ForI=1to9
Forj=1to9
Fork=1to9
If(i*100+j*10+k)+(k*100+j*10+i)=1333
N=n+1
Endif
Endfor
Endfor
Endfor
?
n
Settalkon
Return
40、编写程序,求共有几组i、j、k符合算式ijk+kji=1534,其中i、j、k是0~9之间的一位整数。
5
Settalkoff
Clear
N=0
ForI=1to9
Forj=1to9
Fork=1to9
If(i*100+j*10+k)+(k*100+j*10+i)=1534
N=n+1
Endif
Endfor
Endfor
Endfor
?
n
Settalkon
Return
41、一个数除了能被1和它本身整除之外,不能被其它整数整除,该数称为素数。
求出1000-5000之间素数的和。
1472009
Settalkoff
clear
s=0
forx=1000to5000
flag=.t.
fori=2tosqrt(x)
ifx%i=0
flag=.f.
exit
endif
next
ifflag=.t.
s=s+x
endif
next
?
s
return
42.42、求[666,777]范围内素数的个数。
16
Settalkoff
clear
n=0
forx=666to777
flag=.t.
fori=2tosqrt(x)
ifx%i=0
flag=.f.
exit
endif
next
ifflag=.t.
n=n+1
endif
next
?
n
return
43.43、求[500,1999]之间的素数的个数,且要求该素数十位数字为7。
22
Settalkoff
clear
n=0
forx=500to1999
flag=.t.
fori=2tosqrt(x)
ifx%i=0
flag=.f.
exit
endif
next
ifflag=.t.andint(x/10)%10=7
n=n+1
endif
next
?
n
return
44.44、用一元纸币兑换一分、两分和五分的硬币,要求兑换硬币的总数为60枚,问共有多少种换法?
(注:
在兑换中一分、两分或五分的硬币数可以为0枚)11
Settalkoff
Clear
n=0
Fory=0to100
Fore=0to50
W=60-y-e
Ify+2*e+5*w=100andw>=0
N=n+1
Endif
Endfor
Endfor
?
n
Settalkon
Return
45.45、把18元钱分成一元、二元和五元的纸币且纸币数共为10张的分法有多少种?
(注:
在兑换中一元、二元、五元的纸币数可以为0)。
3
Settalkoff
Clear
n=0
Fory=0to18
Fore=0to9
W=10-y-e
Ify+2*e+5*w=18
N=n+1
Endif
Endfor
Endfor
?
n
Settalkon
Return
46.46、有36个学生一起买小吃,共花钱120元,其中每个大学生花4元,每个中学生花2元,每个小学生花1元,问大、中、小学生的人数分配共有多少种不同的解(去掉某类学生为0的解)?
3
Settalkoff
Clear
n=0
Ford=1to30
Forz=1to60
x=36-d-z
If4*d+2*z+x=120andx>0
N=n+1
Endif
Endfor
Endfor
?
n
Settalkon
Return
47、所谓回文数是从左至右与从右至左读起来都是一样的数字,如:
121是一个回文数。
编写程序,求出300—600的范围内所有回文数的和。
13470
Settalkoff
Clear
s=0
Fori=3to5
Forj=0to9
Fork=0to9
Ifk=i
S=s+100*i+10*j+k
Endif
Endfor
Endfor
Endfor
?
s
Settalkon
Return
48、水仙花数是一个三位正整数,它等于它的各位数字的立方之和.例如:
153=1^3+5^3+3^3,所以153是水仙花数.试求有多少个水仙花数?
4
Settalkoff
Clear
n=0
ForI=100to999
A=i%10
B=int(I/10)%10
C=INT(i/100)%10
Ifi=a^3+b^3+c^3
N=n+1
endif
Endfor
?
n
Settalkon
Return
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序