Fortran Coder

标题: 求教~屏幕输出显示不全 [打印本页]

作者: 我爱吃鱼 时间: 2017-3-29 09:15
标题: 求教~屏幕输出显示不全
调试码如下，数据见附件

[Fortran] 纯文本查看 复制代码



PROGRAM Ex001

IMPLICIT NONE    

REAL(16) X(1024),Y(1024)

integer I,dt



OPEN(12,FILE='123.txt')

DO I=1,1024

read(12,*) X(I)，Y（I）

dt=2

Y(I)=Y(I)*dt

write(*,*) I,Y(I)

ENDDO

pause

END

123.txt里面有两列的1024行数据，为什么只能显示298个？？我的结果是从727开始，这是为什么呢？？

123.txt

29 KB, 下载次数: 6

作者: pasuka 时间: 2017-3-29 09:44
1、为啥要用4精度的浮点数？！lz确定编译器能够支持？
2、为啥有open无close呢？
3、为啥捎上pause这样的吃瓜群众？

作者: 大头鼹鼠 时间: 2017-3-29 10:12

234.txt (64 KB, 下载次数: 10)

[Fortran] 纯文本查看 复制代码

PROGRAM Ex001

IMPLICIT NONE    

REAL(16) X(1024),Y(1024)

integer I,dt



OPEN(12,FILE='123.txt')

OPEN(13,FILE='234.txt')

DO I=1,1024

read(12,*)x(i),y(i)

dt=2

Y(I)=Y(I)*dt

write(13,*) I,"      ",Y(I)

ENDDO

close(12)

close(13)

END

没有任何问题呀，你不要从屏幕上看，上面显示不全的

作者: 我爱吃鱼 时间: 2017-3-29 10:49

大头鼹鼠发表于 2017-3-29 10:12
[mw_shl_code=fortran,true]PROGRAM Ex001
IMPLICIT NONE
REAL(16) X(1024),Y(1024)

主程序里是放在文件里了，谢谢前辈啦~~

作者: 我爱吃鱼 时间: 2017-3-29 10:50

pasuka 发表于 2017-3-29 09:44
1、为啥要用4精度的浮点数？！lz确定编译器能够支持？
2、为啥有open无close呢？
3、为啥捎上pause这样的吃 ...

新手，正在学习，谢谢您提出的问题，谢谢，我会继续改正的

作者: fcode 时间: 2017-3-29 13:32
我这里也毫无问题。可能只是windows的命令行缓存有限。

1.png (47.58 KB, 下载次数: 366)

2.png (50.12 KB, 下载次数: 380)

作者: 我爱吃鱼 时间: 2017-3-29 13:49

fcode 发表于 2017-3-29 13:32
我这里也毫无问题。可能只是windows的命令行缓存有限。

好的，我明白了。谢谢喔

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)