set talk off
do while.t.
clear
i=1
input"   請(qǐng)輸入第"+alltrim(str(i))+"個(gè)數(shù)："  to m
i=2
input"   請(qǐng)輸入第"+alltrim(str(i))+"個(gè)數(shù)："  to n
if (m<0 or n<0)
loop
endif
x=zxb(m,n)
y=zdy(m,n)
? "   最大公約數(shù)為："+alltrim(str(x))
? "   最小公倍數(shù)為："+alltrim(str(y))
exit
enddo
function zxb
parameters m,n
if m%n=0
  return n
else
  return zxb(n,m%n)
endif
endfunc
function zdy
parameters m,n
c=max(m,n)
d=min(m,n)
for i=c to c*d step +c
if i%d=0
  return i
  exit
endif
endfor 
endfunc