FOR循环的嵌套例题.doc

1、把一张一元钞票,换成一分、二分和五分硬币,每种至少5枚,问有多少种方案?205set talk offcleas=0for i=5 to 100for j=5 to 50for k=5 to 20if k*5+j*2+i=100?i,j,ks=s+1endifendforendforendfor?sset talk on2、显示99乘法表！（1）set talk offclear form=1 to 9forn=1 to ms=m*n?str(m,1)+*+str(n,1)+=+str(s,2)+ endfor?endforset 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 ?endfor3、百马驮百瓦问题：大马、小马和马驹共100匹，共要驮100瓦，大马一驮三，小马一驮二，马驹二驮一，三种马都驮，共有多少种组合？set talk offclearn=0for x=1 to 33for y=1 to 50 for z=1 to 100if 3*x+y*2+z*1/2=100 and x+y+z=100n=n+1?x,y,zendifendforendforendfor?nset talk on4、求解世界上的有名的“百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡邹三，值钱一。百钱买百鸡，问鸡翁、鸡母和鸡邹各几何？写出当鸡翁为8时，鸡母有几只？（1）clearn=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=0for i=1 to 19for j=1 to 32for k=1 to 99if i*5+j*3+k/3=100 and i+j+k=100n=n+1?i,j,kendifendforendforendfor?n5、求100，999之间所有水仙花数。所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=13+33+53，故153是水仙花数。set talk offclearfor i=100 to 999a=i%10b=int(i%100/10)c=int(i/100)if a3+b3+c3=i?iendifendforset talk on6、从键盘任意输入一个数据，求出1到这个数内的所有整数的阶乘和。方法一：set talk offclearinput please input a number: to is=0for n=1 to i t=1 for m=1 to n t=t*m endfor s=s+tendfor?sset talk on或方法二：set talk offclearinput please input a number: to is=0t=1for n=1 to i t=t*n s=s+tendfor?sset talk on7、编写程序输出下面的图形。（必须用FOR语句完成）* SET TALK OFFCLEARFORI= 4 TO 1STEP-1?SPAC(8-2*I)FOR J=2*I-1TO1STEP-1?*ENDFOR? ENDFORSETTALKONRETURN8、求出10,1000内所有能被6和9中的一个且只有一个数整除的整数的个数。set talk offclearn=0for x=10 to 1000if mod(x,6)=0 and mod(x,9)!=0 or mod(x,6)!=0 and mod(x,9)=0n=n+1endifendfor? nset talk onreturn9、求出满足下列条件的三位数:(1)此三位数的三位数字各不相同；(2)此三位数等于它的各位数字三方和。并统计这种三位数的个数。set talk offclearn=0for i =100 to 999a=i%10b=int(i%100/10)c=int(i/100)if a3+b3+c3 =i and ab and bc and ac?in=n+1endifendfor?nset talk on 10、设某四位数的各位数字的立方和等于100，试求出这样的四位数并统计个数set talk offclearn=0for i=1000 to 9999 a=int(i/1000)b=int(i%1000/100)c=int(i%100/10)d=i%10if a3+b3+c3+d3=100?in=n+1endifendfor?nset talk on 11、设某四位数的千位数字的平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，*求出这样的四位数并统计个数。（例如：四位数3201，32+02=23+13）set talk offclearn=0for i =1000 to 9999 a=int(i/1000)b=int(i%1000/100)c=int(i%100/10)d=i%10if a2+c2=b3+d3?in=n+1endifendfor?nset talk on12、猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多 吃了一个。第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后 每天都是吃尚存桃子的一半零一个。到第10天早上小猴子再去吃桃子时，看到只剩 下一个桃子了。问小猴子第一天共摘下了多少SET TALK OFFCLEARp=1for i=2to 10p=(p+1)*2?i,pendfor ?pset talk on13、一球从50米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的4/5倍，试求出最小的自然数N，使得此球从开始下落至第N次着地时在垂直方向所经过的总路程超过400米。set talk offclearh=50s=50n=1do while s1?STR(X)+是素数ELSE ?STR(X)+不是素数ENDIFset talk on15、*回文数指的是正读和反读都是一样的一串字符，如121，1221。试求出1000,3000以内的回文数并统计它的