您所在位置：主题：IVF出现debug assertion failed
jmwjc
[专家分：0] 发布于 2011-11-18 20:04:00
这是程序：
program exam
integer(1) n
real n_cuberoot
open(1,file='cuberoot.dat',form='FORMATTED',access='DIRECT',recl=14)
do i=1,100
write(1,rec=i)i,i**(1.0/3.0)
enddo
print*,'please input a number (1to100)'
read*,n
read(1,rec=n)m,n_cuberoot
print*,n,'的立方根为',n_cuberoot
end
从书上抄的
在write(1,rec=i)i,i**(1.0/3.0)出现断点
program exam
integer(1) n
real n_cuberoot
open(1,file='cuberoot.dat',form='FORMATTED',access='DIRECT',recl=14)
do i=1,100
write(1,rec=i)i,i**(1.0/3.0)
enddo
print*,'please input a number (1to100)'
read*,n
read(1,rec=n)m,n_cuberoot
print*,n,'的立方根为',n_cuberoot
end
从书上抄的
在write(1,rec=i)i,i**(1.0/3.0)出现断点