趣味Visua FoxPro 程序设计集锦.docVIP

趣味Visual FoxPro 程序设计集锦 5．舍罕王的失算 set talk off input[请输入n:]to n t=1 s=1 for i=2 to n t=t*2 s=s+t endfor v=s/1.42e8 h=(9/3.14159*v)^(1/3) ?总麦粒数约为:+str(s,10,3)+粒. ?折合体积约为:+ltrim(str(v,15))+立方米 ?堆成正圆锥高约为:+str(h,5)+米 return 程序运行结果与说明 请输入n:64 总麦粒数约为:1.845e+019 折合体积约为129906648406立方米 堆成正圆维高约为7193米 5-1失算的另一名题：买马灯 input请输入n: to n t=1 s=1 for i=2 to n t=t*2 s=s+t endfor ?共需花费+ltrim(str(s,16))+个包卢斯卡. ?合约+str(s/400,10,4)+卢卡. return 程序运行结果与点评 请输入n:24 共需花费1677215个外包卢斯卡 合约41943.0375卢布 6分数不等式 ?求n1+1/2+1/3+1/4+...+1/mn+1的正整数m set talk off set deci to 14 input 请输入n:to n i=0 s=0 do while sn i=i+1 s=s+1/i enddo c=i do while sn+1 i=i+1 s=s+1/i enddo d=i-1 ?满足不等式的m为:+ltrim(str(c,10))+m+ltrim(str(d,10)) return 程序运行结果： 求n1+1/2+1/3+1/4….+1/mn+1的正整数m 请输入n:10 满足不等式的m为：12367m33616 请输入n:15 满足不等式的m为：1835421m4989190 7阶乘与阶乘和数 set talk off ?三位阶乘和数有: for m=100 to 999 a=int(m/100) b=mod(int(m/10),10) c=mod(m,10) if m=jc(a)+jc(b)+jc(c) ??m endif endfor return func jc para x p=1 for i=1 to x p=p*i endfor return p 程序运行结果： 三位阶乘和数有：145 可见145是唯一的三位阶乘和数 8综合高精度计算 clear dime a(500) a=0 ? 1:计算阶乘n! ? 2:计算乘方m^n ? 3:计算排列数A(n,m) input 选择（1-3）： to z input 请输入正整数n: to n if z#1 input 请输入正整数m (m=n): to m endif d=500 t=1 if z=3 t=n-m+1 endif a(1)=1 for i=t to n if z=2 b=m else b=i endif f=0 for j=1 to d x=a(j)*b+f f=int(x/10) a(j)=x%10 endfor endfor j=d do while a(j)=0 j=j-1 enddo f=j do case case z=1 ? str(n,8)+!= case z=2 ? str(m,6)+^+ltrim(str(n))+= case z=3 ? A(+ltrim(str(n))+,+ltrim(str(m))+)= endcase d=0 for j=f to 1 step -1 d=d+1 ?? str(a(j),1) if d%50=0 ?space(10) endif endfor ? 所得结果共+ltrim(str(f))+位 return 运行程序，选择3，输入n=100，m=90，得 A(100,90)=257182031095525112107857249934597388918419224714455526533820998388496472644482792132224051962512451