VFP结构化程序设计实验11-15

《VFP结构化程序设计实验11-15》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验十一结构化程序设计(一)(1)(文件名cxl_l.prg)从键盘输入a、b、c的值，判断它们能否构成三角形的三条边。如果能构成一个三角形，则计算三角形的而积，否则给出出错信息。求而积的公式如下:AREA二SQRT(L*(L-A)*(L-B)*(L-C))(其中L二(A+B+C)/2)算法分析：输入三角形的三条边，计算三角形的面积①初始化各虽：使用输入语句输入三边分别存入a、b、c三边中，s用于存放周长的一半,area用于存放计算出的而积值。②判断三边能否够成三角形：如果同吋满足a+b>c、b+oa和a+ob三个条件，则转到③;否则

2、转到④。③计算三角形的面积并输出:s=(a+b+c)/2,arca=o④输出提示信息：三边不符合条件，不能计算三角形的而积。SETTALKOFFCLEARINPUT〃请输入A:〃TOAINPUT〃请输入B:〃TOBINPUT〃请输入C:〃TOCIFA+B>CAXDB+OAAXDA+C>BL=(A+B+C)/2S二SQRT(L*(L-A)*(L-B)*(L-C))?〃三角形的面积S=〃,SELSEMESSAGEBOX(/z三边不符合条件，不能计算三角形的而积!〃)ENDIFSETTALKONRETURN(2)(文件名cxl_2.prg)

3、火车货运价格为：40kg以下每kg运价为0.65元，40kg以上超过40kg的部分按每公斤0.85元计算，今输入货物重量(kg),求应付运费。方法一：SETTALKOFFCLEARINPUT〃请输入货物重虽:〃TOIFA>=40S=(A-40)*0.85+40*0.65ELSES=A*0.65ENDIF?〃运费S=〃,SSETTALKONRETURN方法二SETTALKOFFCLEARINPUT〃请输入货物TODOCASECASEA>=40S二(A-40)*0.85+40*0.65?〃运费S=〃,SCASEA>=0.AND.A<40S

4、二A*0.65?〃运费S=",Sotherwise厂货物重量不能为负ENDCASESETTALKONRETURN(3)(文件名cxl_3.prg)输入x,SETTALKOFFCLEAR5兀2—3兀32x(x>2)-x3(-102Y二（5*X"2-3*X"3）/（2*X）CASEX>=-10ANDX<=2Y二-X'3OTHERWISEY二2*X"2-XENDCASE?〃F（〃,X,〃）=〃,YSETTALKONRETURN（4）（文件名cx

5、l_4.prg）设计一个程序，从键盘输入任意三个数并分别保存在xl、x2、x3三个变量中，按从大到小的顺序重排xl、x2、x3,使xl最大，x3最小。SettalkoffC1carINPUT〃请输入第一个数:〃TOXIINPUT〃请输入第二个数：〃TOX2INPUT〃请输入第三个数：〃TOX3Ifxl

6、从键盘输入学生的分数，输出成绩的等级。（输入数据大于100或小于零，则提示输入冇误；分数0'60为不合格，60〜79.5为合格，80~100为优良。）SETTALKOFFCLEARINPUT〃请输入学生的分数:〃TOADOCASECASEA>=80.AND.A<=100?〃优秀〃CASEA>=60.AND.A<80?〃合格〃CASEA>=0.AND.A<60?〃不合格〃OTHERWISEMESSAGEBOXC成绩应在0-100Z间！〃）ENDCASESETTALKONRETURN实验十二结构化程序设计（二）（1）（文件名：cx2_l.

7、prg）从键盘任意输入一个3位整数，若输入的数据不是一个3位整数则给岀捉示信息，编程实现3位整数的逆序输出。方法一SEI'TALKOFFCLEARINPUT〃请输入一个三位数:〃TOAIFA>100ANDA<1000Al=INT(A/100)A2=INT(MOD(A,100)/10)A3=M0D(A,10)?Al+10*A2+100*A3ELSEMESSAGEBOX(〃输入的不是三位数，请重新输入!〃)ENDIFSETTALKONRETURN方法二若要求输出的数必须是三位整数,则程序如下：SETTALKOFFCLEARINPUT〃请输

8、入一个三位数:〃TOAIFA<100ORA>=1000ORMOD(A,100)=0MESSAGEBOX(〃输入的不是三位数或重排后不是三位数，请重新输入!〃)ELSEAl二【NT(A/100)A2=INT(M0D(A,1