楼主
如何编写程序，用递归函数来计算等差数列1＋2＋3＋4＋...＋99＋100的值？
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
