读取一组数，计算后结果为零

vvt

第一步，请用记事本打开 farm_fm.csv 文件，删除其中全部的百分号
第二步，用以下代码：

[Fortran] 纯文本查看 复制代码

program main
  implicit none
  integer k!,i,j
  real ::a(11) !//一维数组就可以了
  real l,m,n,o,p,q,r_fm,s_at,t
  open(12 , file ="/home/iga_qtong/fortran_xcao/farm/farm_fm.csv")
  open(13 , file ="/home/iga_qtong/fortran_xcao/farm/farmout.csv")
  !  read(12,*) a(i,j) !//没用
  !do !//这层循环没用
    !read(12,*,iostat=k) a(48,11) !//此句没用
  do
    read(12,*,ioStat=k) a !//b c 没用值
    if (k/=0) exit
    !do j=1,11 !//这层循环也没用
    l=a(1)*a(2)*a(3)
    m=a(1)*a(2)*a(4)
    n=l/a(5)
    o=m/a(6)
    p=n*a(7)*a(8)
    q=o*a(7)*a(9)
    r_fm=p*a(10)*10
    s_at=q*a(11)*10
    t=r_fm+s_at
    write(13,*) l,',',m,',',n,',',o,',',p,',', &
           q,',',r_fm,',',s_at,',',t
    !end do !//
  end do
  !end do 
  close(12)
  close(13)
end program main