程序改错11.docVIP

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 ??????