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

word格式文档 专业整理 一.顺序结构 1.从键盘输入长方体的长、宽、高，求长方体的表面积。 input “输入长方体的长：” to x input “输入长方体的宽：” to y input “输入长方体的高：” to z s=2*x*y+2*x*z+2*y*z ?”长方体的表面积为：”,s 2.从键盘输入圆的半径，计算圆的面积。 input “输入圆的半径：” to r s=3.14*r^2 ?”圆的面积为：”,s 二.选择结构 1. 从键盘输入一个数，若为正数则输出，非正数则结束。 input “输入一个数：” to x if x0 ?x endif return 2. 求一元二次方程AX2+BX+C=0的实根。 input “输入系数A：” to a input “输入系数B：” to b input “输入系数C：” to c m=b^2-4*a*c if m=0 x1=(-b+sqrt(m))/(2*a) x2=(-b-sqrt(m))/(2*a) ?”x1=”,x1, ”x2=”,x2 else ?”方程无实根！” endif 3.判断是否是闰年. CLEAR input 输入一个年份 to y 请保证输入的是数字，不再做错误处理 IF y % 4 == 0 .and. y % 100 != 0 .or.y % 400 == 0 MESSAGEBOX(是闰年) ELSE MESSAGEBOX(不是闰年) ENDIF 4. 从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。 use xsqk accept “输入待查学生学号：” to x locate for 学号=x if not eof() display else ?“该学号不存在” Endif Use 5. 从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。 input “输入一个自然数：” to x if x%2=0 ?” 偶数” else ?” 奇数” endif return 6. 计算函数Y的值。 Y= Y= 3ex+2-1 2X+5 x=0 X0 6.答案 input “输入X的值：” to x if x=0 y=3*x-1 else y=2*x+5 endif ?”y=”,y return 7. 计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。编写计算运费的程序。 clear input 请输入行李的重量： to n if n50 s=n*0.5 else s=n*0.5+(n-50)*0.4 endif ?应收费用为：,s return 8.编写根据当前日期显示当前季节的程序。 clear input 请输入日期： to d m=month(d) do case case m=3 and m=5 ?春季 case m=6 and m=8 ?夏季 case m=9 and m=11 ?秋季 otherwise ?冬季 endcase return 9．编写程序，输入一个数字（0～7），显示其对应星期几的中英文信息。 clear input 请输入一个数字： to n do case case n=1 M=星期一(Monday) case n=2 M=星期二（Tuesday） case n=3 M=星期三（Wednesday） case n=4 M=星期四（Thursday） case n=5 M=星期五（Friday） case n=6 M=星期六（Saturday） case n=0 M=星期日（Sunday） otherwise M=重新输入 endcase ?您输入的是：+M return 10. 设计个人纳税计算程序。“税法”规定，使用超额累进税率，以每月收入额减去1600元后的余额，为应纳税所得额，其税率见下表： 级数 全月应纳税所得额 税率（%） 1 不超过500元 5 2 500～2000元 10 3 2000～5000元 15 4 5000～20000元 20 5 20000～40000元 25 6 40000～60000元 30 7 60000～80000元 35 8 80000～100000元 40 9 100000元以上