VFP程序習題--精選文檔

1、題目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,

2、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>0s=(a+b+c)/2 area=sqrt(s*(s-a)*(s-b)*(s-c)? "三角形面積為",s else ? "不能構成三角形" endif * End *RETURN AREAFUNCTION YZJ()USE INLOCAT FOR TIHAO=1IF FOUND() A=N1 B=N2 C=N3 O=FUN(A,B,C) DO YZJ1 WITH OELSE

3、?"試題輸入文件已損壞，請重新配置考試環(huán)境"ENDIFUSERETURN*題目2：已知變量x為正整數，編程求變量x的位數。* (請用do case.case.endcase語句完成。)* 將結果存入變量OUT中。* 請按照題目要求，在下面編寫程序代碼。 SET TALK ON SET LOGERRORS ON x=4764 OUT=-1 *Program* do case case x>9999 place=5 case x>999 place=4 case x>99 place=3 case x>9place=2 othe place=1 endc

4、ase OUT=place ? OUT * End * DO YZJ WITH OUT SET LOGERRORS OFF SET 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

5、=1-1/(2×2)+1/(3×3)-1/(4×4)+1/(5×5)。* 將結果存入變量OUT中，要求用Do While語句實現。SET TALK ON SET LOGERRORS ON OUT=-1 *Program* P=0 M=1 DO WHILE M<=5 P=P+(-1)(M+1)/(M*M) M=M+1 ENDDO ?"P=",P OUT=P * End * DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF*題目5：編程計算并輸出給定整數n的所有因子之積* （不包括1與自身

6、）。* 將結果存入變量OUT中。* 請按照題目要求，在下面編寫程序代碼。 SET TALK ON SET LOGERRORS ON ? "輸入一個整數：n=855" n=855 OUT=-1 *Program* store 1 to s for i=2 to n-1 if n%i=0 s=s*i endif endfor ? "s=",s out=s * End *DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF*題目6：編程求一分數序列2/1，3/2，5/3，8/5，13/8,* 21/13的前20項之和。*

7、 將結果存入變量OUT中。SET TALK ONSET LOGERRORS ONOUT=-1*Program* f1=1 f2=1s=0 for i=1 to 20 f3=f1+f2 f1=f2 f2=f3 s=s+f2/f1 endfor out=s ? Out * End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*題目7：計算并在屏幕上顯示乘法表。顯示格式如下：* 1×1= 1* 1×2= 2 2×2= 4* 1×3= 3 2×3= 6 3×3=9* .* 1×9= 9

8、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 9 for j=1 to i ? allt(str(j)+"×"+allt(str(i)+"="+allt(str(i*j)+" " Z=Z+i*j endfor ?endfo* End *DO YZJ23 WITH ZSET TALK ONRETURN* 請按照題目要求，在下面編寫程序代碼。 *題

9、目8：利用循環(huán)程序輸出圖形： * * * * * * * * * * 并將輸出第3行存入變量S中* 請按照題目要求，在下面編寫程序代碼。 沒存變量SET TALK OFFSET LOGERRORS ONS=""*Program*FOR N=1 TO 5   ?  IF N=1 OR N=5   FOR M=1 TO 7    ? "*" 

10、  ENDFOR  ELSE   FOR M=1 TO 5-N    ? "*"   ENDFOR   ? SPACE(2*N-3)   FOR M=1 TO 5-N    ? "*"   ENDFO

11、R  ENDIF  ENDFOR  * End *DO YZJ14 WITH SSET TALK ON*題目9：求2到20之間所有的素數。（素數是只能被1和本身整除的數）* 將所有素數之和存入變量Y中* 請按照題目要求，在下面編寫程序代碼。(已修改) CLEARSET TALK OFFSET LOGERRORS ONY=-1*Program*Y=0for i=2 to 20    for j=2 to i  

12、0;  if int(i/j)=i/j        exit     endif   endfor if j=i   ?i,"是素數" Y=Y+i endif endfor?Y* End *DO YZJ7 WITH YSET TALK ONRETURN*題目10:找出一個大于給定整數且緊隨這個整數的素數。* 將結果存入變量OUT中。* 請按照題目要求，在下面編寫程序代碼。SET TALK ON SET LOGERRORS ON ?