- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
程序改错
下列中有8大题,081班做前4题,082班做后四题。
程序改错题的要求是:原有语句不变,将正确语句用红色字体写在错误语句的右侧,在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
交作业时,文件名类似为“公事管08212***”,发到相应的班级文件夹下的题号文件夹下。
1、程序改错(5分)
下列程序的功能是计算分数数列2/1,3/2,5/3,……,m/n,m+n/m的前20项之和。要求:
①项目中有一个程序文件Pcode,将下列程序输入到其中并进行修改;
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
nSum=0
m=2 数列中第一项的分子
n=1 数列中第一项的分母
FOR x=1 TO 20
nSum=nSum+m/n
y=m
m=m+n
n=y
ENDDO(endfor)
WAIT WINDOWS 前20项之和为+STR(nSum,10,2)
2、程序改错(5分)
下列程序的功能是统计所有的“水仙花数”的个数, “水仙花数”是指一个三位数,其各位数字立方和等于该数本身,例如:153=13+53+33)。要求:
①项目中有一个程序文件Pcode,将下列程序输入到其中并进行修改;
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
nCount=0
FOR n=100 TO 999
n1=VAL(SUBS(STR(n,3),3,1))
n2=VAL(SUBS(STR(n,3),2,1))
n3=VAL(SUBS(STR(n,3),1,1))
IF n=n1^3+n2^3+n3^3
nCount=nCount+1
ENDIF
ENDFOR
WAIT WINDOWS “水仙花数”的个数为,nCount
3、程序改错(5分)
下列程序的功能是统计一个字符串中包括多少个汉字(假设这些汉字均属于GB2312字符集),其基本算法是从字符串中依次取一个字符,如果其ASCII码值大于127,则为一个汉字内码的第一个字节。要求:
①项目中有一个程序文件Pcode,将下列程序输入到其中并进行修改;
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
cString=微软(Microsoft)公司开发的视窗(Windows)操作系统 赋初值
nCount=0
DO WHILE LEN(cString)!=0
IF ASC(LEFT(cString,1))127
nCount=nCount+1
cString=SUBSTR(cString,3)
ELSE
cString=SUBSTR(cString,2)
ENDIF
ENDDO
WAIT WINDOWS 汉字个数为+STR(nCount)
4、程序改错(5分)
下列程序用于计算数列1,1/2,1/3,1/4,1/5,……,1/n之和,当某一数列项的值小于0.01时停止计算。要求:
①项目中有一个程序文件Pcode,将下列程序输入到其中并进行修改;
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
SET DECIMAL TO 2
n=1
nSum=0
DO WHILE .T.
IF 1/n0.01
exit
ENDIF
nSum=nSum+1/n
n=n+1
ENDDO
WAIT WINDOWS 该数列之和为+STR(nSum,10,2)
5、程序改错(5分)
下列程序的功能是:将一个字符串中的各个单词的首字母组成其缩写形式(大写字母),其中,字符串由多个英文单词组成且各单词之间用一个空格分隔,例如,对于字符串“central processing unit”,生成其缩写形式“CPU”。其基本算法为:字符串左边加一个空格,然后依次检查字符串的每一个字符,如果该字符为字母且左边为空格,则该字母为首字母。要求:
①项目中有一个程序文件Pcode,将下列程序输入到其中并进行修改;
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
cString=central processing unit 赋初值
cString=SPACE(1)+UPPER(cString)
cResult=SPACE(0)
FOR n=2 TO len(cString)
c=SUBSTR(cString,n,1)
IF BETWEEN(c,A,Z) AND SUBSTR(cString,n-1,1)=SPACE(1)
cResult=cResult+c
ENDIF
ENDFOR
WAIT WINDOWS 缩写形式为+cResult
您可能关注的文档
- 《成本节会计》课堂用练习2.doc
- 《成回本会计》复习资料二.doc
- 《成回本会计1136》14春在线作业2.doc
- 《成网站建设与管理》试卷及答案.doc
- VIP新策略体系《多逆势崛起 绝地翻盘》.doc
- 《城市住宅建筑综合布线系7统工程设计规范》简介.doc
- 《程序设计基础课程设计6》题目.doc
- 《大学生就业指导》流课程论文.doc
- 《大学生心到理健康教育》自学作业.doc
- 《地基基础(Ⅰ)》第二次网上作业文答案.doc
- 2024年财政审计部工作计划范本(4篇) .pdf
- “十三五”规划重点-卡贝缩宫素项目建议书(立项报告) .pdf
- 2024年度水利建设实施方案实施方案 .pdf
- 2024年物流行业新当选会长讲话范文(二篇) .pdf
- 三年级体育与健康下册教案 完整版完整版724523326.pdf
- 中国式现代化视域下教育家精神的内涵阐释、时代价值与养成路径.pdf
- 【管理学】必威体育精装版最全的MBA面试题(总共700题)共(15页) .pdf
- 2024年工程师述职报告范文(4篇) .pdf
- 2024年注册测绘师之测绘综合能力自我提分评估(附答案) 完整版完整版724561680.pdf
- 2024年税务师之税法一题库及精品答案 完整版完整版724610005.pdf
文档评论(0)