Question

用fortran90语言编程，跪求

甲乙丙丁四人同时开始放鞭炮，甲每隔t1秒放一次，乙每隔t2秒放一次，丙每隔t3秒放一次，丁每隔t4秒放一次，每人各放n次。函数fun的功能是根据形参提供的值，求出总共听到多少次鞭炮声作为函数值返回。注意，当几个鞭炮同时炸响，只算一次响声，第一次响声是在第0秒。例如，若t1=7，t2=5，t3=6，t4=4，n=10，则总共可听到28次鞭炮声

Answer 1

程序： 

program fangbianpao

 implicit none

 real:: t1=4,t2=5,t3=6,t4=7

 real, parameter:: n=10

 real:: i,j

 real:: counter=0

 real:: T_1(n),T_2(n),T_3(n),T_4(n),T(4*n)

 do i=1,n

   T_1(i)=t1*(i-1)
   T_2(i)=t2*(i-1)
   T_3(i)=t3*(i-1)
   T_4(i)=t4*(i-1)

 enddo
 
 T=[T_1,T_2,T_3,T_4]
 
 do i=0,63

  do j=1,size(T)

   if (i==T(j)) then

    counter=counter+1

    write(*,*) '第',counter,'次响声：',T(j)

    exit

   endif

  enddo
 
 enddo

 write(*,*) counter

  

 end program fangbianpao

结果：