用fortran程序编写的数值计算实验报告
end do
stop
end
一般迭代法程序 program main implicit none
real::x0
integer::k
real::x1
integer,parameter::N=9 real,external::f k=0
x0=1.5
do while (k<=N) k=k+1
write(*,*) k,x0 x0=f(x0)
end do
end
function f(x)
real::x,f
f=(x+1)**(real(1)/real(3)) return
end
