VB程序設計的常用算法教案
(1) 對于已知兩數m,n,使得m>n;
(2) m除以n得余數r;
(3) 若r=0,則n為求得的最大公約數,算法結束;否則執行(4);
(4) m←n,n←r,再重復執行(2)。
例如: 求 m=14 ,n=6 的最大公約數. m n r
14 6 2
6 2 0
m=inputbox("m=")
n=inputbox("n=")
nm=n*m
if m < n then t = m: m = n: n = t
r=m mod n
do while (r <> 0)
m=n
n=r
r= m mod n
loop
print "最大公約數=", n
[1] [2] [3] [4] [5] [6] [7] 下一頁
<