第 2 楼
program add
integer out
out=fun(100)
write(*,*),out
end program add
recursive function fun(index)
integer index
if (index==1) then
fun=1
return
else
fun=index+fun(index-1)
return
endif
end function
复兴汉服,还我中华衣冠,复我中华礼仪
http://www.tianhan.com.cn/bbs/index.asp
<img>http://memory.116.com.cn/uploadfiles/ttmovie/2005222154103.jpg</img>