求最大公约数和最小公倍数.prg

寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家都可以随便下载 资源共享嘛

set talk off
do while.t.
clear
i=1
input"   请输入第"+alltrim(str(i))+"个数："  to m
i=2
input"   请输入第"+alltrim(str(i))+"个数："  to n
if (m<0 or n<0)
loop
endif
x=zxb(m,n)
y=zdy(m,n)
? "   最大公约数为："+alltrim(str(x))
? "   最小公倍数为："+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