[交流] 【求助】求一个处理数据的小程序【已完结】 已有6人参与

C234567
      program main
C     
      character*80 fa_name, fb_name, fc_name, line
      real freq, strength_a, strength_b, percent
C
      write(*,'(a,$)') 'Please input the name of first file: '
      read(*,'(a)') fa_name
      write(*,'(a,$)') 'Please input the name of second file: '
      read(*,'(a)') fb_name
      write(*,'(a,$)') 'Please input the name of output file: '
      read(*,'(a)') fc_name
      write(*,'(a,$)') 'Please input the percent: '
      read(*,*) percent
      percent = percent / 100.0
C      
      open(1, file=fa_name,status='old')
      open(2, file=fb_name,status='old')
      open(3, file=fc_name,status='new')
C if there is no variable name in the first line, please comment the
C following two lines      
      read(1,*) line
      read(2,*) line
C      
5     read(1,*,end=10) freq, strength_a
10    read(2,*, end =20) freq, strength_b
      write(3,*) freq, strength_a * percent + strength_b * (1.-percent)
      goto 5
20    continue
      close(1)
      close(2)
      close(3)
      end

Originally posted by snoopyzhao at 2010-05-24 17:26:45:
从你的描述来看，你似乎要两个文件两个文件地匹配？是这样的吗？读完这两个文件，然后再读下面两个文件吗？

Originally posted by sci_papers at 2010-05-24 19:33:17:

谢谢 您,我的意思是说比如有10个或者20个这样的文件需要乘以一个系数,而不仅仅是2个文件.所以我想在程序中实现,输入一个文件,然后输入要乘的百分数.这样一次类推,把所有几十个文件都输进去.最后得到一个数据文件 ...

C234567
      program main
C     
      character*80 fa_name, fb_name, fc_name, line
      character*1 yn
      real freq, strength_a, strength_b, percent
C
      write(*,'(a,$)') 'Please input the name of output file: '
      read(*,'(a)') fc_name
      open(3, file=fc_name,status='new')
C
30    write(*,'(a,$)') 'Please input the name of first file: '
      read(*,'(a)') fa_name
      write(*,'(a,$)') 'Please input the name of second file: '
      read(*,'(a)') fb_name
      write(*,'(a,$)') 'Please input the percent: '
      read(*,*) percent
      percent = percent / 100.0
C      
      open(1, file=fa_name,status='old')
      open(2, file=fb_name,status='old')
C if there is no variable name in the first line, please comment the
C following two lines      
      read(1,*) line
      read(2,*) line
C      
5     read(1,*,end=10) freq, strength_a
10    read(2,*, end =20) freq, strength_b
      write(3,*) freq, strength_a * percent + strength_b * (1.-percent)
      goto 5
20    continue
      close(1)
      close(2)
      write(*,'(a,$)') 'Do you continue? (Y/N) '
      read(*,'(a1)') yn
      if (yn .eq. 'n' .or. yn .eq. 'N') then
        close(3)
      else
        goto 30
      end if
      end