《VFP程序设计》由会员分享，可在线阅读，更多相关《VFP程序设计（19页珍藏版）》请在金锄头文库上搜索。
1、第六章 程序设计程序设计1*-从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。计算并输出三角形的面积S；若不满足以上条件，显示输出不能构成三角形。其中面积公式请参看(图1)。将面积值存入变量AREA中。请按照题目要求，在下面编写程序代码。 *-INPUT TO AINPUT TO BINPUT TO C? 三角形面积为,FUN(A,B,C)RETURNFUNCTION FUN(a,b,c)AREA=-1*Program* End *RETURN AREA程序设计2*-从键盘任意输入的三个数按从大到小排序。排序后存入变量A，B，C中请按照题目要求，在下面编写程序代码。 *-A=
2、-1B=-1C=-1input x= to xinput y= to yinput z= to zFUN(X,Y,Z)RETURNFUNCTION FUN(X,Y,Z)*Program* End *RETURNDO YZJ10 WITH OUT程序设计3*-从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出不能作为圆的半径。(PI=3.14)将结果存入变量OUT中，请按照题目要求，在下面编写程序代码。 *-INPUT TO A?FUN(A)FUNCTION FUN(R)OUT=-1*Program* End *RETURN OUT程序设计4*
3、-从键盘输入3个数，然后找出其中最大值和最小值。最大值存入中，最小值存入中。本题使用IF.EndIf 语句完成。*-INPUT 请输入一个数： TO AINPUT 请输入一个数： TO BINPUT 请输入一个数： TO CMa=-1Mi=-1FUN(A,B,C)?MA,MIFUNC FUN(A,B,C)*Program* End *RETURN程序设计5*-计算下列分段函数：如下图当输入任意X值时，显示输出Y值，要求用Do Case语句实现。*-INPUT TO X?FUN(X)RETURNFUNCTION FUN(X)Y=-1*Program* End *RETURN Y程序设计6*-判断
4、一个三位数是否为水仙花数，并输出判断结果，是为1，否为0。所谓水仙花数是指一个3位数，其各位数字立方和等于该数本身。将结果存入变量OUT中。*-OUT=-1n=153*Program* End *程序设计7*-编程求对某一正数的值保留2位小数，并对第三位进行四舍五入。将结果存入变量OUT中。*-h=234.5367OUT=-1*Program* End *程序设计8*-编程求对某一正数的值保留3位小数，并对第4位进行四舍五入。将结果存入变量OUT中。*-h=234.5367OUT=-1*Program* End *11程序设计9*-输出10到50之间所有能被7整除的数。(用do while e
5、nddo语句实现)并将这些数的和存入所给变量OUT中。请按照题目要求，在下面编写程序代码。 *-OUT=-1*Program* End *DO YZJ4 WITH OUT程序设计10*-求1-200间的所有偶数的和，结果输入变量OUT中，要求用For循环语句实现。*-OUT=-1*Program* End *程序设计11*-编程求P=1+1/(2x2)+1/(3x3)+ 1/(10x10)。将结果存入变量OUT中，要求用Do While语句实现。*-OUT=-1*Program*P=0M=1DO WHILE M=10P=P+1/(M*M)M=M+1ENDDO? P=,POUT=P* End *
6、程序设计12*-编程计算如下表达式的值：y=1-1/31/5-1/71/9，要求使用for.endfor语句来完成。将结果存入变量OUT中。OUT=-1*-*Program*s=1for i=1 to 4s=s+(-1)i/(2*i+1)endforout=s? out* End *程序设计13*-编程计算如下表达式的值：y=1-1/2+1/4-1/6+1/8-1/10，要求使用for.endfor语句来完成。将结果存入变量OUT中。*-OUT=-1*Program*s=1for i=1 to 5s=s+(-1)i/(2*i)endforout=s? out* End *程序设计14*-编程求
7、P=1-1/(22)+1/(33)-1/(44)+1/(55)。将结果存入变量OUT中，要求用Do While语句实现。*-OUT=-1*Program*P=0M=1I=0DO WHILE M=5P=P+(-1)(M+1)/(M*M)M=M+1ENDDO? P=,POUT=P* End *程序设计15*-从键盘输入一个整数，输出所有能整除该数，并且本身也能被3整除的数的和。（例如：输入6，则输出3，6）结果存于变量x中，要求用For循环语句实现。*-INPUT TO N?FUN(N)FUNCTI FUN(A)X=0*Program*FOR N=1 TO A IF A%N=0.AND.N%3=0
8、 ? N x=x+N ENDIFENDFOR* End *RETURN X程序设计16*-编程求出1*1+2*2+.+n*n=1000中满足条件的最大的n，将结果存入变量OUT中。要求用Do While语句实现。 *-OUT=-1*Program*s=0n=1do while s=1000n=n+1s=s+n*nenddoout=n-1? out* End *程序设计17*-用子程序求出115 之间的能被3整除的整数的平方和。将结果存入变量OUT中，要求用For循环实现。请按照题目要求，在下面编写程序代码。 *-OUT=-1*Program*N=1S=0FOR N=1 TO 15 IF N%3=0 S=S+N*N ENDIF ENDFOR ? SSET TALK ONOut=S* End *DO YZJ10 WITH OUT程序设计18*-编程求出并显示 3!+4!+5! 的值，将结果存入变量OUT中。要求用For.EndFor编程。请按照题目要求，在下面编写程序代码。 *-
