for循环的嵌套例题.docVIP

1、把一张一元钞票,换成一分、二分和五分硬币,每种至少5枚,问有多少种方案?205 set talk off clea s=0 for i=5 to 100 ???for j=5 to 50 ?????for k=5 to 20 ?????if k*5+j*2+i=100 ??????i,j,k ?????s=s+1 ?????endif ?????endfor ???endfor endfor ?s set talk on 2、显示99乘法表！ （1） set talk off clear for??m=1 to 9 for??n=1 to m s=m*n ??str(m,1)+*+str(n,1)+=+str(s,2)+ endfor ? endfor set talk on （2） clear ? 九 九 乘 法 表 ? for a=1 to 9 for b=1 to 9 p=a*b ??str(b,1)+*+str(a,1)+=+str(p,2)+ endfor ? endfor （3） ? 九 九 乘 法 表 ? for a=1 to 9 for b=1 to 9 p=a*b if a=b ??str(b,1)+*+str(a,1)+=+str(p,2)+ endif endfor ? endfor ? 3、百马驮百瓦问题：大马、小马和马驹共100匹，共要驮100瓦，大马一驮三，小马一驮二，马驹二驮一，三种马都驮，共有多少种组合？ set talk off clear n=0 for x=1 to 33 ??for y=1 to 50 ????for z=1 to 100 ???????if 3*x+y*2+z*1/2=100 and x+y+z=100 ????????n=n+1 ?????????x,y,z ????endif ???endfor ??endfor endfor ?n set talk on 4、求解世界上的有名的“百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡邹三，值钱一。百钱买百鸡，问鸡翁、鸡母和鸡邹各几何？写出当鸡翁为8时，鸡母有几只？ （1） clear n=0 for i=1 to 19 for j=1 to 32 for k=1 to 99 if i*5+j*3+k/3=100 and i+j+k=100 n=n+1 ?i,j,k if i=8 a=i b=j c=k endif endif endfor endfor endfor ?n ?a,b,c （2）n=0 ??for i=1 to 19 ????for j=1 to 32 ??????for k=1 to 99 ???????if i*5+j*3+k/3=100 and i+j+k=100 ??????????n=n+1 ???????????i,j,k ???????endif ??????endfor ?????endfor ???endfor ???n 5、??求[100，999]之间所有水仙花数。所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=1^3+3^3+5^3，故153是水仙花数。 ???set talk off ???clear ????for i=100 to 999 ???????a=i%10 ???????b=int(i%100/10) ???????c=int(i/100) ??????if a^3+b^3+c^3=i ???????????i ??????endif ????endfor ??set talk on 6、从键盘任意输入一个数据，求出1到这个数内的所有整数的阶乘和。 方法一： set talk off clear input please input a number: to i s=0 for n=1 to i t=1 for m=1 to n t=t*m endfor s=s+t endfor ?s set talk on 或方法二： set talk off clear input please input a number: to i s=0 t