作者s23325522 (披着狼皮的羊)
看板Fortran
标题[问题] 怎麽让他两个小时列印一次
时间Wed Mar 19 15:52:05 2014
科学家新发现两种产氢细菌，某生化工程师想利用它门产制氢气。首先他要决定
选用哪种细菌较好，所以他要比较这两种微生物的生长速率，因此他在实验室里
以适当的两种培养基培养这两种微生物。他发现细菌 A 每 90 分钟会分裂一次，
而细菌 B则每70 分钟分裂一次。当然，也有一小部分的微生物会因种种原因而
死亡；细菌 A 的死亡率是每 900 分钟族群中的千分之一会死亡，而细菌 B 则是
每 200 分钟族群中的百分之一会死亡。假设实验开始时，在每种培养基里只有一
个细菌。写一个程式计算从开始至 24 小时止，每隔 2 小时，在培养基里的细菌
数目及两者的数量差异为何，同时对两者的生长速率做个结论。
上面是题目
目前我写出的程式码:
program main
implicit none
integer i,sumA,sumB
integer ::counter=1440
sumA=1
do i=90,counter,90
sumA=sumA*2
write(*,*)'细菌a的数目',sumA
end do
sumB=1
do i=70,counter,70
sumB=sumB*2
write(*,*)'细菌B的数目',sumB
end do
end
该怎麽让她照题目的要求 每两个小时列印出结果
而不是照着细菌孳生的数目 ?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.223.28
1F：→ sin55688:程式码跟题目完全没连上... 03/19 20:49
2F：→ s23325522:目前只写出这样 03/19 22:31
3F：→ s23325522:我剩下的两个问题是让他每两个小时列印出结果 03/19 22:38
4F：→ s23325522:跟把两个回圈并成一行 好让结果跑出来是一行行的顺序 03/19 22:38
5F：→ s23325522: 在一起 03/19 22:39
6F：→ bonbbon:模拟的题目就用模拟的作法吧，依照题目设置5个counter 03/19 22:57
7F：→ bonbbon:每次加1分钟，时间到就发生该发生的事，然後counter归零 03/19 22:58
8F：→ bonbbon:跑1440分，就完成你的作业了 03/19 22:58