常用算法VFP程序.docVIP

求最大、最小数问题 Dime x(30) Maxx=0 极小数 Minx=300 极大数 For k=1 to 30 X(k)=1+rand()*300 If x(k)maxx Maxx=x(k) Endif If x(k)minx Minx=x(k) Endif ??x(k) 顺序输出30个随机数 endfor ?maxx,minx 最大公约数和最小公倍数问题 Input to x Input to y M=x N=y R=x%y Do while R0 X=y Y=R R=x%y Enddo ?y, M*N/y 素数（质数）问题 Input to x For k=2 to x-1 If x%k=0 exit endif endfor if k=x ?x,”is prime” Else ?x.”not prime” endif 阶乘问题 Input to x F=1 For k=x to 2 step -1 F=f*k Endfor ?F 百钱百鸡问题 for i=0 to 33 for j=0 to 50 k=100-i-j if 3*i+2*j+int(0.5*k)=100 ? i,j,k endif en