用Fortran设计一个函数子程序,对于自然数m,n,用该函数求m,n的最小公倍数

如题所述

Program Finite_Element

integer :: m,n,s,temp

write(*,*)"请输入两个数:"

read(*,*)m,n

s=m*n

if(m<n)then

  temp=m;m=n;n=temp

end if

do while(mod(m,n)/=0)

  temp=n;n=mod(m,n);m=temp

end do

write(*,"('最大公约数为:'i4)") n

write(*,"('最小公倍数为:'i4)") s/n

end

温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-05-23
大体思路如下:

1. 使用辗转相除法算出最大公约数S
http://baike.baidu.com/view/1376155.htm?fr=ala0_1

2. (m * n / S)就是最小公倍数了
第2个回答  2010-05-23
m * n / S
相似回答