用Fortran设计一个函数子程序,对于自然数m,n,用该函数求m,n的最小公倍数
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/19 00:26:01
用Fortran设计一个函数子程序,对于自然数m,n,用该函数求m,n的最小公倍数
![用Fortran设计一个函数子程序,对于自然数m,n,用该函数求m,n的最小公倍数](/uploads/image/z/18805337-17-7.jpg?t=%E7%94%A8Fortran%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%E5%AD%90%E7%A8%8B%E5%BA%8F%2C%E5%AF%B9%E4%BA%8E%E8%87%AA%E7%84%B6%E6%95%B0m%2Cn%2C%E7%94%A8%E8%AF%A5%E5%87%BD%E6%95%B0%E6%B1%82m%2Cn%E7%9A%84%E6%9C%80%E5%B0%8F%E5%85%AC%E5%80%8D%E6%95%B0)
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
![](http://img.wesiedu.com/upload/7/95/795c268274a9dc43261bd39cdb82eed3.jpg)
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
![](http://img.wesiedu.com/upload/7/95/795c268274a9dc43261bd39cdb82eed3.jpg)
急求 1、设计一个判断两个整数大小的VBA子过程. 2、设计一个计算从n~m之间所有自然数之和的VBA函数.
VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.
求教用VB 写程序.求两自然数m,n的最小公倍数.这样写对吗?
vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!
vb:求两自然数m,n的最小公倍数?
.求两个自然数M和N的最小公倍数.pascal
编程求两个自然数,m.n的最小公倍数
设计程序,求两正整数m,n的最小公倍数
matlab:编写一个函数,实现当输入fun2010(m,n)时,输入m,n的最大公约数和最小公倍数.
求函数Cmn=m!/(n!*(m-n)!)的程序
用递归函数求m的n次方
定义一个函数求F=(N+M)!+N!,M,N均为正整数.要求用递归调用