VFP程序设计.doc

《VFP程序设计.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、.第六章程序设计..程序设计1*----------------------------------从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。计算并输出三角形的面积S；若不满足以上条件，显示输出"不能构成三角形"。其中面积公式请参看(图1)。将面积值存入变量AREA中。请按照题目要求，在下面编写程序代码。*----------------------------------INPUTTOAINPUTTOBINPUTTOC?"三角形面积为",FUN(A,B,C)RETURNFUNCTIONFUN(a,b,c)AREA=-1*******

2、***Program********************End**********RETURNAREA程序设计2*----------------------------------从键盘任意输入的三个数按从大到小排序。排序后存入变量A，B，C中请按照题目要求，在下面编写程序代码。*----------------------------------A=-1B=-1C=-1input"x="toxinput"y="toyinput"z="tozFUN(X,Y,Z)RETURNFUNCTIONFUN(X,Y,Z)**********Program*****

3、***************End**********RETURNDOYZJ10WITHOUT程序设计3*----------------------------------从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出"不能作为圆的半径"。(PI=3.14)将结果存入变量OUT中，请按照题目要求，在下面编写程序代码。*----------------------------------INPUTTOA?FUN(A)FUNCTIONFUN(R)OUT=-1**********Program******

4、**************End**********RETURNOUT程序设计4*----------------------------------从键盘输入3个数，然后找出其中最大值和最小值。最大值存入ＭＡ中，最小值存入ＭＩ中。本题使用IF...EndIf语句完成。*----------------------------------INPUT"请输入一个数："TOAINPUT"请输入一个数："TOBINPUT"请输入一个数："TOCMa=-1Mi=-1FUN(A,B,C)?MA,MIFUNCFUN(A,B,C)..**********Program*

5、*******************End**********RETURN程序设计5*----------------------------------计算下列分段函数：如下图当输入任意X值时，显示输出Y值，要求用DoCase语句实现。*----------------------------------INPUTTOX?FUN(X)RETURNFUNCTIONFUN(X)Y=-1**********Program********************End**********RETURNY程序设计6*-------------------------

6、---------判断一个三位数是否为"水仙花数"，并输出判断结果，是为1，否为0。所谓"水仙花数"是指一个3位数，其各位数字立方和等于该数本身。将结果存入变量OUT中。*----------------------------------OUT=-1n=153**********Program********************End**********程序设计7*----------------------------------编程求对某一正数的值保留2位小数，并对第三位进行四舍五入。将结果存入变量OUT中。*-------------------

7、---------------h=234.5367OUT=-1**********Program********************End**********程序设计8*----------------------------------编程求对某一正数的值保留3位小数，并对第4位进行四舍五入。将结果存入变量OUT中。*----------------------------------h=234.5367OUT=-1**********Program********************End**********11程序设计9*-----------

8、-----------------------输出1