FOR循环的嵌套例题.doc_第1页
FOR循环的嵌套例题.doc_第2页
FOR循环的嵌套例题.doc_第3页
FOR循环的嵌套例题.doc_第4页
FOR循环的嵌套例题.doc_第5页
免费预览已结束,剩余1页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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以内的回文数并统计它的

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论