编程题及程序下发.doc

1??1到1000内既能被5整除又能被7整除的奇数之和 set talk off clear i=1 s=0 do while i=1000 ???if i/5=int(i/5) and i/7=int(i/7)????? ???s=s+i ???endif ???i=i+2 enddo ?s set talk on 2??1到50所有整数平方和并输出结果 clea s=0 x=1 do while x=50 ??s=s+x^2 ??x=x+1 enddo ?s 3??求四位数的偶数中，所有各位数字之和是15的倍数的数的和。 set talk off clear s=0 for x=1000 to 9999 step 2 ??a=int(x/1000) ??b=int(x%1000/100) ??c=int(x%100/10) ??d=x%10 ??if mod(b+c+a+d,15)=0 ????s=s+x ??endif endfor ?s set talk on return 4??求[100，999]之间所有水仙花数。所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=1^3+3^3+5^3，故153是水仙花数。 ???set talk off ???clear ????for i=100 to 999 ???????a=i%10 ???????b=int(i%100/10) ???????c=int(i/100) ??????if a^3+b^3+c^3=i ???????????i ??????endif ????endfor ??set talk on 5 求出[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。 set talk off clear n=0 for x=10 to 1000 ??if mod(x,6)=0 and mod(x,9)!=0 or mod(x,6)!=0 and mod(x,9)=0 ????n=n+1 ??endif endfor ? n set talk on return 6 从键盘输入若干个非零整数，统计偶数的个数，并求所有偶数之和，输入0退出。 SET TALK OFF CLEAR INPUT??请输入一个整数:??TO??N A=0 B=0 DO WHILE N0 ???IF MOD(N,2)=0 ??????A=A+N ?????B=B+1 ???ENDIF ???INPUT 请输入一个整数:??TO??N ENDDO ?A,B SET TALK ON 7??编写从键盘上输入5个数，统计其中奇数的个数程序。 set talk off a=0 for j =1 to 5 input “请输入第”+str(j,2)+”数” to m if int(m/2)m/2 a=a+1 endif endfor ?”奇数的个数是：”,a cancel 8???计算并输出9的阶乘。 jx=1 n=1 do while??n10?? jx=jx*n ??n=n+1???? enddo ?9!=+1*2*3*4*5*6*7*8*9=+ltrim(str(jx)) 9、从键盘任意输入一个数据，求出1到这个数内的所有整数的阶乘和。 方法一： set talk off clear input please input a number:??to i s=0 for n=1 to i ???????t=1 ???????for m=1 to n ???????t=t*m ???????endfor ???????s=s+t endfor ?s set talk on 或方法二： set talk off clear input please input a number:??to i s=0 t=1 for n=1 to i ???????t=t*n ???????s=s+t endfor ?s set talk on 10、编程从键盘输入一个数，判断这个数是否素数。 SET TALK OFF CLEAR INPUT 请输入一个数: TO x FOR i=2 TO x-1 ??????IF Mod(x,i)=0 ?????????EXIT????????????????????????????????? ??????ENDIF?????????????????????????????? ENDF???????????????????????????????????? IF i=x and x1 ?STR(X)+是素数???????????? ELSE 　　　　　　　　　　　　　　　　　 ?STR(X)+不是素数 ENDIF ??????? 11