第五章结构化程序设计上机六20180420.docxVIP

第五章结构化程序设计上机六一．文件操作1.在d:\中新建以自己姓名简拼音加上vfp为后缀的文件夹，如”zmvfp”2.将发送到桌面的上机练习题及上机用数据表复制到该文件夹中3.新建项目文件，名称为姓名简拼音加上xm为后缀，如”zmxm”,保存在新建的文件夹中（如以上已经存在，操作可省略）二．编程题1.求100-5000之间能被34整除的最小数程序代码：for a=100 to 5000 if a%34=0?最小的数为：,aexitendifendfor运行结果：2.求100-5000之间能被34整除的最大数程序代码：for a=5000 to 100 step -1if a%34=0?最大的数为：,aexitendifendfor运行结果：3.求数据128的所有因数程序代码：for a=1 to 128if 128%a=0?128的因数有：,aendifendfor运行结果：4.求数据128和540的最大公约数程序代码：cleara=128b=540c=min(a,b)for i=c to 1 step -1if a%i=0 and b%i=0?128,540的最大公约数是：,iexitendifendfor运行结果：5.求数据128和540的最小公倍数程序代码：a=128b=540c=max(a,b)d=a*bfor e=c to dif e%a=0 and e%b=0?128,540的最小公倍数是：,eexitendifendfor运行结果：6.求任意5个数据和程序代码：s=0n=1do while n=5input请输入一个数： to as=s+an=n+1enddo?五个数之和:,s运行结果：7.求任意个数和程序代码：clears=0do while .t.input输入一个数值： to as=s+await是否继续？(y/n) to ynif upper(yn)=Yloopelseexitendifenddo?和为：,s运行结果：8.输出所有三位正整数程序代码：clearfor i=100 to 999??iendfor运行结果：求三位数中的水仙花数（即个位数的立方加十位数的立方加百位数的立方等于该数本身）程序代码：n=0for a=1 to 9for b=0 to 9for c=0 to 9if a^3+b^3+c^3=100*a+10*b+cn=n+1?第+str(n,3)+个水仙花数是：,100*a+10*b+cendifendforendforendfor运行结果：10显示如下图形############################程序代码：clearfor i=1 to 7for j=1 to i??#endfor?endfor11.显示如下图形@@@@@@@@@@@@@@@@@@@@@@@@@@@@程序代码：clearfor i=7 to 1 step -1for j=1 to i ??@endfor?endfor12.显示如下图形@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@程序代码：clearfor i=1 to 6for j=1 to 2*i@i,j say @endforendfor13.显示如下图形@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@程序代码：clearfor i=1 to 5for j=1 to 8@ i,j say @endforendfor14.编写程序，输出九九乘法表程序代码：clearfor i=1 to 9for j=1 to i??str(i,1)+*+str(j,1)+=+str(j*i,2)+space(2)endfor?endfor运行结果：15.编写程序，有100块钱要买100只鸡 ,其中公鸡 5元一只, 母鸡 3元一只, 小鸡 一元3只 ，问可以买多少公鸡、母鸡和小鸡？程序代码：clearn=0for x=0 to 20for y=0 to 33z=100-x-yif 5*x+3*y+z/3=100n=n+1?第+str(n,2)+种情况?公鸡个数：,x?母鸡个数：,y?小鸡个数：,zendifendforendfor运行结果：16.将一张100元钞票换成面值为10元、5元、2元和1元的钞票，要求每次换成40张，每种至少一张，共有多少中换法？请输出所有可能的换法？程序代码：clearn=0for x=1 to 10for y=1 to 20for z=1 to 50for h=1 to 100if 10*x+5*y+2*z+h=100 and x+y+z+h=40n=n+1?第+str(n,3)+种方法是：?10元,x,张?5元,y,张?2元,z,张?1元,h,张endifendfore