V个FP小程序改错答案.doc

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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

文档评论(0)

zzabc001 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档