新手急求助

吃斋念书

毕业论文要编程 编程我是新手 下面是我的程序 但在运行时总是有个问题 我看不懂 求高手帮助 (数据我用附件）
INTEGER ::i=1,J=1
     DIMENSION AA(10000,100),BB(10000),CC(10000)
  real AA
     Character BB,CC
    OPEN(1,FILE='D:\12.dat')
    OPEN(2,FILE='D:\FILEOUT')
20    READ(1,*)AA(i,J)  
  if(i.GT.1.AND.i.LT.100.and.J.ge.1)then
              AA=AA(i,J)+50000
              WRITE(BB,*)
  
   end if
if(i.GT.1.AND.i.LT.100.and.J.ge.4)then
              WRITE(CC,*)
end if
goto 20
    CLOSE(1)
30   read(BB,*)
    read(CC,*)
    write(2,40)
    goto 30
     CLOSE(2)
40  FORMAT(1X,3(F14.5,2x,F8.4,2x,"1.00"))
    END

残月

程序见附件~
附加输出结果

黎大页子

最好把你程序编译或者运行时的错误提示信息一并放上来，节约别人的时间。

残月

AA=AA(i,J)+50000 这一行我觉着不对，AA是数组，如果行得通的话，你这样写是不是AA全变成一个值了；
write(2,40) 类似这些语句直接没看懂你是要干嘛啊？write 后面什么都没有啊？还是我理解有误呢。。

飛羽_y

WRITE(BB,*)
WRITE(CC,*)
read(BB,*)
    read(CC,*)
    write(2,40)
这些的后面，你都没有写要输出或者读入的变量啊

吃斋念书

残月 发表于 2012-5-14 10:58

                               
登录/注册后可看大图

AA=AA(i,J)+50000 这一行我觉着不对，AA是数组，如果行得通的话，你这样写是不是AA全变成一个值了；
writ ...

write(2,40)BB,CC,1.00,BB,CC,1.00,BB,CC,1.00 我是想按照 FORMAT(1X,3(F14.5,2x,F8.4,2x,"1.00"))这种格式输出啊 这问题我也说不清楚 能不能给我运行一下 看看是怎么回事啊 谢谢!

飛羽_y

'D:\12.dat’ 是什么数据，有多少个
为什么读的时候， READ(1,*)AA(i,J) 没有循环
还有就是 BB CC 没有赋值

mofangbao

吃斋念书 发表于 2012-5-14 12:26

                               
登录/注册后可看大图

write(2,40)BB,CC,1.00,BB,CC,1.00,BB,CC,1.00 我是想按照 FORMAT(1X,3(F14.5,2x,F8.4,2x,"1.00"))这种格 ...

没数据怎么给你运行呢，多少你自己得学一点基础知识的

吃斋念书

你好！附件中有数据和错误代码 我看不懂  帮帮忙 实在是急要  谢谢！

凉茶

首先你得先确认你的dat文件资料 和你给数组定义的范围符不符合 否则很容易造成超出范围的错误的