VF常见20道编程题.pptxVIP

1、求解 AX^2+BX+C=0 的根、其中 A、B、C 三个参数由键盘输入。一元二次方程的求根公式是： X=-b±√b2-4ac/2a clear text 一元二次方程求解 ax^2+bx+c=0 endtext input 请输入 a 的值： to a input 请输入 b 的值： to b input 请输入 c 的值： to c m=b*b-4*a*c if m=0 x1=(-b+sqrt(m))/(2*a) x2=(-b-sqrt(m))/(2*a) ?x1 的值是：,x1 ?x2 的值是：,x2 else ?此方程无实根! endif 2、编写程序将 1-100 之间所有能被 7 和 3 整除的整数输出 clear for i=1 to 100 if i%3=0 and i%7=0 ??i endif endfor 3、编写程序计算 e，e 的近似值计算公式为： e=1+1/1!+1/2!+1/3!+...+1/n!，直到 1/n!0.000001 为止 clear e=1 n=1 do while .t. k=1 for i=1 to n k=k*i endfor m=1/k e=e+m if m0.000001 exit endif n=n+1 enddo ?e=1+1/1!+1/2!+1/3!+…+1/n!=,e ;4、编写程序，计算 1！+2！+3！+.......N!=？ clear input 请输入 n 的值： to n s=0 t=1 for i=1 to n t=t*i s=s+t endfor ?1！+2！+3！+.......N!=,s 5、从键盘输入十个数，将它们进行降序排列。 clear dime a(10) for i=1 to 10 input 请输入一个数： to a(i) endfor ?降序排列为： for i=1 to 9 for j=i+1 to 10 if a(i)a(j) k=a(i) a(i)=a(j) a(j)=k endif endfor ??alltrim(str(a(i)))+ endfor ??alltrim(str(a(i))) 6、（1）输出有*号组成的图形： * *** ***** ******* ***** *** * clear for i=-3 to 3 ?space(abs(i)) for j=1 to 7-abs(i)*2 ??* endfor endfor （2） * *** ;endfor ; qt=qt+1 ;5;6;7