主题：谁有求最大公约数的程序块，还有选择法和比较法的
影子鬼
[专家分：0] 发布于 2005-05-24 21:48:00
如题
回复列表 （共2个回复）
沙发
def [专家分：3380] 发布于 2005-05-27 19:20:00
FUNCTION HCM& (NUM1&,NUM2&)
DIM m&
DIM n&
DIM r&
m& = NUM1&
n& = NUM2&
IF m& < n& THEN SWAP m&, n&
r& = m& MOD n&
DO WHILE 4 <> 0
n& = m&
n& = r&
r& = m& MOD n&
LOOP
hcm& = n&
END FUNCTION
FUNCTION LCM& (NUM1&,NUM2&)
DIM A&
DIM B&
DIM m&
DIM n&
DIM r&
m& = NUM1&
n& = NUM2&
A& = m&
B& = n&
IF m& < n& THEN SWAP m&, n&
r& = m& MOD n&
DO WHILE 4 <> 0
n& = m&
n& = r&
r& = m& MOD n&
LOOP
lcm& = A& * B& \ n&
END FUNCTION
板凳
some9 [专家分：0] 发布于 2005-06-02 11:00:00
functiom f(m,n)
if m<n then swap m,n
r=m mod n
if r<>o then
m=n
n=r
f=f(m,n)
else
f=n
end if
end function
仅供参考[em9]
我来回复
您所在位置：