VFP编程题类型总结

Y=-(X*X) ENDIF ENDIF ?Y

2.现有一元2次方程 AX^2+BX+C=0 其中A B C 是整数且A不等于0 若存在实根，则输出“在实数范围内有解” 若不存在实根 则输出“在实数范围内无解”/求解 INPUT TO A INPUT TO B INPUT TO C D=B*B-4*A*C IF D>=0

?\在实数范围内有解\ELSE

?\在实数范围内无解\ENDIF /

INPUT TO A INPUT TO B INPUT TO C D=B*B-4*A*C IF D>0

X1=(-B+SQRT(D))/(2*A) X2=(-B-SQRT(D))/(2*A) ?X1 ?X2 ELSE IF D>0 X=-B/(2*A) ?\ ELSE ?\无解\ENDIF ENDIF

if?X?3.输入一个X的值，求Y的值。Y= ?2X?1if?3X?11if?INPUT TO X DO CASE CASE X<1 Y=X CASE X<10 Y=2*X-1 CASE X>=10 Y=3*X-11 ENDCASE ?Y

X?11??X?10 X??10③数组类

1. 输入10个数，输出其中小于平均值S的数。 DIME A(10) S=0

FOR I=1 TO 10 INPUT TO A(I) S=S+A(I) ENDFOR S=S/10

FOR I=1 TO 10 IF A(I)

2.输入10个数,求其中最大数和最小数。 DIME A(10) FOR I=1 TO 10

INPUT “ ENTER A NUMBER:”TO A(I) ENDFOR BIG=A(1) SMALL=A(1) FOR I=2 TO 10

IF A(I)>BIG

BIG=A(I) ENDIF

IF A(I)

SMALL=A(I) ENDIF ENDFOR

?“THE SMALLEST NUMBER IS”,SMALL ?“THE BIGGEST NUMBER IS”,BIG

3.输入10个数,求其中最大数和最小数，并确定它们的位置。 DIME A(10) FOR I=1 TO 10

INPUT “ ENTER A NUMBER:”TO A(I) ENDFOR BIG=A(1) BP=1

SMALL=A(1) SP=1

FOR I=2 TO 10

IF A(I)>BIG

BIG=A(I) BP=I ENDIF

IF A(I)

SMALL=A(I) SP=I ENDIF ENDFOR

?“THE PLACE OF THE SMALLEST NUMBER IS”,SP ?“THE SMALLEST NUMBER IS”,SMALL

?“THE PLACE OF THE BIGGEST NUMBER IS”,BP ?“THE BIGGEST NUMBER IS”,BIG

4.从键盘输入10 个整数，现从中查找某个数，若查到，输出“YES”，否则输出“NO”。

DIMENSION A(10) FOR I=1 TO 10

INPUT \输入10个整数\ENDFOR

INPUT \输入待查找的整数\FOR I=1 TO 10 IF X=A(I) ? \ EXIT ENDIF

ENDFOR IF I>10 ? \ENDIF

5.已有按从小到大的顺序排列的10 个数，现输入一个数，要求插入到数列中。插入后数列仍然按从小到大顺序排列。 DIMENSION A(11) FOR I=1 TO 10

INPUT “递增输入10个整数” TO A(I) ENDFOR

INPUT “任意输入一个整数” TO X FOR I=10 TO 1 STEP -1 IF X

A(I+1)=A(I) A(I)=X ELSE

A(I+1)=A(I) ENDIF ELSE

A(I+1)=X EXIT ENDIF ENDFOR

FOR I=1 TO 11 ??A(I) ENDFOR ?

6. 数组A中已存放了10个由小到大排列的数。现从键盘输入一个数X，要求删除数组中与其相同的数，并将后续的数依次前移，最后输出剩余的数。（7分） 考虑到有重复数的程序如下： DIME A(10) FOR I=1 TO 10

INPUT “按递增输入10个数” TO A(I) ENDFOR

INPUT “输入待删除的数” TO X I=1 J=1 N=0

DO WHILE I<=10 IF A(I)