Fortran Coder

查看: 8593|回复: 5
打印 上一主题 下一主题

[文件读写] 计算txt两列文件数据

[复制链接]

21

帖子

7

主题

0

精华

熟手

F 币
169 元
贡献
93 点

新人勋章

跳转到指定楼层
楼主
发表于 2019-11-21 16:48:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 wawewen 于 2019-11-21 17:05 编辑

前情提要,本人才在学习Fortran,txt文档两列数据,行数位未知,第一列a,第二列b,求b/a生成在另一个文档中,本着家庭作业自己写的原则,试着写了一下,问题很多,有没有大佬指导一下作业
[Fortran] 纯文本查看 复制代码
01program main
02implicit none
03integer,parameter::n=1000
04integer::i
05dimension a(i),b(i)
06open(unit=10,file='C:\Users\Lenovo\Desktop\3.txt')
07do i=1,n
08read(10,*,end=1)a(i),b(i)
09open(20,file="C:\Users\Lenovo\Desktop\4.txt",
10&status='unknown')
11write(unit=20,*)b(i)/a(i)
12end do
13close(20)
141        continue
15end

分享到:  微信微信
收藏收藏1 点赞点赞 点踩点踩
心怀不惧,方能翱翔于天际

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2019-11-21 20:15:39 | 只看该作者
[Fortran] 纯文本查看 复制代码
01Program main
02  implicit none
03  real a,b
04  open(10,file='C:\Users\Lenovo\Desktop\3.txt')
05  open(20,file="C:\Users\Lenovo\Desktop\4.txt")
06  Do
07    read(10,*,end=1) a , b
08    write(20,*) b/a
09  End Do
101 close(20)
11  close(10)
12End Program Main

21

帖子

7

主题

0

精华

熟手

F 币
169 元
贡献
93 点

新人勋章

板凳
 楼主| 发表于 2019-11-22 10:25:53 | 只看该作者
vvt 发表于 2019-11-21 20:15
[mw_shl_code=fortran,true]Program main
  implicit none
  real a,b

感谢大佬,其实最主要的问题还是txt文件读写模糊不清,这下明白了,要写的是直角坐标转换极坐标的一个计算,看了你写的之后才恍然大悟啊,学到了,已经写出来了,万分感谢,可能以后问题还很多,还望不吝赐教
心怀不惧,方能翱翔于天际

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
地板
发表于 2023-4-25 18:33:20 | 只看该作者
vvt 发表于 2019-11-21 20:15
[mw_shl_code=fortran,true]Program main
  implicit none
  real a,b

你好老师,我想问一下第7行代码read语句里面的end=1的作用是什么,这里我在教科书上没有找到。

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
5#
发表于 2023-4-25 20:29:53 | 只看该作者
lumlngz 发表于 2023-4-25 18:33
你好老师,我想问一下第7行代码read语句里面的end=1的作用是什么,这里我在教科书上没有找到。 ...

遇到文件结束的话,跳转到语句标号为 1 的语句继续执行。

这种写法现在不推荐,可以用 iostat 代替

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
6#
发表于 2023-4-25 20:47:25 | 只看该作者
vvt 发表于 2023-4-25 20:29
遇到文件结束的话,跳转到语句标号为 1 的语句继续执行。

这种写法现在不推荐,可以用 iostat 代替 ...

哦哦哦我明白了谢谢!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2025-1-13 02:13

Powered by Discuz! X3.4

© 2013-2025 Comsenz Inc.

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