vfp练习册实验11-15解答.docVIP

实验十一 结构化程序设计(一) （1）(文件名cx1_1.prg)从键盘输入a、b、c的值，判断它们能否构成三角形的三条边。如果能构成一个三角形，则计算三角形的面积，否则给出出错信息。求面积的公式如下： AREA=SQRT(L*(L-A)*(L-B)*(L-C))（其中 L=(A+B+C)/2） 算法分析：输入三角形的三条边，计算三角形的面积 ①初始化各量：使用输入语句输入三边分别存入a、b、c三边中，s用于存放周长的一半，area用于存放计算出的面积值。 ②判断三边能否够成三角形：如果同时满足a+bc 、b+ca和 a+cb三个条件,则转到③；否则转到④。 ③计算三角形的面积并输出：s=(a+b+c)/2,area=。 ④输出提示信息：三边不符合条件，不能计算三角形的面积。 Set talk off Clear Input 请输入a: to a Input 请输入b: to b Input 请输入c: to c if a+bc and b+ca and a+cb L=(a+b+c)/2 s=sqrt(L*(l-a)*(l-b)*(l-c)) ?三角形的面积S=,s else messagebox(三边不符合条件，不能计算三角形的面积!) endif Set talk on Return （2）(文件名cx1_2.prg)火车货运价格为：40kg以下每kg运价为0.65元，40kg以上超过40kg的部分按每公斤0.85元计算，今输入货物重量(kg)，求应付运费。 方法一： Set talk off Clear Input 请输入货物重量: to a if a=40 s=(a-40)*0.85+40*0.65 else s=a*0.65 endif ?运费S=,s Set talk on Return 方法二： Set talk off Clear Input 请输入货物重量: to a do case case a=40 s=(a-40)*0.85+40*0.65 ?运费S=,s case a=0 .and. a40 s=a*0.65 ?运费S=,s otherwise ?”货物重量不能为负!” endcase Set talk on Return （3）(文件名cx1_3.prg)输入x，求分段函数 的值。 SET TALK OFF CLEAR INPUT 请输入X的值: TO X DO CASE CASE X2 y=(5*X^2-3*X^3)/(2*X) CASE X=-10 AND X=2 y=-X^3 OTHERWISE y=2*X^2-X ENDCASE ?f(,X,)=,y SET TALK ON RETURN （4）(文件名cx1_4.prg)设计一个程序，从键盘输入任意三个数并分别保存在x1、x2、x3三个变量中，按从大到小的顺序重排x1、x2、x3，使x1最大，x3最小。 Set talk off Clear INPUT 请输入第一个数: TO X1 INPUT 请输入第二个数: TO X2 INPUT 请输入第三个数: TO X3 If x1x2 T=x1 X1=x2 X2=t Endif If x1x3 T=x1 X1=x3 X3=t Endif If x2x3 T=x2 X2=x3 X3=t Endif ?x1,x2,x3 SET TALK ON RETURN (5) (文件名cx1_5.prg) 设计一个程序，从键盘输入学生的分数，输出成绩的等级。（输入数据大于100或小于零，则提示输入有误；分数0~60为不合格，60~79.5为合格，80~100为优良。） SET TALK OFF CLEAR INPUT 请输入学生的分数: TO A DO CASE CASE A=80 .and. a=100 ? 优秀 CASE A=60 .and. a80 ? 合格 CASE A=0 .and. A60 ? 不合格 otherwise messagebox(成绩应在0-100之间!) ENDCASE SET TALK ON RETURN 实验十二 结构化程序设计(二) （1）(文件名：cx2_1. prg)从键盘任意输入一个3位整数，若输入的数据不是一个3位整数则给出提示信息，编程实现3位整数的逆序输出。 方法一 SET TALK OFF CLEAR INPUT 请输入一个三位数: TO A If a100 and a1000 A1=int(a/100) A2=int(mod(a,100)/10) A3=mod(a,10) ?a1+10*a2+100*a3 Else