作者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