求一段代码!
输入两个正整数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