VFP程序习题

题目1：从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。

计算并输出三角形的面积S；若不满足以上条件，显示输出"不能构成三角形"。

* 其中面积公式请参看(图1)。

Area=根号下s*(s-a)*(s-b)*(s-c)S=(a+b+c)/2* 将面积值存入变量AREA中。

* 请按照题目要求，在下面编写程序代码。

SET TALK OFFSET LOGERRORS ONINPUT TO AINPUT TO BINPUT TO C? "三角形面积为",FUN(A,B,C)YZJ()SET TALK ONRETURNFUNCTION FUN(a,b,c)AREA=-1**********Program**********if a+b>c and a+c>b and b+c>a and a>0 and b>0 and c>0 s=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c))? "三角形面积为",selse? "不能构成三角形"endif********** End **********RETURN AREAFUNCTION YZJ()USE INLOCAT FOR TIHAO=1IF FOUND()A=N1B=N2C=N3O=FUN(A,B,C)DO YZJ1 WITH OELSE?"试题输入文件已损坏，请重新配置考试环境"USERETURN*题目2：已知变量x为正整数，编程求变量x的位数。

* (请用do case...case...endcase语句完成。

)* 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

SET TALK ONSET LOGERRORS ONx=4764OUT=-1**********Program**********do casecase x>9999place=5case x>999place=4case x>99place=3case x>9place=2othe place=1OUT=place? OUT********** End **********DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*题目3：编一程序打印一个数列，前两个数是0、1第三个数是前两个数之和，以后的每个数都是其前两个数之和。

编程* 求出此数列第20个数,将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

SET LOGERRORS ONOUT=-1**********Program**********a=0b=1i=3do while i<=20c=a+ba=bb=ci=i+1enddoOUT=c?OUT********** End **********DO YZJ28 WITH OUTRETURN*题目4：编程求P=1-1/(2×2)+1/(3×3)-1/(4×4)+1/(5×5)。

* 将结果存入变量OUT中，要求用Do While语句实现。

SET TALK ONSET LOGERRORS ONOUT=-1**********Program**********P=0M=1DO WHILE M<=5P=P+((-1)^(M+1))/(M*M)M=M+1ENDDO?"P=",POUT=P********** End **********DO YZJ WITH OUTSET TALK OFF*题目5：编程计算并输出给定整数n的所有因子之积* （不包括1与自身）。

* 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

SET TALK ONSET LOGERRORS ON? "输入一个整数：n=855"n=855OUT=-1**********Program**********store 1 to sfor i=2 to n-1if n%i=0s=s*iendifendfor? "s=",sout=s********** End **********DO YZJ WITH OUTSET TALK OFF*题目6：编程求一分数序列2/1，3/2，5/3，8/5，13/8, * 21/13…的前20项之和。

* 将结果存入变量OUT中。

SET TALK ONSET LOGERRORS ONOUT=-1**********Program**********f1=1f2=1s=0for i=1 to 20f3=f1+f2f1=f2f2=f3s=s+f2/f1endforout=s? Out********** End *******DO YZJ WITH OUTSET TALK OFF*题目7：计算并在屏幕上显示乘法表。

显示格式如下：* 1×1= 1* 1×2= 2 2×2= 4* 1×3= 3 2×3= 6 3×3=9* ......* 1×9= 9 2×9=18 ......9×9=81* 将各部分的结果相加（1+2+4+3+6+9+.....+81）存入变量Z 中SET TALK OFFSET LOGERRORS ONCLEARZ=0**********Program**********for i=1 to 9for j=1 to i?? allt(str(j))+"×"+allt(str(i))+"="+allt(str(i*j))+" "Z=Z+i*jendfor?endfo********** End **********DO YZJ23 WITH ZSET TALK ONRETURN* 请按照题目要求，在下面编写程序代码。

*题目8：利用循环程序输出图形：* ******** *** **** ** *** * ** ******** 并将输出第3行存入变量S中* 请按照题目要求，在下面编写程序代码。

没存变量SET TALK OFFSET LOGERRORS ONS=""**********Program**********FOR N=1 TO 5?IF N=1 OR N=5FOR M=1 TO 7?? "*"ENDFORELSEFOR M=1 TO 5-N?? "*"ENDFOR?? SPACE(2*N-3)FOR M=1 TO 5-N?? "*"ENDFORENDIFENDFOR********** End **********DO YZJ14 WITH SSET TALK ON*题目9：求2到20之间所有的素数。

（素数是只能被1和本身整除的数）* 将所有素数之和存入变量Y中* 请按照题目要求，在下面编写程序代码。

(已修改)CLEARSET TALK OFFSET LOGERRORS ONY=-1**********Program**********Y=0for i=2 to 20for j=2 to iif int(i/j)=i/jexitendifendforif j=i?i,"是素数"Y=Y+iendifendfor?Y********** End **********DO YZJ7 WITH YSET TALK ONRETURN*题目10:找出一个大于给定整数且紧随这个整数的素数。

* 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

SET TALK ONSET LOGERRORS ON? "给定的整数为68"OUT=-1**********Program**********i=69do while i>=68for k=2 to i-1if i%k=0exitendifendforif i=kexitendifi=i+1enddoout=i********** End **********DO YZJ WITH OUTSET LOGERRORS OFF SET TALK OFF。