求一段代码!
输入两个正整数m和n,求其最大公约数和最小公倍数。
[定义]如果有一个自然数a能被自然数b整除,则称a为b的倍数,b为a的约数。几个自然数公有的约数,叫做这几个自然数的公约数。公约数中最大的一个公约数,称为这几个自然数的最大公约数。
[ 本帖最后由 sdta 于 2012-9-18 01:32 编辑 ]
程序代码:**********************************
* 函数功能:求两个数的最大公约数
* 调用方法:
* 最大公约数[GCD]:GCD(A,B)
* 最小公倍数[LCM]:A*B/GCD(A, B)
**********************************
?GCD(287,123)
FUNCTION GCD
LPARAMETERS A,B
LOCAL A1, A2, A3
A1 = MIN(A, B)
A2 = MAX(A, B)
DO WHILE .T.
A3 = MOD(A2, A1)
IF A3 = 0
RETURN A1
ELSE
A2 = A1
A1 = A3
ENDIF
ENDDO
