计算机VF编程参考答案，DOC

海量资源，欢迎共阅

四、结构化程序设计 顺序结构程序设计 1、 从键盘输入长方体的长、宽、高，求长方体的表面积。 input“输入长方体的长：”tox input“输入长方体的长：”toy input“输入长方体的长：”toz s=2*x*y+2*x*z+2*y*z ?”长方体的表面积为：”,s 2、 从键盘输入圆的半径，计算圆的面积。 input“输入圆的半径：”tor s=3.14*r^2 ?”圆的面积为：”,s 3、 建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。 Createdatabasexs Addxsqk Browse Closeall 4、 在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。 Usexsqk Locatefor出生日期 ={^1983-10-8} 海量资源，欢迎共阅 Display Continue Display Use ?”x1=”,x1,”x2=”,x2 else ?”方程无实根！” x1=(-b+sqrt(m))/(2*a) x2=(-b-sqrt(m))/(2*a) 分支结构程序设计 1.从键盘输入一个数，若为正数则输出，非正数则结束。 endif 3. 从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。若能找到，则显示该记录，否则，显示信息“该学号不存在”。 usexsqk accept“输入待查学生学 input“输入一个数：”tox ifx>0 ?x endif return 2.求一元二次方程AX2+BX+C=0的实根。 input“输入系数A：”toa input“输入系数B：”tob input“输入系数C：”toc m=b^2-4*a*c ifm>=0 2

号：”tox locatefor学号=x ifnoteof() display else ?“该学号不存在” 海量资源，欢迎共阅 Endif Use 4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。 input“输入一个自然数：”tox ifx%2=0 ?”偶数” else ?”奇数” endif return 5.计算函数Y的值。 3ex+2-1 x>=0 5.Y= 答案 2X+5 X<0 input“输入X的值：”tox ifx>=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\请输入行李的重量：\ifn<50 s=n*0.5 else s=n*0.5+(n-50)*0.4 endif ?\应收费用为：\海量资源，欢迎共阅 return 7．编写根据当前日期显示当前季节的程序。 clear input\请输入日期：\m=month(d) docase casem>=3andm<=5 ?\春季\一次购物： （1） 1000元至1999元之间者，按九五折优惠。 （2） 2000元至2999元之间者，按九折优惠。 （3） 3000元至4999元之间者，按八五折优惠。 （4） 5000元以上者，按八折优惠。 编写程序，输入购物款数，计算并输出优惠价。 clear input\输入你的购物金额：\docase 9 4

cased>=1000andd<=199casem>=6andm<=8 ?\夏季\casem>=9andm<=11 ?\秋季\otherwise ?\冬季\endcase return 8．某百货公司为促销，采用购物打折扣的优惠办法，每位顾客