VFP程序设计.doc

文档介绍：页脚下载后可删除，如有侵权请告知删除！
第六章 程序设计
页脚下载后可删除，如有侵权请告知删除！
程序设计1
*----------------------------------
从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。计算并输出三角形的面积S；若不满足以上条件，显示输出"不能构成三角形"。其中面积公式请参看(图1)。将面积值存入变量AREA中。请按照题目要求，在下面编写程序代码。
*----------------------------------
INPUT TO A
INPUT TO B
INPUT TO C
? "三角形面积为",FUN(A,B,C)
RETURN
FUNCTION FUN(a,b,c)
AREA=-1
**********Program**********
********** End **********
RETURN AREA
程序设计2
*----------------------------------
从键盘任意输入的三个数按从大到小排序。排序后存入变量A，B，C中请按照题目要求，在下面编写程序代码。
*----------------------------------
A=-1
B=-1
C=-1
input "x=" to x
input "y=" to y
input "z=" to z
FUN(X,Y,Z)
RETURN
FUNCTION FUN(X,Y,Z)
**********Program**********
********** End **********
RETURN
DO YZJ10 WITH OUT
程序设计3
*----------------------------------
从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出"不能作为圆的半径"。(PI=)将结果存入变量OUT中，请按照题目要求，在下面编写程序代码。
*----------------------------------
INPUT TO A
?FUN(A)
FUNCTION FUN(R)
OUT=-1
**********Program**********
********** End **********
RETURN OUT
程序设计4
*----------------------------------
从键盘输入3个数，然后找出其中最大值和最小值。最大值存入ＭＡ中，最小值存入ＭＩ中。本题使用IF...EndIf 语句完成。
*----------------------------------
INPUT "请输入一个数：" TO A
INPUT "请输入一个数：" TO B
INPUT "请输入一个数：" TO C
Ma=-1
Mi=-1
FUN(A,B,C)
?MA,MI
FUNC FUN(A,B,C)
页脚下载后可删除，如有侵权请告知删除！
**********Program**********
********** End **********
RETURN
程序设计5
*----------------------------------
计算下列分段函数：如下图当输入任意X值时，显示输出Y值，要求用Do Case语句实现。
*----------------------------------
INPUT TO X
?FUN(X)
RETURN
FUNCTION FUN(X)
Y=-1
**********Program**********
********** End **********
RETURN Y
程序设计6
*----------------------------------
判断一个三位数是否为"水仙花数"，并输出判断结果，是为1，否为0。所谓"水仙花数"是指一个3位数，其各位数字立方和等于该数本身。将结果存入变量OUT中。
*----------------------------------
OUT=-1
n=153
**********Program**********
********** End **********
程序设计7
*----------------------------------
编程求对某一正数的值保留2位小数，并对第三位进行四舍