最大公约数算法

算法 | 2015-04-11 22:11:14 | 阅读 976 次 | 评论(0)

来源:http://www.mzvfp.com/read.php?tid=55600&page=3

作者:陈家驹



?gcd(15,21)
?gcd(125,25)
Function GCD(X, Y)
    If X < 0
        X = -x  && 欧拉算法
    Endif
    If Y < 0
        Y = -Y  && 返回 X 和 Y 的 GCD
    Endif
    If X = 0 Or Y = 0
        ? "GCD 错误"
    Endif
    GCD = Y
    Do While X > 0
        GCD = X
        x = Y % X
        Y = GCD
    Enddo
    Return GCD
Endfunc



文章评论,共0条
游客请输入验证码
浏览240610次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...