e_322_03.f90

来自「Fortran77和90_95编程入门,里面还有详细的例子。」· F90 代码 · 共 11 行

!碾转相除法：如27和6，先用27除以6，余数为3。再用6除以3，余数为零，即3为最大公约数。
read *, m,n
if(m.lt.n) then
	k=m; m=n; n=k
end if
k=mod(m,n)
do while (k/=0)
	m=n; n=k; k=mod(m,n)
end do
print *, '最大公约数＝',n
end