Fortran Coder

查看: 68|回复: 2

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

[复制链接]

15

帖子

5

主题

0

精华

入门

F 币
89 元
贡献
50 点

新人勋章

发表于 2019-11-21 16:48:34 | 显示全部楼层 |阅读模式
本帖最后由 wawewen 于 2019-11-21 17:05 编辑

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

心怀不惧,方能翱翔于天际
回复

使用道具 举报

745

帖子

0

主题

0

精华

宗师

F 币
913 元
贡献
506 点

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

QQ
发表于 2019-11-21 20:15:39 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
Program main
  implicit none
  real a,b
  open(10,file='C:\Users\Lenovo\Desktop\3.txt')
  open(20,file="C:\Users\Lenovo\Desktop\4.txt")
  Do
    read(10,*,end=1) a , b
    write(20,*) b/a
  End Do
1 close(20)
  close(10)
End Program Main

15

帖子

5

主题

0

精华

入门

F 币
89 元
贡献
50 点

新人勋章

 楼主| 发表于 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文件读写模糊不清,这下明白了,要写的是直角坐标转换极坐标的一个计算,看了你写的之后才恍然大悟啊,学到了,已经写出来了,万分感谢,可能以后问题还很多,还望不吝赐教
心怀不惧,方能翱翔于天际
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-12-14 05:37

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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