Fortran Coder

查看: 6405|回复: 4
打印 上一主题 下一主题

[输入输出] 输入输出求帮忙

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
7 点
跳转到指定楼层
楼主
发表于 2017-10-17 19:09:40 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

我的EX.IN是这样的

但是EX.OUT里面却只有一个6

求求各位大神们能不能给我解释一下

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

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

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

沙发
发表于 2017-10-17 21:41:01 | 只看该作者
请参考本站的教程
获得文件行数和列数
http://fcode.cn/code_gen-34-1.html
Fortran读取 ini 配置文件
http://fcode.cn/code_gen-40-1.html

260

帖子

0

主题

0

精华

版主

World Analyser

F 币
722 元
贡献
512 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
板凳
发表于 2017-10-18 09:58:30 | 只看该作者
你想实现什么呢?

试试下面的代码,是你想要的效果吗?

[Fortran] 纯文本查看 复制代码
Program Exercise
  Implicit None
  Character(len=20) title(5)
  integer :: i
  Open(20,File="Ex.in")
  Open(60,File="Ex.out")
  Do i = 1 , size(title)
    Read( 20 , "(a20)" ) title(i)
    Write( 60 , "(a)" ) trim(title(i))
  End Do
End Program Exercise  

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
7 点
地板
 楼主| 发表于 2017-10-24 19:41:38 | 只看该作者
kyra 发表于 2017-10-18 09:58
你想实现什么呢?

试试下面的代码,是你想要的效果吗?

感谢!
我想检验一下字符串在规定长度和实际长度不同时,格式化输入和输出的规则,是从左边第一个位置开始,还是从左边第一个非空格字符开始,以及是从右向左读取,还是从左向右读取
您的程序我没有调试出来,显示有error

260

帖子

0

主题

0

精华

版主

World Analyser

F 币
722 元
贡献
512 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
5#
发表于 2017-10-24 21:04:51 | 只看该作者
本帖最后由 kyra 于 2017-10-24 21:10 编辑

带格式读取的话,是从第一个字符开始算。
表控格式读取(*),是从第一个有效字符(除去空格,TAB,逗号等分隔符之外)开始算。
都是从左到右。

error 信息是什么
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-26 20:32

Powered by Tencent X3.4

© 2013-2024 Tencent

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