编辑求三个自然数的最大公约数和最小公倍数

*求最大公约数的：
Parameters nNum1,nNum2,nNum3
Local lnCnt,lnResult
For lnCnt=1 To Min(nNum1,nNum2,nNum3)
  If Mod(nNum1,lnCnt)=0 And Mod(nNum2,lnCnt)=0 And Mod(nNum3,lnCnt)=0
    lnResult=lnCnt
  EndIf
EndFor
Return lnResult
*求最小公约数的：
Parameters nNum1,nNum2,nNum3
Local lnResult
lnResult=Min(nNum1,nNum2,nNum3)
Do While .T.
  If Mod(lnResult,nNum1)=0 And Mod(lnResult,nNum2)=0 And Mod(lnResult,nNum3)=0
    Exit
  EndIf
  lnResult=lnResult+1
EndDo
Return lnResult
*上述程序是最笨的，效率最低的

收到的鲜花

• songyuyu 于 2007-12-20 15:24 送鲜花  8朵  

其实我感觉老虎的算法已经是很不错的了!

多谢大家的支持啊