程序改错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 (如

Word文档免费下载Word文档免费下载:程序改错11 (共21页,当前第1页)

你可能喜欢

  • 程序设计语言
  • C语言实习报告
  • 选择结构
  • 复利计算公式
  • C语言入门教程
  • 熔点测定
  • C语言上机题库

程序改错11相关文档

最新文档

返回顶部