program xuexi3
implicit none
integer,external::fact*调用函数需要写external(待定)*
integer::n
write(*,*)"N="
read(*,*)n
write(*,*)fact(n)
stop
end
recursive integer function fact(n) result(ans)
*recursive英文解释就是递归,使用时要加*
*ans可以不定义数据类型*
if(n<0)
初学者---递归
最新推荐文章于 2024-09-09 09:54:16 发布
本文适合初学者,探讨了递归的基本用法,并强调在使用递归时设置限制避免无限循环的重要性。同时指出,主函数中应将停止条件置于递归函数之前。
摘要由CSDN通过智能技术生成