Assume that a biologist conducts an experiment in which he/she meters the rate a

Question

Assume that a biologist conducts an experiment in which he/she meters the rate at which a specific type of bacterium reproduces asexually in different media. The experiment shows that in a Medium A the bacteria reproduce one every 90 minutes, and in Medium B the bacteria reproduce once every 120 minutes. Assume that a single bacterium is placed on each culture medium at the beginning of the experiment. Write a Fortran program that calculates and writes out the number of bacteria present in each culture at intervals of 3 hours from the beginning of the experiment until 48 hours have elapsed. How do the numbers of the bacteria compare on the two media after 24 hours

Explanation / Answer

program hello
    INTEGER(kind=selected_int_kind(36)) :: medA, medB, two;
    INTEGER:: powA, powB, n ;
  
    two = 2;
    ! Every 3 hours in 48 hours we need to calculate bacteria present in each medium
    ntimes = 48/3;
    do n =1, ntimes
  
        print *,"------------------- No of hours elapsed : ", (3 * n), "---------------";
        ! calculate the bacteria in medium A every 3 hours , it produces one bacteria for every 90 miutes;
        powA = (180 * n) / 90; ! it gives no of bacteria produced, not in the process
        medA = two ** powA;
      
        ! calculate the bacteria in medium B every 3 hours , it produces one bacteria for every 120 miutes;
        powB = (180 * n) / 120; ! it gives no of bacteria produced, not in the process
        medB = two ** powB;
   
        print*," Bacteria produced in medium A = ", (medA);
        print*," Bacteria produced in medium B = ", (medB);
   end do
end program Hello

Related Questions

Navigate

• Browse (All)
• Browse A
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.