Fortran Coder

查看: 13889|回复: 6
打印 上一主题 下一主题

[输入输出] 求教~屏幕输出显示不全

[复制链接]

12

帖子

5

主题

0

精华

入门

F 币
71 元
贡献
42 点
跳转到指定楼层
楼主
发表于 2017-3-29 09:15:53 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
调试码如下,数据见附件
[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

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

沙发
发表于 2017-3-29 09:44:43 | 只看该作者
1、为啥要用4精度的浮点数?!lz确定编译器能够支持?
2、为啥有open无close呢?
3、为啥捎上pause这样的吃瓜群众?

66

帖子

16

主题

0

精华

专家

F 币
452 元
贡献
271 点
板凳
发表于 2017-3-29 10:12:11 | 只看该作者
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


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

12

帖子

5

主题

0

精华

入门

F 币
71 元
贡献
42 点
地板
 楼主| 发表于 2017-3-29 10:49:40 | 只看该作者
大头鼹鼠 发表于 2017-3-29 10:12
[mw_shl_code=fortran,true]PROGRAM Ex001
IMPLICIT NONE   
REAL(16) X(1024),Y(1024)

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

12

帖子

5

主题

0

精华

入门

F 币
71 元
贡献
42 点
5#
 楼主| 发表于 2017-3-29 10:50:19 | 只看该作者
pasuka 发表于 2017-3-29 09:44
1、为啥要用4精度的浮点数?!lz确定编译器能够支持?
2、为啥有open无close呢?
3、为啥捎上pause这样的吃 ...

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

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

6#
发表于 2017-3-29 13:32:11 | 只看该作者
我这里也毫无问题。可能只是windows的命令行缓存有限。

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

1.png

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

2.png

12

帖子

5

主题

0

精华

入门

F 币
71 元
贡献
42 点
7#
 楼主| 发表于 2017-3-29 13:49:20 | 只看该作者
fcode 发表于 2017-3-29 13:32
我这里也毫无问题。可能只是windows的命令行缓存有限。

好的,我明白了。谢谢喔
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 14:54

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表