回 帖 发 新 帖 刷新版面

主题:[讨论]forrtl:severe(259):

这是书上的一个例子,源代码为

PROGRAM EX3
OPEN(UNIT=8,FILE='F13.DAT',STATUS='NEW',ACCESS='DIRECT',
& FORM='FORMATTED',RECL=16)
DO 10,I=1,10,1
WRITE(8,100)I,SQRT(REAL(I))

10 CONTINUE
CLOSE(8)

100 FORMAT(I3,E13.6)
END

编译连接都没有错误,运行后,出现图中错误,这是怎么回事呢?



回复列表 (共1个回复)

沙发

我不知道你买的什么书。
但我建议你扔掉这本书,重新买一本。

Open 时指定了直接读取。access = "direct",并给出了记录长度。而且是无格式读写(form="unformatted"!!) 的。

但是 WRITE(8,100)I,SQRT(REAL(I)) 这一句,第一没有给出记录号。rec =。 第二,给出了格式控制符,但这是无格式的读写啊。

这种错误发生在书本里,简直让我汗颜。

这样的作者不值得你信任,也不值得你去跟着它学习。建议你换一本书吧

我来回复

您尚未登录,请登录后再回复。点此登录或注册