《2022年VF常见道编程题 .pdf》由会员分享，可在线阅读，更多相关《2022年VF常见道编程题 .pdf（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1、求解 AX2+BX+C=0 的根、其中A、B、 C三个参数由键盘输入。一元二次方程的求根公式是：X=-bb2-4ac/2aclear text 一元二次方程求解 ax2+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 整除的整
2、数输出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名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - -
3、 - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - 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(
4、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） * * 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - -
5、 - - - * * * clear for i=1 to 5 ?space(5-i) for j=1 to 2*i-1 ?* endfor endfor 7、编写一个程序产生一个有20 项的 Fibonacci数列并输出。注：Fibonacci数列的前两项为1，从第三项开始每一项是其前两项只和。clear a=1 b=1 ?a,b for i=1 to 18 c=a+b a=b b=c ?c endfor 8、九九乘法表clear for i=1 to 9 for j=1 to i ?alltrim(str(i)+*+alltrim(str(j)+=+alltrim(str(i*j)+spa
6、ce(3) endfor ? Endfor 9、显示 1100 之间的所有素数，并求它们的和。clear s=0 ?1 到 100 之间的素数为： for i=2 to 100 x=0 for j=2 to i-1 if i/j=int(i/j) x=1 endif endfor if x=0 ?alltrim(str(i)+ s=s+i endif endfor 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 7 页 - - - - - - - - - ? 它们的和是：
7、 ,s 10、求 100 到 999 之间的水仙花数。clear ?100-999之间的水仙花数有： for i=100 to 999 k=int(i/100) m=(int(i/10)%10 n=i%10 if k3+m3+n3=i ?alltrim(str(i)+space(2) endif endfor 11、从键盘输入10 个数，找出其中的最大数和最小数。clear input 请输入第1 个数： to a k=a for i=2 to 10 input 请输入第 +alltrim(str(i)+个数： to b if ab k=b endif endfor ? 其中最大的数是：,a
8、? 其中最小的数是：,k 12、从键盘输入一个字符串，统计其中各个字符的个数，包括数字，大小写英文字母和特殊字符。clear accept 请输入一串字符： to x store 0 to dyw,xyw,kg,sz,qt m=len(x) for i=1 to m x1=substr(x,i,1) k=asc(x1) do case case k=32 kg=kg+1 case k=48 and k=65 and k=97 and k0 b=a%2 a=int(a/2) s=alltrim(str(b)+s enddo ? 转换为二进制为：,s 14、 VFP编程：有一个34 的矩阵 ,要求
9、编程求出其中值最大的那个元素的值, 以及其所在的位置。clear dime a(3,4) for i=1 to 3 for j=1 to 4 input 请输入一个值： to a(i,j) endfor endfor k=a(1,1) for m=1 to 3 for n=1 to 4 r=a(m,n) if rk k=r x1=m x2=n endif endfor endfor ? 其中最大的值是：,k ? 它所在的位置是第+alltrim(str(x1)+行，第 +alltrim(str(x2)+列 15、求 1000 到 10000 之间的回文数（1001、3883、4554、7007
10、、9999 等） ，并求它们的和。clear s=0 ?1000 到 10000 之间的回文数有： for i=1000 to 10000 m=alltrim(str(i) zx= dx= 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 7 页 - - - - - - - - - for j=1 to 4 zx=zx+substr(m,j,1) dx=dx+substr(m,5-j,1) endfor if zx=dx ?m+space(3) s=s+i endif en
11、dfor ? 它们的和是： ,s 16、 （1）输入两个数，求它们的最大公约数。clear input 请输入第1 个数： to a input 请输入第2 个数： to b c=min(a,b) do while c0 if a%c=0 and b%c=0 s=c exit endif c=c-1 enddo ? 它们的最大公约数是：,s （2）输入两个数，求它们的最小公倍数。clear input 请输入第1 个数： to a input 请输入第2 个数： to b c=max(a,b) do while .t. if c%a=0 and c%b=0 s=c exit endif c=c
12、+1 enddo ? 它们的最小公倍数是：,s 17、求 s=a+aa+aaa+aaaa.+aaaaaaa.a (n个 a) ，a 是一个数字，n 和 a 用键盘键入clear input 请输入 a 的值： to a input 请输入 n 的值： to n k=a s=a for i=2 to n k=a*10(i-1)+k s=s+k endfor 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - ?s=a+aa+aaa+a
13、aaa.+aaaaaaa.a (n个 a)=,s 18、用 vf 求 100 以内的所有完数clear ?1 到 100 内的所有完数为： for i=1 to 100 s=0 for j=1 to int(i/2) if i%j=0 s=s+j endif endfor if s=i ?i endif endfor 19、用 vf 求 s=1+1/2+2/3+3/5+.,前 10 项之和clear s=1 a=1 b=1 for i=1 to 9 c=a+b a=b b=c k=a/b s=s+k endfor ?s=1+1/2+2/3+3/5+.,前 10 项之和是： ,s 20、 1/2+2/3+3/5+5/8+.，前 20 项之后clear a=1 b=2 s=0 for i=1 to 20 s=s+a/b c=a+b a=b b=c endfor ?1/2+2/3+3/5+5/8+.的前 20 项之后为： ,s 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -