RError.com

RError.com Logo RError.com Logo

RError.com Navigation

  • 主页

Mobile menu

Close
  • 主页
  • 系统&网络
    • 热门问题
    • 最新问题
    • 标签
  • Ubuntu
    • 热门问题
    • 最新问题
    • 标签
  • 帮助
主页 / 问题 / 635694
Accepted
mend4x
mend4x
Asked:2020-03-05 20:27:02 +0000 UTC2020-03-05 20:27:02 +0000 UTC 2020-03-05 20:27:02 +0000 UTC

用fortran将数据写入文件

  • 772

再会。编写程序并运行它。该程序本身没有给出任何错误,它似乎可以工作。创建文件但不向文件写入任何内容。两个程序的行为已经相同。这是一个

program ioposneg
implicit none
integer::i,a,x
do i=1,10
  open(10,file='posneg')
  read(10,*) a
  if (a>0) then
    open(15,file='pos')
    x=a
    write(15,*) x
  else 
    open(20,file='neg')
    x=a
    write(20,*) x
  end if
end do
print*,'finished'
end program ioposneg

这是第二个

program ioformat
implicit none
real::x=0,ex
integer::i
character(len=5)::c='x',ec='ex'
open(10,file='xex')
write(10,2) c,ec
2 format(2a10)
do i=1,11
  ex=x**2
  open(10,file='xex')
  write(10,5)x,ex
  5 format(2f10.5)
  x=x+0.1
end do
print*,'finished'
end program ioformat

第一个程序的可读文件如下所示:

2
3
-9
15
-25
-47
85
68
-10
-5
io
  • 1 1 个回答
  • 10 Views

1 个回答

  • Voted
  1. Best Answer
    mend4x
    2020-03-06T00:54:43Z2020-03-06T00:54:43Z

    原来需要在循环外打开文件。一旦我以这种方式打开文件进行循环,它就起作用了:

    implicit none
    integer::i,a
    open(10,file='posneg')
    open(15,file='pos')
    open(20,file='neg')
    do i=1,10
      read(10,*) a
      if (a>0) then
        write(15,*) a
      else 
        write(20,*) a
      end if
    end do
    print*,'finished'
    end program ioposneg
    

    与第二个程序相同

    • 1

相关问题

Sidebar

Stats

  • 问题 10021
  • Answers 30001
  • 最佳答案 8000
  • 用户 6900
  • 常问
  • 回答
  • Marko Smith

    Python 3.6 - 安装 MySQL (Windows)

    • 1 个回答
  • Marko Smith

    C++ 编写程序“计算单个岛屿”。填充一个二维数组 12x12 0 和 1

    • 2 个回答
  • Marko Smith

    返回指针的函数

    • 1 个回答
  • Marko Smith

    我使用 django 管理面板添加图像,但它没有显示

    • 1 个回答
  • Marko Smith

    这些条目是什么意思,它们的完整等效项是什么样的

    • 2 个回答
  • Marko Smith

    浏览器仍然缓存文件数据

    • 1 个回答
  • Marko Smith

    在 Excel VBA 中激活工作表的问题

    • 3 个回答
  • Marko Smith

    为什么内置类型中包含复数而小数不包含?

    • 2 个回答
  • Marko Smith

    获得唯一途径

    • 3 个回答
  • Marko Smith

    告诉我一个像幻灯片一样创建滚动的库

    • 1 个回答
  • Martin Hope
    Air 究竟是什么标识了网站访问者? 2020-11-03 15:49:20 +0000 UTC
  • Martin Hope
    Алексей Шиманский 如何以及通过什么方式来查找 Javascript 代码中的错误? 2020-08-03 00:21:37 +0000 UTC
  • Martin Hope
    Qwertiy 号码显示 9223372036854775807 2020-07-11 18:16:49 +0000 UTC
  • Martin Hope
    user216109 如何为黑客设下陷阱,或充分击退攻击? 2020-05-10 02:22:52 +0000 UTC
  • Martin Hope
    Qwertiy 并变成3个无穷大 2020-11-06 07:15:57 +0000 UTC
  • Martin Hope
    koks_rs 什么是样板代码? 2020-10-27 15:43:19 +0000 UTC
  • Martin Hope
    user207618 Codegolf——组合选择算法的实现 2020-10-23 18:46:29 +0000 UTC
  • Martin Hope
    Sirop4ik 向 git 提交发布的正确方法是什么? 2020-10-05 00:02:00 +0000 UTC
  • Martin Hope
    faoxis 为什么在这么多示例中函数都称为 foo? 2020-08-15 04:42:49 +0000 UTC
  • Martin Hope
    Pavel Mayorov 如何从事件或回调函数中返回值?或者至少等他们完成。 2020-08-11 16:49:28 +0000 UTC

热门标签

javascript python java php c# c++ html android jquery mysql

Explore

  • 主页
  • 问题
    • 热门问题
    • 最新问题
  • 标签
  • 帮助

Footer

RError.com

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

帮助

© 2023 RError.com All Rights Reserve   沪ICP备12040472号-5