关于FORTRAN语言：FILE3.DAT有如下数据 50,54,64,65 65,70,85,90 46,73,60,

关于FORTRAN语言：FILE3.DAT有如下数据 50,54,64,65 65,70,85,90 46,73,60,72 阅读FORTRAN程序
DIMENSION M(12)
OPEN(10,FILE='FILE3.DAT')
READ(10,*)(M(1),I=1,12)
DO 10J=1,12
IF (M(J).GE.60) N=N+1
CONTINUE
WRITE(*,20) N
FORMAT(2X,'N=',12)
END
为什么答案是8,为什么不是9啊,大于60的数不是9个么?
dizzy78 1年前 已收到2个回答 举报
赞

7kdcc 花朵

共回答了20个问题采纳率：85% 举报

DIMENSION M(12)
OPEN(10,FILE='FILE3.DAT')
READ(10,*) (M(I),I=1,12)
DO 10 J=1,12
IF (M(J).GE.60) N=N+1
10 CONTINUE
WRITE(*,20) N
20 FORMAT(2X,'N=',I2)
END
!程序错误太多,都已改正并上机通过.运行结果是9,没错.

1年前

3

1瑟 幼苗

共回答了2个问题 举报

你的 N 没有定义，也没有初始值。
直接开始 N = N + 1 计数，是不靠谱的。
试着加一句：
integer :: N = 0
另外，你这样的写法太古老了。dimension 这个词最好不要用。
程序最好加上 Implicit None 并显式定义所有变量：M，N，j 都要定义，并明确是 integer 类型
Do 循环不要用 continue...

1年前

1
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2023 YULUCN.COM - 雨露学习互助 - 17 q. 0.024 s. - webmaster@yulucn.com