王彦祺版vfp课后实验编程题答案.doc

一.顺序结构1.从键盘输入长方体的长、宽、高，求长方体的表面积。input “输入长方体的长：” to xinput “输入长方体的宽：” to yinput “输入长方体的高：” to zs=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s2.从键盘输入圆的半径，计算圆的面积。input “输入圆的半径：” to rs=3.14*r2?”圆的面积为：”,s二.选择结构1. 从键盘输入一个数，若为正数则输出，非正数则结束。input “输入一个数：” to xif x0?xendifreturn2. 求一元二次方程AX2+BX+C=0的实根。input “输入系数A：” to ainput “输入系数B：” to binput “输入系数C：” to cm=b2-4*a*cif m=0x1=(-b+sqrt(m)/(2*a)x2=(-b-sqrt(m)/(2*a)?”x1=”,x1, ”x2=”,x2else?”方程无实根！”endif3.判断是否是闰年. CLEARinput 输入一个年份 to y & 请保证输入的是数字，不再做错误处理IF y % 4 = 0 .and. y % 100 != 0 .or.y % 400 = 0 MESSAGEBOX(是闰年)ELSE MESSAGEBOX(不是闰年)ENDIF4.从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。use xsqkaccept “输入待查学生学号：” to xlocate for 学号=xif not eof()displayelse?“该学号不存在” EndifUse5. 从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。input “输入一个自然数：” to xif x%2=0?” 偶数”else?” 奇数”endifreturn6. 计算函数Y的值。Y=3ex+2-12X+5x=0X=0y=3*x-1elsey=2*x+5endif?”y=”,yreturn7. 计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。clearinput 请输入行李的重量： to nif n=3 and m=6 and m=9 and m=11 ?秋季 otherwise ?冬季 endcase return9编写程序，输入一个数字（07），显示其对应星期几的中英文信息。clearinput 请输入一个数字： to ndo casecase n=1M=星期一(Monday)case n=2M=星期二（Tuesday）case n=3M=星期三（Wednesday）case n=4M=星期四（Thursday）case n=5M=星期五（Friday）case n=6M=星期六（Saturday）case n=0M=星期日（Sunday）otherwiseM=重新输入endcase?您输入的是：+Mreturn10. 设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表：级数全月应纳税所得额税率（%）1不超过500元525002000元10320005000元154500020000元2052000040000元2564000060000元3076000080000元35880000100000元409100000元以上45clearinput 请输入月收入： to ns=n-1600do case case s=500 r=s*0.05 case s=2500 r=s*10 case s=5000 r=s*15 case s=20000 r=s*20 case s=40000 r=s*25 case s=60000 r=s*30 case s=80000 r=s*35 case s=100000 r=s*40 otherwise r=r*0.45endcase?应纳税额为：,rreturn三.循环结构1. 求S=1+2+3+100set talk offclears=0i=1do while i=100s=s+ii=i+1enddo?1100的和为：,sReturn2. 求N！的值。 （N！=1*2*3*N）clearinput 请输入n的值： to ns=1for i=1 to n s=s*iendfor?n!=,sreturn3. 计算101500之间的所有奇数之和。clears=0for i=101 to 500 if i%2!=0 s=s+i endifendfor?101-500的奇数和为：,sreturn4. 输出1001000之间能被37整除的数。set talk offclearfor i=100 to 1000 if i%37=0 ?i endifendforset talk onreturn5求S=1！+2！+3！+10！clears=0 T=1 for I=1 to 10 T=T*i S=S+1 endfor?S=,Sreturn6求S=1+（1+2）+（1+2+3）+（1+2+3+N）clearinput 请输入N的值： to Ns=0 t=0 for i=1 to N t=t+i s=s+tendfor?总和为：,s7. 求S(n)=a+aa+aaa+.+aaa.aaa(其中有n个a)之值，a是一个数字，n和a由键盘键入(例如：2+22+222+2222+22222，此时n=5) clea inpu a= to a inpu n= to n s=0 t=a for i=1 to n s=s+t t=a+t*10 endfor ?s 8.求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）Clea for x=100 to 999 a=int(x/100) b= mod(int(x/10),10) c=mod(x,10) if x=a*a*a+b*b*b+c*c*c ?x Endif endfor9.输出Fibonacci（斐波那契）数列的前40项Clear Dime a(40) a(1)=1 a(2)=1 For i=3 to 40 a(i)=a(i-1)+a(i-2) Endfor For i=1 to 40 ?A(i) Endfor 10. 输入两个正整数m和n 求其最大公约数和最小公倍数input m= to minput n= to nfor i=min(m,n) to 1 step -1 if m%i=0 and n%i=0 y=m*n/i exit endif endfor ?这两个数的最大公约数是：,i ?这两个数的最小公倍数是：,y11. 从键盘输入一个数，判断其是否为素数。clearinput 请输入数字： to ns=0for i=2 to n-1if n%i=0 s=1 endif endfor if s=0 ?n,是素数 else ?n,不是素数 endifreturn12.求第1000到2000nr=0for ny=2000 to 3000if mod(ny,400)=0 .or. (mod(ny,4)=0 .and. mod(ny,100)0)?闰年,nynr=nr+1endifendfor?有+str(nr)+个闰年13.从键盘输入10个数到数组a(10)中,显示数组中所有元素值dime a(10)for i=1 to 10input 请输入数字： to a(i)endforfor i=1 to 10?a( + STR(i) +)= ,a(i)endfor14.设计一个程序可以从键盘接收数据给数组a(3,4)中所有元素赋值,并计算所有数组元素的累加和,打印结果dimension a(3,4)s=0for m=1 to 3 for n=1 to 4 input 请输入第+str(m,1)+行第+str(n,1)+列数据: to a(m,n) s=s+a(m,n) endfor endfor ?所有数组元素的累加和是,s15. 在表BXCJ.DBF中，已经有数学、计算机、英语、物理四门课程的成绩，编写程序根据每人的平均成绩，在“总评”字段中填入对应的等级。等级评定办法是：90分以上为优，7589为良，6074为及格，60分以下为不及格。 clearuse bxcj exclusiveavgscore=0scanavgscore=(数学+计算机+物理+英语)/4do case case avgscore=90 M=优 case avgscore=75 M=良 case avgscore=60 M=及格 case avgscore60 M=不及格endcase?replace 总评 with M endscanusereturn16编写程序，分别统计表XSQK.DBF中男、女同学的人数。clearuse xsqk exclusivestore 0 to m,nscanif 性别=男m=m+1elsen=n+1endifendscan?男生人数：+str(m)?女生人数：+str(n)use return或者use 表count for 性别=男 to ls count for 性别=女 to n