vfp程序设计第六章程序设计.doc

1．有一函数：（分支嵌套） x （x1) y= 2x-1 （1≤x＜10) 3x-11 （x≥10） 编写程序，输入x，输出y的值。 clear input Enter x please! to x if x1 y=x else if x10 y=2*x-1 else y=3*x-11 endif endif ? x=,x,y=,y 2．编写程序，从键盘输入一个年份，判断它是否闰年。 clear input Enter year number please! to y if y%4=0 and y%1000 or y%400=0 ? y,is a leap year! else ? y,is not leap year. endif 3．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。（多分支） clear input “请输入一百分制成绩” to cj do case case cj=90 ?” A” case cj=80 ?” B” case cj=70 ?” C” case cj=60 ?” D” otherwise ?” E” endcase 编写程序，判断输入三个数a,b,c大小。(分支嵌套) Input “输入第一个数为：”to a Input “输入第一个数为：”to b Input “输入第一个数为：”to c If ab If ac ?”最大数为” a Else ?”最大数为” c Endif Else If bc ?“最大数为”b Else ?”最大数为”c Endif Endif 5．编写程序，从键盘输入5个数，找出其中的最大数和最小数。 INPUT 请输入第1个数： TO MAX MIN=MAX FOR I=2 TO 5 INPUT 请输入第+STR(I,2)+个数： TO X IF XMAX MAX=X ELSE MIN=X ENDIF ENDFOR ? MAX=,MAX ? MIN=,MIN 7．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13+53+33。 input to zrs gw=zrs%10 sw=int(zrs/10)%10 bw=int(zrs/100) if bw**3+sw**3+gw**3=zrs ?”yes!” else ?”no.” endif dfu 8．编写程序，输入一个自然数，判断该数是否为素数。 clear input to zrs sf=.t. for i=2 to sqrt(zrs) if zrs%i=0 sf=.f. exit endif 补充（循环嵌套） 输出 图形： ***** ***** ***** ***** ***** For i=1 to 5(多少行) ? For j=i to 5（每行多少个） ??”*” Endfor endfor endfor if sf=.t. ?”yes” else ?”no” endif 9．编写程序，输出如图所示的图形。 clear for i=1 to 5 ?space(6-i)+repl(‘*’,2*i-1) endf for i=1 to 4 ?space(i+1)+repl(‘+’,9-2*i) endf 10.阶乘 （1）求单个数阶乘（以5为例） Clear J=1 I=1 Do while i=5 J=j*i I=i+1 Enddo ?j Return （2）求阶乘和（求1到5阶乘的和） Clear S=0 I=1 J=1 Do while i=5 J=j*i S=s+j I=i+1 Enddo ?s Return 11.输出下面图形： a bbb ccccc ddddddd ccccc bbb a clear for i=1 to 4 ??space(4-i) for j=1 to 2*i-1 ?? chr(96+i) chr()函数 ASCII码转