求两个正整数的最大公约束和最小公倍数

时间：2007-06-15 来源： 作者： 【字体：

增大】收藏 | 投稿

原帖及讨论：http://www.bc-cn.net/bbs/dispbbs.asp?boardid=22&id=81760 财软联盟.fs119.net

最近论坛不活跃，写一个小程序，计算两个正整数的最大公约数和最小公倍数。让大家见笑了；同时希望大家贡献自己的东西。
财软联.盟.fs119.net

程序代码：
****
****GBSGYSV1.00(C)Copyright2006-2006ByTiger5392
****
****功能
****计算两个正整数的最大公约数及最小公倍数
****
****用法
****?GYSGBS(nExpr1,nExpr2,nExpr3)
****
****参数
****nExpr1第一个正整数
****nExpr2第二个正整数
****nExpr3如为0则计算最大公约数；如为1则计算最小公倍数
****
****返回
****最小公倍数或最大公约数
****
PARAMETERSnNum1,nNum2,nControl
PRIVATEnNum1,nNum2,nControl,nCount
SETTALKOFF
IFTYPE("nNum1")#CHR(78)ORINT(nNum1)#nNum1ORnNum1<=0
RETURN"****"
ENDIF
IFTYPE("nNum2")#CHR(78)ORINT(nNum2)#nNum2ORnNum2<=0
RETURN"****"
ENDIF
IFTYPE("nControl")#CHR(78)ORnControl#0ANDnControl#1
RETURN"****"
ENDIF
IFnControl=1
FORnCount=MAX(nNum1,nNum2)TOnNum1*nNum2
IFMOD(nCount,nNum1)=0ANDMOD(nCount,nNum2)=0
EXIT
ENDIF
ENDFOR
ELSE
FORnCount=MIN(nNum1,nNum2)TO1STEP-1 财管家园.fs119.net
IFMOD(nNum1,nCount)=0ANDMOD(nNum2,nCount)=0
EXIT
ENDIF
ENDFOR
ENDIF
RETURNnCount
****EOF:GYSGBS(C)CopyrightByTiger5392

财软联盟 fs119.net

相关文章