用fortran程序编写的数值计算实验报告
四、 程序设计
program nndd01
implicit none
real,parameter::e=0.005
real,parameter::n=9
real::x1
real::x0=1.5
integer::k
real,external::f,y
do k=1,9
if (y(x0)==0) then
write(*,*)"失败"
else
x1=x0-f(x0)/y(x0)
if (abs(x1-x0)<e) then
write(*,*)k,x1
