Originally posted by snoopyzhao at 2010-05-25 15:52:45:
不需要配对，那么百分数乘了之后加到哪个上面？给个详细一些的说明吧……

C234567
      program main
C     
      character*80 fa_name, fb_name, line
      real freq(100), strength_a(100), strength_b(100), percent(20),
     &     sum_percent
      logical lend
      integer i, j, k
C
      lend = .FALSE.
      sum_percent = 0.
      do 40 j = 1,100
        strength_b(j) = 0.0
40    continue
C
      write(*,'(a,$)') 'Please input the name of output file: '
      read(*,'(a)') fb_name
      open(3, file=fb_name,status='new')
C
      k = 0
30    k = k + 1
      write(*,'(a,$)') 'Please input the name of input file: '
      read(*,'(a)') fa_name
      write(*,'(a,$)') 'Please input the percent: '
      read(*,*) percent(k)
      percent(k) = percent(k) / 100.0
      if (percent(k) .ge. 1.0) then
        lend = .TRUE.
        percent(k) = 1. - sum_percent
      end if
      sum_percent = sum_percent + percent(k)
C
      if (sum_percent .eq. 1.0) lend = .TRUE.
C      
      open(1, file=fa_name,status='old')
C if there is no variable name in the first line, please comment the
C following line      
      read(1,*) line
C      
      i = 1
5     read(1,*,end=15) freq(i), strength_a(i)
      strength_b(i) = strength_b(i) + strength_a(i) * percent(k)
      i = i + 1
      goto 5
15    close(1)
      if (lend) then
        do 20 j=1,i-1
          write(3,*) freq(j), strength_b(j)
20      continue
        close(3)
      else
        goto 30
      end if
      end

Originally posted by stephenliu89 at 2010-05-27 10:36:56:
占个位，这个我可以用C++写