我要飞=_= 2021-06-24 21:15 采纳率: 70.6%
浏览 136
已结题

Fortran95基础有格式直接存取文件的格式化输入输出

CHARACTER(10) NAME(3)
CHARACTER(5) NUMBER(3)
INTEGER G1(3),G2(3)
OPEN (10,FILE='ccccc.dat',ACCESS='DIRECT',RECL=25)
DO I=1,3
READ(10) 100,NAME(I),NUMBER(I),G1(I),G2(I)
ENDDO
100 FORMAT(A10,A5,2I5)
END

写的代码如上

xuesheng0100001   89   89xuesheng0300003   89   89xuesheng0200002   89   89

这是ccccc.dat文件的内容

--------------------Configuration: B - Win32 Release--------------------
Compiling Fortran...
F:\school code fortran\NEW\B\b1.f90
F:\school code fortran\NEW\B\b1.f90(6) : Error: Constants and expressions are invalid in read-only I/O lists.   [100]
READ(10) 100,NAME(I),NUMBER(I),G1(I),G2(I)
---------^
Error executing df.exe.

b1.obj - 1 error(s), 0 warning(s)

报错,如果把100去掉再执行小黑框会这么显示

forrtl: severe (259): sequential-access I/O to unit open for direct access, unit 10, file F:\school code fortran\NEW\B\ccccc.dat
Image              PC        Routine            Line        Source
B.exe              00406579  Unknown               Unknown  Unknown
Press any key to continue

麻烦了,第一次学编程语言,还请大神们指点指点

另外帮忙看看这道题,哈哈哈,做了几个小时了,还没解决,实在搞不下去了,大神不用给我弄50个学生,搞个三四个意思到了就行😁

 

  • 写回答

0条回答 默认 最新

    报告相同问题?

    悬赏问题

    • ¥15 两台交换机分别是trunk接口和access接口为何无法通信,通信过程是如何?
    • ¥15 C语言使用vscode编码错误
    • ¥15 用KSV5转成本时,如何不生成那笔中间凭证
    • ¥20 ensp怎么配置让PC1和PC2通讯上
    • ¥50 有没有适合匹配类似图中的运动规律的图像处理算法
    • ¥15 dnat基础问题,本机发出,别人返回的包,不能命中
    • ¥15 请各位帮我看看是哪里出了问题
    • ¥15 vs2019的js智能提示
    • ¥15 关于#开发语言#的问题:FDTD建模问题图中代码没有报错,但是模型却变透明了
    • ¥15 uniapp的h5项目写一个抽奖动画