《专升本计算机编程 vf程序设计实例》由会员分享,可在线阅读,更多相关《专升本计算机编程 vf程序设计实例(5页珍藏版)》请在金锄头文库上搜索。
1、专升本计算机编程专升本计算机编程:Visual:Visual FoxProFoxPro 程序设计实例程序设计实例(一)输入 n 的值,求 1+1/2!+1/3!+1/4!+.+1/n! ( 阶乘 n!=1*2*3*4.*(n-1)*n )CLEAR SUM=0 MUL=1INPUT “请输入 n 的值: “ TO NFOR i=1 TO NFOR j=1 TO i MUL=MUL*JENDFOR SUM= SUM+1/MUL ENDFOR?求得的总和为: ,SUM(二)输入 10 个数,将它们按照从大到小的顺序排列。clear dime a(10)?输入 10 个数: for i=1 to 1
2、0input “请输入: “ to a(i)endfor for i=1 to 9 for j=1 to iif a(j)a(i+1)t=a(i+1)a(i+1)=a(j)a(j)=tendifendfor endfor list memo like a(三) 随机出 10 道 100 以内的整数加减法算数题 clear ts=1 do whie ts=10 czf=iif(rand()0.5,+,-) num1=rand()*100 num2=rand()*100 if =czf=+ if num1+num2100 loop else if num1num2 loop endif endif
3、 ?(+str (ts,2)+)+” “+str (num1,2)+czf+str(num2,2)+=” ts=ts+1 enddo (四) 计算 1,1/2,1/3.1/n 之和,当0.001 时停止 set decimal +0 2 n=1 nsum=0 do while .t. if 1/n 0.001 exit endif nsum=nsum+2 n=n+1 enddo wait windows 该系统之和为+ 五) 计算生肖自定义函数 sx() function sx arameters nyear local n,csx csx=羊猴鸡狗猪鼠牛虎兔龙蛇马 if parameters()=0 nyear =year(date() endif n=mod(nyear,12) return substr (ncsx,2+N+1,2) endfunc (六) 计算 S=1!+2!+3!+4!+5!+6!+7!+8!+9! s=0 for i=1 to 9 s=s+fjc(i) endfor ?s function fjc parameters x p=1 for n=1 to x p=p*x endfor return p endfunc