VFP程序设计3-新.doc

顺序结构程序设计 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 3.建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。 Create database xs Add xsqk Browse Close all 4.在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。 Use xsqk Locate for 出生日期?={^1983-10-8} Display Continue Display Use 分支结构程序设计 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. 从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。 use xsqk accept “输入待查学生学号：” to x locate for 学号=x if not eof() display else ?“该学号不存在” Endif Use 4. 从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。 input “输入一个自然数：” to x if x%2=0 ?” 偶数” else ?” 奇数” endif return 5. 计算函数Y的值。 5.答案 input “输入X的值：” to x if x=0 f=3*exp(x+2)-1 else f=2*x+5 endif ?”f=”,f return 6. 计算运费。车站从甲地到乙地托运行李，收费规定：若行李重量不超过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 7．编写根据当前日期显示当前季节的程序。 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 8．某百货公司为促销，采用购物打折扣的优惠办法，每位顾客一次购物： (1)1000元至1999元之间者，按九五折优惠。 (2)2000元至2999元之间者，按九折优惠。 (3)3000元至4999元之间者，按八五折优惠。 (4)5000元以上者，按八折优惠。 编写程序，输入购物款数，计算并输出优惠价。 clear input 输入你的购物金额： to d do case case d=1000 and d=1999 m=d*0.95 case d=2000 and d=2999 m=d*0.9 case d=3000 and d=4999 m=d*0.85 case d=5000 m=d*0.8 endcase ?打折后的金额是：,m return 9．编写程序，输入一个数字（0～7），显示其对应星期几的中英文信息。 clear input 请输入一个数字： to n do case case n=1 M=星期一(Monday) case n=2 M=星期二（Tuesday） case n=3 M=星期三（Wednes