十六道程序设计复习题.doc

1、编写一个程序，计算1+2+100的和。1. s=0for n=1 to 100s=s+nendfor? ss=0n=1do while n=100s=s+nn=n+1enddo? s? n2、编写一个程序，将Da1.dbf表中凡是工资小于800元的增加100元。2. use da1.dbfscan for 工资800replace 工资 with 工资+100endscan3、编写一个程序，求1到10之间的奇数之和及偶数之积。要求：奇数之和存放在变量S中，偶数之积存放在变量N中。3. s=0n=1for x=1 to 10 step 1if int(x/2)=x/2n=n*xelses=s+xendif endfor?s,n4、编写一个程序，在Da1.dbf表中，查找职称是“讲师”的记录，计算满足条件的记录个数和工资的总和。4. set talk offx =0y=0use da1.dbfscan for 职称=讲师x=x+1 y=y+工资endscan? x? y5、编一个程序,求1100之间偶数之和（S=2+4+6+100）。5. store 0 to i,tdo while i=90a=a+1case n=80b=b+1case n=70c=c+1case n=60d=d+1otherwisee=e+1endcase endfor?a,b,c,d,e8、编写一个程序，从键盘输入10个数,找出其中的最大最小值。8. set talk offclearinput 请从键盘输入一个数: to astore a to max,minfor i=2to 10input 请从键盘输入一个数: to aif max amax=aendifif min amin =aendifendfor? 最大值为:,max? 最小值:,minset talk onreturn9、编写一个程序，求0100之间的奇数之和。9. store 0 to i,tdo while i100i=i+1if int(i/2)=i/2loopendif t=t+ienddo ?t10、某院校按学生选修的学分收费。学分在12学分以下的收费4000元，若超过12学分，则超过部分每学分加收200元。编一个程序计算收费。输入学号I及学分U，输出学号及应缴学费T。10. input 请输入一个学号: to Iinput 请输入一个学分: to Uif I =12T=4000else T=(I-12)*200+4000endif? T11、编写一个程序，统计职工表Zgda.dbf中，职称是“讲师”和“副教授”，年龄为45岁以下的教师人数。11. store 0 to x,yuse da1.dbfscan for year(date()-year(出生日期)45if 职称=讲师 x=x+1 if 职称=副教授 y=y+1 endifendifendscan?x,y12、编一个程序求S=1+(1+2)+(1+2+3)+（1+2+3+4+10）之和。12. n=0for i= 1 to 10for j= 1to in=n+jendforendfor? n13、设计一个程序，输出一个由*组成的三角形。13. for i=1 to 3? space(10-i)+replicate(*,2*i-1)endfor14、编写一个程序，以显示方式输出1到20的数字。14. set talk offfor a=1 to 20? aendforset talk on15、编写程序求100到999之间的水仙花数。（水仙花数：对于一个三位数abc，a3+b3+c3=abc）15. for m=100 to 999a=int(m/100)b=int(mod(m,100)/10)c=m%10if m=a3+b3