用vfp 做 求两个数的最大公约数和最小公倍数 程序

问题描述:

用vfp 做 求两个数的最大公约数和最小公倍数 程序

n=min(X,Y)
do while n>0
if X%n=0 and Y%n=0
s1=n
exit
else
n=n-1
loop
endif
enddo
n=max(X,Y)
do while .T.
if n%X=0 and n%Y=0
s2=n
exit
else
n=n+1
loop
endif
enddo
X,Y,"的最大公约数是",s1,"最小公倍数是",s2