程序改错11.doc

下载文档 降价啦

6
0
约 23页
2017-02-12 发布于河南
举报
版权申诉
保障服务

程序改错11.doc

1、本文档共23页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

程序改错11

VFP改错题（上机） ? 1、本程序求给定两个正整数的最小公倍数和最大公约数。 SET TALK OFF CLEA INPUT N= TO N INPUT M= TO M X=MIN(N,M) ******1****** FOR I=1 TO X ????????????????????????????????????????????????????? FOR I=X TO 1 STEP-1 ?????? ******2******??????????? ?????? IF M/I=INT(M/I) OR N/I=INT(N/I)?????????????????? IF M/I=INT(M/I) AND N/I=INT(N/I) ????????????? GYS=I ????????????? ******3****** ????????????? LOOP????????????????????????????????????????????????????? EXIT ?????? ENDIF ENDFOR ? 最大公约数????????????????????? 最小公倍数？GYS，M*N/GYS SET TALK ON ? 2、本程序实现:输入一个正整数M，判断并显示1~M中有哪些数可以分为两个相等的素数。（如M=10，有3个数符合，即2+2=4，3+3=6和5+5=10） SET TALK OFF CLEA INPUT M= TO M IF INT(M)!=M OR ABS(M)!=M ?????? ? 不符合题目要求！ ELSE ?????? S=0 ?????? FOR J=2 TO M/2 ????????????? ******1****** ????????????? FOR I=2 TO J/2?????????????????????????????????????????????? FOR I=2 TO J-1 ???????????????????? IF J%I=0 ??????????????????????????? EXIT ???????????????????? ENDIF ????????????? ******2****** ????????????? ENDDO????????????????????????????????????????????????????????? ENDFOR ????????????? IF I=J ???????????????????? S=S+1 ???????????????????? ? ALLTRIM(STR(J*2,19))+=+ALLTRIM(STR(J,19))+++ALLTRIM(STR(J,19)) ????????????? ENDIF ?????? ENDFOR ?????? ? STR(M,19))+中共有：+STR(S,3))+个数满足条件 ENDIF SET TALK ON ? 3、本程序实现：输入一个数，判断是否是素数。 SET TALK OFF CLEA INPUT X= TO X FOR I=2 TO X-1 ?????? ******1****** ?????? IF INT(X/I)???????????????????????????????????????????????????? IF INT(X/I)=X/I ????????????? EXIT ?????? ENDIF ENDFOR ******2****** IF I=X???????????????????????????????????????????????????????????????? IF I=X ?????? ? 是素数！ ELSE ?????? ? 不是素数！ ENDIF SET TALK ON ? 4、本程序实现：将给定的正整数的值分解因子，并输出各个质数因子（如24的因子有2、2、2和3） SET TALK OFF CLEA ******1****** ACCEPT? M= TO M??????????????????????????????????????????????????? INPUT M= TO M IF INT(M)! =M OR ABS(M)!=M ?????? ? 输入的数据不符合题目要求！ ******2****** ENDIF????????????????????????????????????????????????????????????????????????? ELSE ?????? I=2 ?????? DO WHIL I=M ????????????? IF M%I=0 ??????