用vfp 做 求两个数的最大公约数和最小公倍数 程序
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/28 06:26:46
用vfp 做 求两个数的最大公约数和最小公倍数 程序
用vfp 做 求两个数的最大公约数和最小公倍数 程序
用vfp 做 求两个数的最大公约数和最小公倍数 程序
CLOSE ALL
CLEAR ALL
CLEAR
DO WHILE .T.
INPUT "请输入第一个整数:" TO n1stNumber
IF INT(n1stNumber) = n1stNumber
EXIT
ENDIF
ENDDO
DO WHILE .T.
INPUT "请输入第二个整数:" TO n2ndNumber
IF INT(n2ndNumber) = n2ndNumber
EXIT
ENDIF
ENDDO
IF ABS(n1stNumber) > ABS(n2ndNumber)
nMaxNumber = ABS(n1stNumber)
ELSE
nMaxNumber = ABS(n2ndNumber)
ENDIF
FOR nLoop_01 = nMaxNumber TO 1 STEP -1
IF MOD(n1stNumber,nLoop_01) = 0 .AND.MOD(n2ndNumber,nLoop_01) = 0
EXIT
ENDIF
NEXT
"第一个整数 " + ALLTRIM(STR(n1stNumber)) + " 与第二个整数 " + ALLTRIM(STR(n2ndNumber)) + " 的最大公约数是:",nLoop_01
FOR nLoop_02 = MAX(n1stNumber,n2ndNumber) TO n1stNumber * n2ndNumber
IF MOD(nLoop_02,n1stNumber) = 0 AND MOD(nLoop_02,n2ndNumber) = 0
EXIT
ENDIF
ENDFOR
"第一个整数 " + ALLTRIM(STR(n1stNumber)) + " 与第二个整数 " + ALLTRIM(STR(n2ndNumber)) + " 的最小公倍数是:",nLoop_02
RETURN