- 博客(2)
- 收藏
- 关注
RSS订阅原创 数组（慢慢添加）
1.返回值是数组：使用interface接口（p189）interface function random10(lbound,ubound) implicit none real::lbound,ubound real::random10(10)*声明返回值是数组* end function end interfac
2017-08-14 21:59:04
160
原创 初学者---递归
program xuexi3 implicit none integer,external::fact*调用函数需要写external（待定）* integer::n write(*,*)"N=" read(*,*)n write(*,*)fact(n) stop end recursive integer function
2017-08-14 21:19:50
194
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人