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

1、编写一个程序，计算1+2+…+100的和。 1. s=0 for n=1 to 100 s=s+n endfor ? s s=0 n=1 do while n=100 s=s+n n=n+1 enddo ? s ? n 2、编写一个程序，将Da1.dbf表中凡是工资小于800元的增加100元。 2. use da1.dbf scan for 工资800 replace 工资 with 工资+100 endscan 3、编写一个程序，求1到10之间的奇数之和及偶数之积。要求：奇数之和存放在变量S中，偶数之积存放在变量N中。 3. s=0 n=1 for x=1 to 10 step 1 if int(x/2)=x/2 n=n*x else s=s+x endif endfor ?s,n 4、编写一个程序，在Da1.dbf表中，查找职称是“讲师”的记录，计算满足条件的记录个数和工资的总和。 4. set talk off x =0 y=0 use da1.dbf scan for 职称=讲师 x=x+1 y=y+工资 endscan ? x ? y 5、编一个程序,求1~100之间偶数之和（S=2+4+6+…+100）。 5. store 0 to i,t do while i100 i=i+2 t=t+i if int(i/2)=i/2 loop endif enddo ? t y=0 for x=2 to 100 step 2 y=y+x endfor ? y 6、编一个程序，将华氏温度F=77°F，变换成摄氏温度℃,并将结果显示出来。计算公式为：C=5×(F－32)÷9。 6. input 请输入一个华氏温度F to F c=5*(F-32)/9 ? c 7、设一个班有学生10名，循环输入每个学生的分数（百分制），统计并显示各分数段的人数。其中分数段的划分如下：90分以上，80-89分，70-79分，60-69分，60分以下。 7. store 0 to a,b,c,d,e for i=1 to 10 input 请输入一个成绩:to n do case case n=90 a=a+1 case n=80 b=b+1 case n=70 c=c+1 case n=60 d=d+1 otherwise e=e+1 endcase endfor ?a,b,c,d,e 8、编写一个程序，从键盘输入10个数,找出其中的最大最小值。 8. set talk off clear input 请从键盘输入一个数: to a store a to max,min for i=2to 10 input 请从键盘输入一个数: to a if max a max=a endif if min a min =a endif endfor ? 最大值为:,max ? 最小值:,min set talk on return 9、编写一个程序，求0~100之间的奇数之和。 9. store 0 to i,t do while i100 i=i+1 if int(i/2)=i/2 loop endif t=t+i enddo ?t 10、某院校按学生选修的学分收费。学分在12学分以下的收费4000元，若超过12学分，则超过部分每学分加收200元。编一个程序计算收费。输入学号I及学分U，输出学号及应缴学费T。 10. input 请输入一个学号: to I input 请输入一个学分: to U if I =12 T=4000 else T=(I-12)*200+4000 endif ? T 11、编写一个程序，统计职工表Zgda.dbf中，职称是“讲师”和“副教授”，年龄为45岁以下的教师人数。 11. store 0 to x,y use da1.dbf scan for year(date())-year(出生日期)45 if 职称=讲师 x=x+1 if 职称=副教授 y=y+1 endif endif endscan ?x,y 12、编一个程序求S=1+(1+2)+(1+2+3)+…+（1+2+3+4+…10）之和。 12. n=0 for i= 1 to 10 for j= 1to i n=n+j endfor endfor ? n 13、设计一个程序，输出一个由*组成的三角形。 13. for i=1 to 3 ? space(10-i)+replicate(*,2*i-1) endfor 14、编写一个程序，以显示方式输出1到20的数字。 14. set talk off for