[GVBASIC]程序算法

laugj

lufeng396:
求最大公约数的GVB代码
10 REM GCD(A,B) Greatest Common Divisor
20 INPUT A,B
30 R=A-INT(A/B)*B            :REM 求余数(a%b)
40 A=B:B=R
50 IF R<>0 THEN GOTO 30
60 PRINT A                      :REM 此数即为gcd(a,b)最大公约数...
-------------------------------------------
非常不错哦,巧用余数求公约,我以前还不知道有这种方法呢!

bailiang

以下是引用laugj在2005-1-10 16:01:28的发言：

lufeng396:

求最大公约数的GVB代码

10 REM GCD(A,B) Greatest Common Divisor
20 INPUT A,B
30 R=A-INT(A/B)*B            :REM 求余数(a%b)
40 A=B:B=R
50 IF R<>0 THEN GOTO 30
60 PRINT A                      :REM 此数即为gcd(a,b)最大公约数...

-------------------------------------------

非常不错哦,巧用余数求公约,我以前还不知道有这种方法呢!

此算法名为：欧几里德算法，又叫辗转相除算法。
其证明过程比较简单，用整数的整除性理论就行了。
偶这里就不证明了

laugj

--------------------------------------------------------------------
有关算发的问题可以发到这里来,大家集中讨论
--------------------------------------------------------------------


PS:没有说不可以单独发贴哦^_^!