查看完整版本: 幫忙看看程式(fortran)
頁: [1]

opqpk 發表於 2010-4-1 10:17 PM

幫忙看看程式(fortran)

program testl
      real A1,A2,A3,B1,B2,B3,B4,c,d,e,a,b
      open(12,file='aa.dat',status="old")
      read(12,*)A1,A2,A3
      read (12,*)B1,B2
      read (12,*)B3,B4
      rewind(12)
      read (12,*)c
      backspace(12)
      read(12,*)D,E
      A=A1*A2**(3./2.)
      B=D+2./3.*E
      write(*,*)A,B,C,D
      end
都打不出什麼東西底說幫看看底說<div></div>
頁: [1]