




免费预览已结束,剩余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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学生自我管理能力对学习动机的影响
- 医疗培训中激发学习动力的方法论
- 创新教育模式以教育心理学为基础的课程设计
- 创新教育政策塑造未来人才的关键
- 从神经科学的角度探讨提升学生参与度的方法
- 潜能激发教育心理学的实践路径
- 抖音商户直播前预热活动规划制度
- 22-富深木工胶!一文带你看懂手工贴木皮开裂原因及解决办法
- 公交优先政策与城市交通拥堵治理:2025年交通拥堵治理技术装备发展报告
- 江西中医药大学《细胞生物学与医学遗传学》2023-2024学年第一学期期末试卷
- 开展退伍老兵活动方案
- 年产 35 万吨金属结构件项目(一期年产 6 万吨金属结构件)环评报告书
- 【基于中国医疗行业上市公司数据的CAPM模型实证检验分析7800字】
- 地产 设计培训课件
- 中国古建筑行业市场发展现状及投资前景展望报告
- 浙江杭州市2024-2025学年高一下学期6月期末考试物理试题及答案
- 员工劝退方案文案(3篇)
- 陕西省专业技术人员继续教育2025公需课《专业技术人员综合素质拓展》4学时题库及答案
- 2023年本科招生考试
- 新入职护士培训考试试题及答案
- 《消防安全技术实务》课本完整版
评论
0/150
提交评论