fortran编程实现求阶乘
源代码如下:
implicit none
integer::i,n,m
m=1
read *,n
do i=1,n
m=m*i
end do
print *,"阶乘结果为:",m

编译、运行,结果如下:

fortran编程实现求阶乘
源代码如下:
implicit none
integer::i,n,m
m=1
read *,n
do i=1,n
m=m*i
end do
print *,"阶乘结果为:",m
编译、运行,结果如下:
上一篇 C++基础教程-if 语句