牛生牛的问题 用程序写

来源：百度知道 编辑：UC知道 时间：2024/06/30 15:05:05
一头母牛隔3个月生头小母牛,小母牛在1年后又可以生小母牛,
问10年后一共有多少头牛

当然10年内老牛还在继续生,小牛在生下后一年也要继续生小牛 小牛再生小小牛 小小牛一年后也可以继续生小小小牛 就这样循环下去..
我晕 我自己都晕了/
那为大侠帮忙搞定下
好象要用循环.递归吧

<%
dim nums2(100) '定义牛生产的次数
dim nums3(100) '定义每批牛出生的数量
num = 1 '初始牛为1只
nums = 1 '初始可生仔的牛为1只

for i = 1 to 10 'I为年份
for j = 1 to 12 step 3 '每三月生一次
for p = 1 to k '找每次牛的年龄(月)
if nums2(p) <> 12 then '如果年龄不是12则年龄+3,如果当批牛产量为0,则赋值当前可生仔的牛的数量
nums2(p) = nums2(p) + 3
if int(nums3(p)) = 0 then nums3(p) = nums
else '如果牛的年龄=12,则具有生产的能力,赋值给可生仔数
nums2(p) = nums2(p) + 3
nums = nums + nums3(p)
end if
Response.write "第" & p & "批产牛"& nums2(p) & "个月"&nums3(p)&"只&&" & "<br />"
next
num = num + nums '牛的数量=原有牛的数量+生仔的牛的数量
Response.write "本批可生仔的牛是:"&nums&"<br />"&"当前的牛总数是:"&num&"<hr />"

k = k + 1
next
next
response.write num '输出牛的